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;
	FREE y,z;
END specify;
METHOD values;
	x := 10;
END values;
METHOD default_self;
	RUN reset;
	RUN values;
END default_self;
METHOD self_test;
	ASSERT abs(y - 1) < 1e-20;
	ASSERT abs(z - 2.302585093) < 1e-8;
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	305	FREE y,z;
16	johnpye	123	END specify;
17			METHOD values;
18	johnpye	155	x := 10;
19	johnpye	123	END values;
20			METHOD default_self;
21			RUN reset;
22			RUN values;
23			END default_self;
24			METHOD self_test;
25	johnpye	150	ASSERT abs(y - 1) < 1e-20;
26			ASSERT abs(z - 2.302585093) < 1e-8;
27	johnpye	123	END self_test;
28
29			END testlog10;