Advanced Search

Question: plote3Din Maple

Question:plote3Din Maple

MOSO1401 20 Maple 16
October 17 2013
1

Hello 

 I couldn't make plot3d in my Maple code please see the file I attached it and let me know any idea how can I make plot it in 3D

Thanks

> 

restart;
with(PDEtools):
with(ArrayTools):
with(plots):
 
> 

f:=u->cos(u):
g:=v->cos(v):
h:=1/10:
N:=20:
M:=20:
V:=x->x^2:
> 

psi:=Array(0..N/h+1,0..M/h+1):
     for i from 1 to N/h do
     psi[i,0]:=evalf(f(i*h)):
     od:

     for j from 1 to M/h do
      psi[0,j]:evalf(g(j*h)):
      od:
   for i from 1 to N/h do
   for j from 1 to M/h do

 
psi[i,j]:=-psi[i-1, j-1]+(1-(1/8)*h^2*V((1/2)*h*(j-i-1)))*psi[i, j-1]+(1-(1/8)*h^2*V((1/2)*h*(j-i+1)))*psi[i-1,j]:
         od:
          od:
    omega:=(i,j)->[i*h,j*h,psi[i,j]]:
omega(1,1);
   IS:=[seq([seq(omega(i,j),i=0..N/h)],j=0..M/h)]:
 

[1/10, 1/10, .9950010559]

 (1)
> 

 



Download Wave_o1.mw

Wave_o1.mw
Please Wait...