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 * \ частичный_ {x} r1;
Plot3D [Abs [u], {x, -5, 5} {t, -5, 5}, PlotRange -> All]
При оценке ячейки Mathematica не показывает график,