Parent Directory
|
Revision Log
Added some debug stuff to work on the on_load problem.
1 | johnpye | 123 | REQUIRE "atoms.a4l"; |
2 | |||
3 | MODEL testlog10; | ||
4 | |||
5 | johnpye | 155 | x IS_A variable; |
6 | y IS_A variable; | ||
7 | z IS_A variable; | ||
8 | johnpye | 123 | |
9 | log_10_expr: y = log10(x); | ||
10 | log_e_expr: z = ln(x); | ||
11 | |||
12 | METHODS | ||
13 | METHOD specify; | ||
14 | johnpye | 186 | FIX x; |
15 | johnpye | 123 | END specify; |
16 | METHOD values; | ||
17 | johnpye | 155 | x := 10; |
18 | johnpye | 123 | END values; |
19 | johnpye | 917 | METHOD on_load; |
20 | johnpye | 123 | RUN reset; |
21 | RUN values; | ||
22 | johnpye | 917 | END on_load; |
23 | johnpye | 123 | METHOD self_test; |
24 | johnpye | 150 | ASSERT abs(y - 1) < 1e-20; |
25 | ASSERT abs(z - 2.302585093) < 1e-8; | ||
26 | johnpye | 917 | ASSERT abs(x - 10) <1e-20; |
27 | johnpye | 123 | END self_test; |
28 | |||
29 | END testlog10; |
john.pye@anu.edu.au | ViewVC Help |
Powered by ViewVC 1.1.22 |