spielwiese
Last change
on this file since 894057 was
894057,
checked in by Oleksandr Motsak <motsak@…>, 13 years ago
|
ADD: Tests from online manual (res+stat on mamawutz): short ones Tst/Manual/s.lst
|
-
Property mode set to
100644
|
File size:
326 bytes
|
Line | |
---|
1 | LIB "tst.lib"; tst_init(); |
---|
2 | LIB "finitediff.lib"; |
---|
3 | list D="Ut","Ux","Uy","U"; |
---|
4 | list V="t","x","y"; |
---|
5 | list P="a","b"; |
---|
6 | setinitials(V,D,P); |
---|
7 | matrix M[2][2]=0,-a,-a,0; |
---|
8 | list Mat=unitmat(2),M; |
---|
9 | list Appr=forward(Ut,U,t),forward(Ux,U,x); |
---|
10 | //matrixsystem(Mat,Appr); |
---|
11 | //timestep(_); |
---|
12 | fouriersystem(Mat,Appr); |
---|
13 | qepcadsystem(_[2]); |
---|
14 | tst_status(1);$ |
---|
Note: See
TracBrowser
for help on using the repository browser.