Advanced Search

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

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

permanoon123 165 Maple 18
plot integration numeric plotting duplicate-question
February 26 2020
0


 

> 

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...