/[ascend]/trunk/models/test/hires.a4c
ViewVC logotype

Diff of /trunk/models/test/hires.a4c

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

revision 1250 by johnpye, Sat Jan 27 00:11:34 2007 UTC revision 1251 by johnpye, Sat Jan 27 05:04:49 2007 UTC
# Line 53  METHODS Line 53  METHODS
53          t.ode_type := -1;          t.ode_type := -1;
54      END ode_init;      END ode_init;
55      METHOD self_test;      METHOD self_test;
56          ASSERT abs(y[1] - 0.7371312573325668e-3) < 1e-8;          ASSERT abs(y[1] - 0.7371312573325668e-3) < 1e-15;
57          ASSERT abs(y[2] - 0.1442485726316185e-3) < 1e-8;          ASSERT abs(y[2] - 0.1442485726316185e-3) < 1e-15;
58          ASSERT abs(y[3] - 0.5888729740967575e-4) < 1e-8;          ASSERT abs(y[3] - 0.5888729740967575e-4) < 1e-15;
59          ASSERT abs(y[4] - 0.1175651343283149e-2) < 1e-8;          ASSERT abs(y[4] - 0.1175651343283149e-2) < 1e-15;
60          ASSERT abs(y[5] - 0.2386356198831331e-2) < 1e-8;          ASSERT abs(y[5] - 0.2386356198831331e-2) < 1e-13;
61          ASSERT abs(y[6] - 0.6238968252742796e-2) < 1e-8;          ASSERT abs(y[6] - 0.6238968252742796e-2) < 1e-13;
62          ASSERT abs(y[7] - 0.2849998395185769e-2) < 1e-8;          ASSERT abs(y[7] - 0.2849998395185769e-2) < 1e-14;
63          ASSERT abs(y[8] - 0.2850001604814231e-2) < 1e-8;          ASSERT abs(y[8] - 0.2850001604814231e-2) < 1e-14;
64      END self_test;      END self_test;
65      METHOD specify;      METHOD specify;
66          (* nothing needs to be fixed *)          (* nothing needs to be fixed *)
Legend:
Removed from v.1250  
changed lines
  Added in v.1251
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22