<

Question: Help me to plot u(x,t) for x=0&all time


 

NULLrestart

Digits := 10:

with(plots):

with(CurveFitting):

with(plottools):

v := .7:

Disp := 20:

esp := 800000:

k := 0:

E := proc (x, t) options operator, arrow; int(exp((-esp*w^4+Disp*w^2+k)*t)*cos(w*(x+v*t))/Pi, w = 0. .. infinity) end proc;

proc (x, t) options operator, arrow; int(exp((-esp*w^4+Disp*w^2+k)*t)*cos(w*(x+v*t))/Pi, w = 0. .. infinity) end proc

(1)

f := proc (x) options operator, arrow; 20*exp(-(1/2000000)*(x-10000)^2)+15*exp(-(1/2000000)*(x-13800)^2) end proc:

 

 

u := proc (x, t) options operator, arrow; int(E(x-xi, t)*f(xi), xi = 0. .. 20000) end proc;

proc (x, t) options operator, arrow; int(E(x-xi, t)*f(xi), xi = 0. .. 20000) end proc

(2)

``

plot(u(x, t), x = 1500, t = 0 .. 60000, numpoints = 100)

Error, (in plot) unexpected options: [x = 1500, t = 0 .. 60000]

 

 

NULL

 

``

NULL


 

Download antegral.mw

Please Wait...