models/johnpye/steam_stream.a4c

REQUIRE "johnpye/iapws95.a4c";

(** A simple mass-based stream model *)
MODEL steam_stream;
	S IS_A iapws95_1phase;
	mdot IS_A mass_rate;

	rho ALIASES S.rho;
	T ALIASES S.T;
	p ALIASES S.p;
	u ALIASES S.u;
	h ALIASES S.h;
	s ALIASES S.s;
	cp ALIASES S.cp;
	cv ALIASES S.cv;
	w ALIASES S.w;	

METHODS
METHOD default_self;
	RUN ClearAll;
	RUN specify;
	RUN values;
END default_self;

METHOD specify;
	FIX mdot;
	RUN S.specify;
END specify;

METHOD values;
	mdot := 1 {kg/s};
	RUN S.values;
END values;

METHOD test_ph;
	RUN ClearAll;
	FIX mdot; mdot := 0 {kg/s};
	FIX p; p := 10 {bar};
	FIX h; h := 419.7 {kJ/kg};
END test_ph;

END steam_stream;
1	REQUIRE "johnpye/iapws95.a4c";
2
3	(** A simple mass-based stream model *)
4	MODEL steam_stream;
5	S IS_A iapws95_1phase;
6	mdot IS_A mass_rate;
7
8	rho ALIASES S.rho;
9	T ALIASES S.T;
10	p ALIASES S.p;
11	u ALIASES S.u;
12	h ALIASES S.h;
13	s ALIASES S.s;
14	cp ALIASES S.cp;
15	cv ALIASES S.cv;
16	w ALIASES S.w;
17
18	METHODS
19	METHOD default_self;
20	RUN ClearAll;
21	RUN specify;
22	RUN values;
23	END default_self;
24
25	METHOD specify;
26	FIX mdot;
27	RUN S.specify;
28	END specify;
29
30	METHOD values;
31	mdot := 1 {kg/s};
32	RUN S.values;
33	END values;
34
35	METHOD test_ph;
36	RUN ClearAll;
37	FIX mdot; mdot := 0 {kg/s};
38	FIX p; p := 10 {bar};
39	FIX h; h := 419.7 {kJ/kg};
40	END test_ph;
41
42	END steam_stream;