| LIB "finitediff.lib";
list D="Ut","Ux","Uy","U";
list V="t","x","y";
list P="a","b";
setinitials(V,D,P);
matrix M[2][2]=0,-a,-a,0;
list Mat=unitmat(2),M;
list Appr=forward(Ut,U,t),forward(Ux,U,x);
//matrixsystem(Mat,Appr);
//timestep(_);
fouriersystem(Mat,Appr);
==> [1]:
==> [1]:
==> [1]:
==> _[1,1]=(T)
==> _[1,2]=0
==> _[2,1]=0
==> _[2,2]=(T)
==> [2]:
==> _[1,1]=1
==> _[1,2]=(I*Sx*a*dt+Cx*a*dt-a*dt)/(dx)
==> _[2,1]=(I*Sx*a*dt+Cx*a*dt-a*dt)/(dx)
==> _[2,2]=1
==> [2]:
==> [1]:
==> _[1]=(T)
==> [2]:
==> _[1]=(-I*Sx*a*dt-Cx*a*dt+a*dt+dx)/(dx)
==> _[2]=(I*Sx*a*dt+Cx*a*dt-a*dt+dx)/(dx)
==> [2]:
==> [1]:
==> [1]:
==> (T^2)
==> [2]:
==> [1]:
==> (-2*Cx*a^2*dt^2-2*Cx*a*dt*dx+2*a^2*dt^2+2*a*dt*dx+dx^2)/(dx^2)
==> [2]:
==> (-2*Cx*a^2*dt^2+2*Cx*a*dt*dx+2*a^2*dt^2-2*a*dt*dx+dx^2)/(dx^2)
qepcadsystem(_[2]);
==> 0
==> 0
==> 0
==> 0
==> cx - 1 > 0 /\ a /= 0 /\ dt /= 0 /\ [ [ dx + a dt < 0 /\ dx - a dt > 0 ] \\
/ [ dx + a dt > 0 /\ dx - a dt < 0 ] ]
==>
==> [1]:
==> cx-1
==> [2]:
==> (a)
==> [3]:
==> (dt)
==> [4]:
==> (a*dt+dx)
==> [5]:
==> (-a*dt+dx)
==> [6]:
==> (a*dt+dx)
==> [7]:
==> (-a*dt+dx)
|