test/blackbox/bbox3.a4c

REQUIRE "system.a4l";
REQUIRE "basemodel.a4l";
IMPORT "test/blackbox/bboxtest"; (* yi = coef*xi test *)

MODEL bbox3;

	coef IS_A real_constant;
	n IS_A integer_constant;
	coef :== 2.0;
	n :== 3;

	x[1..n], y[1..n] IS_A generic_real;

	bbox: bboxtest( x[1..n] : INPUT ;
                        y[1..n] : OUTPUT ;
                        coef : DATA);
	
METHODS

METHOD default_all;
	RUN default_self;
END default_all;
METHOD default_self;
	FOR i IN [1..n] DO
		x[i] := 1+i;
		y[i] := -x[i];
	END FOR;
END default_self;

METHOD on_load;
	RUN reset;
	RUN default_all;
END on_load;

METHOD self_test;
	FOR i IN [1..n] DO
		ASSERT y[1] == coef * x[1];
	END FOR;
END self_test;

METHOD specify;
	y[1..n].fixed := FALSE;
	x[1..n].fixed := TRUE;
END specify;

METHOD specify_reverse;
	x[1..n].fixed := FALSE;
	y[1..n].fixed := TRUE;
END specify_reverse;
END bbox3;
1	REQUIRE "system.a4l";
2	REQUIRE "basemodel.a4l";
3	IMPORT "test/blackbox/bboxtest"; (* yi = coefxi test )
4
5	MODEL bbox3;
6
7	coef IS_A real_constant;
8	n IS_A integer_constant;
9	coef :== 2.0;
10	n :== 3;
11
12	x[1..n], y[1..n] IS_A generic_real;
13
14	bbox: bboxtest( x[1..n] : INPUT ;
15	y[1..n] : OUTPUT ;
16	coef : DATA);
17
18	METHODS
19
20	METHOD default_all;
21	RUN default_self;
22	END default_all;
23	METHOD default_self;
24	FOR i IN [1..n] DO
25	x[i] := 1+i;
26	y[i] := -x[i];
27	END FOR;
28	END default_self;
29
30	METHOD on_load;
31	RUN reset;
32	RUN default_all;
33	END on_load;
34
35	METHOD self_test;
36	FOR i IN [1..n] DO
37	ASSERT y[1] == coef * x[1];
38	END FOR;
39	END self_test;
40
41	METHOD specify;
42	y[1..n].fixed := FALSE;
43	x[1..n].fixed := TRUE;
44	END specify;
45
46	METHOD specify_reverse;
47	x[1..n].fixed := FALSE;
48	y[1..n].fixed := TRUE;
49	END specify_reverse;
50	END bbox3;