/[ascend]/trunk/models/johnpye/idakryx.a4c
ViewVC logotype

Diff of /trunk/models/johnpye/idakryx.a4c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 953 by johnpye, Thu Dec 7 14:47:15 2006 UTC revision 956 by johnpye, Sat Dec 9 15:38:05 2006 UTC
# Line 30  REQUIRE "atoms.a4l"; Line 30  REQUIRE "atoms.a4l";
30  MODEL idakryx;  MODEL idakryx;
31    
32      M IS_A integer_constant;      M IS_A integer_constant;
33      M :== 10;      M :== 4;
34    
35      dx IS_A real_constant;      dx IS_A real_constant;
36      dx :== 1 / (M - 1);      dx :== 1 / (M - 1);
# Line 94  METHOD values; Line 94  METHOD values;
94              u[i][j] := 16 * (dx*j) * (1 - dx*j) * dx*i * (1 - dx*i);              u[i][j] := 16 * (dx*j) * (1 - dx*j) * dx*i * (1 - dx*i);
95          END FOR;          END FOR;
96      END FOR;      END FOR;
97        FOR i IN [1..M-2] DO
98            FOR j IN [1..M-2] DO
99                u[i][j] := 0;
100            END FOR;
101        END FOR;
102  END values;  END values;
103    
104  METHOD ode_init;  METHOD ode_init;

Legend:
Removed from v.953  
changed lines
  Added in v.956

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22