models/johnpye/samplesyntax.a4c

REQUIRE "atoms.a4l";

(*
   simple model to calculate the time taken for
   an object to fall 10 m under gravity.
*)
MODEL sample;
	
	S IS_A distance;
	u IS_A speed;
	a IS_A acceleration;
	t IS_A time;
	
	(* formula for displacement of a mass with initial
	   displacement and constant acceleration *)
	S = u * t + 1/2 * a *t^2;
	
METHODS

METHOD specify; (* which variables are fixed *)
	FIX u, a, S;
END specify;

METHOD values; (* set the fixed variables *)
	S := 10 {m};  a := 9.8 {m/s^2};  u := 0 {m/s}; 
END values;

METHOD bound_self;
	t.lower_bound := 0 {s}; (* t > 0 *)
END values;

(* this method will be run on startup *)
METHOD default_self;
	RUN reset; 
	RUN values;
	RUN bound_self;
END default_self;

END sample;
1	REQUIRE "atoms.a4l";
2
3	(*
4	simple model to calculate the time taken for
5	an object to fall 10 m under gravity.
6	*)
7	MODEL sample;
8
9	S IS_A distance;
10	u IS_A speed;
11	a IS_A acceleration;
12	t IS_A time;
13
14	(* formula for displacement of a mass with initial
15	displacement and constant acceleration *)
16	S = u * t + 1/2 * a *t^2;
17
18	METHODS
19
20	METHOD specify; (* which variables are fixed *)
21	FIX u, a, S;
22	END specify;
23
24	METHOD values; (* set the fixed variables *)
25	S := 10 {m}; a := 9.8 {m/s^2}; u := 0 {m/s};
26	END values;
27
28	METHOD bound_self;
29	t.lower_bound := 0 {s}; (* t > 0 *)
30	END values;
31
32	(* this method will be run on startup *)
33	METHOD default_self;
34	RUN reset;
35	RUN values;
36	RUN bound_self;
37	END default_self;
38
39	END sample;