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

Annotation of /trunk/models/johnpye/testlog10.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 917 - (hide annotations) (download) (as text)
Thu Nov 2 21:34:59 2006 UTC (18 years, 3 months ago) by johnpye
File MIME type: text/x-ascend
File size: 426 byte(s)
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