/[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 1247 by johnpye, Sat Jan 27 00:11:34 2007 UTC revision 1252 by johnpye, Sat Jan 27 06:29:17 2007 UTC
# Line 1  Line 1 
1  REQUIRE "ivpsystem.a4l";  REQUIRE "ivpsystem.a4l";
2  REQUIRE "atoms.a4l";  REQUIRE "atoms.a4l";
3  (*  (*
4      Sample problem 'HIRES' from the parallel-IVP-algorithm group of CWI:      Sample problem 'HIRES' from the Test Set for IVP Solvers
5    
6      'High Irradiance RESponse', from plant physiology, describing how light is      'High Irradiance RESponse', from plant physiology, describing how light is
7      involved in morphogenesis.      involved in morphogenesis.
8    
# Line 53  METHODS Line 54  METHODS
54          t.ode_type := -1;          t.ode_type := -1;
55      END ode_init;      END ode_init;
56      METHOD self_test;      METHOD self_test;
57          ASSERT abs(y[1] - 0.7371312573325668e-3) < 1e-8;          ASSERT abs(y[1] - 0.7371312573325668e-3) < 1e-15;
58          ASSERT abs(y[2] - 0.1442485726316185e-3) < 1e-8;          ASSERT abs(y[2] - 0.1442485726316185e-3) < 1e-15;
59          ASSERT abs(y[3] - 0.5888729740967575e-4) < 1e-8;          ASSERT abs(y[3] - 0.5888729740967575e-4) < 1e-15;
60          ASSERT abs(y[4] - 0.1175651343283149e-2) < 1e-8;          ASSERT abs(y[4] - 0.1175651343283149e-2) < 1e-15;
61          ASSERT abs(y[5] - 0.2386356198831331e-2) < 1e-8;          ASSERT abs(y[5] - 0.2386356198831331e-2) < 1e-13;
62          ASSERT abs(y[6] - 0.6238968252742796e-2) < 1e-8;          ASSERT abs(y[6] - 0.6238968252742796e-2) < 1e-13;
63          ASSERT abs(y[7] - 0.2849998395185769e-2) < 1e-8;          ASSERT abs(y[7] - 0.2849998395185769e-2) < 1e-14;
64          ASSERT abs(y[8] - 0.2850001604814231e-2) < 1e-8;          ASSERT abs(y[8] - 0.2850001604814231e-2) < 1e-14;
65      END self_test;      END self_test;
66      METHOD specify;      METHOD specify;
67          (* nothing needs to be fixed *)          (* nothing needs to be fixed *)
Legend:
Removed from v.1247  
changed lines
  Added in v.1252
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22