Wolfram Cloud Document

In[]:=

q1=7

15

-

1

98

(59509t-14x)

Exp

Tan

1

2

15

-3-

59517t

98

+3x;dataur=Table7

15

-

1

98

(59509t-14x)

Exp

Tan

1

2

15

-3-

59517t

98

+3x,{t,-50,50,0.5},{x,-50,50,0.5};ListPlot3D[dataur,Mesh4,InterpolationOrder2,ColorFunction->"Rainbow",PlotLabel"q(x,t)",PlotRange->All,DataRange{{-50,50},{-50,50}},AxesLabel{"t","x",None}]

Out[]=