close
Warning:
Can't synchronize with repository "(default)" (/var/svn/tolp does not appear to be a Subversion repository.). Look in the Trac log for more information.
| Line | |
|---|
| 1 | Set data = Include( "./args.oza" ); |
|---|
| 2 | Matrix difMat = DifEq( data::ma / data::ar, VMat2Mat( data::e_ ) ); |
|---|
| 3 | VMatrix difVMat = DifEq( data::ma / data::ar, data::e_ ); |
|---|
| 4 | Matrix checkMat = Abs( difMat - VMat2Mat( difVMat ) ); |
|---|
| 5 | Real check = MatMax( checkMat ); |
|---|
| 6 | WriteLn( "check = " << check ); |
|---|
| 7 | WriteLn( If( check < 1.0e-10, "OK", "FAIL" ) ); |
|---|
Download in other formats:
