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	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;