models/johnpye/testlog10.a4c

REQUIRE "atoms.a4l";

MODEL testlog10;

	x IS_A variable;
	y IS_A variable;
	z IS_A variable;

	log_10_expr: y = log10(x);
	log_e_expr: z = ln(x);

METHODS
METHOD specify;
	FIX x;
END specify;
METHOD values;
	x := 10;
END values;
METHOD on_load;
	RUN reset;
	RUN values;
END on_load;
METHOD self_test;
	ASSERT abs(y - 1) < 1e-20;
	ASSERT abs(z - 2.302585093) < 1e-8;
	ASSERT abs(x - 10) <1e-20;
END self_test;

END testlog10;
1	REQUIRE "atoms.a4l";
2
3	MODEL testlog10;
4
5	x IS_A variable;
6	y IS_A variable;
7	z IS_A variable;
8
9	log_10_expr: y = log10(x);
10	log_e_expr: z = ln(x);
11
12	METHODS
13	METHOD specify;
14	FIX x;
15	END specify;
16	METHOD values;
17	x := 10;
18	END values;
19	METHOD on_load;
20	RUN reset;
21	RUN values;
22	END on_load;
23	METHOD self_test;
24	ASSERT abs(y - 1) < 1e-20;
25	ASSERT abs(z - 2.302585093) < 1e-8;
26	ASSERT abs(x - 10) <1e-20;
27	END self_test;
28
29	END testlog10;