如何绘制函数的导数

Question

q = 1 + 1 * 1i;

p = 1;

a = -i p q * x- [4 / q] * t;

X = Exp [a];

Y = Exp [-a];

r1 =共轭[q] Y +共轭[Y] + q X 共轭[X] / Y +共轭[Y] + X 共轭[X];

u = p + i * \ partial_ {x} r1;

Plot3D [Abs [u]，{x，-5，5} {t，-5，5}，PlotRange->全部]

当我评估单元格Mathematica时不显示图。