models/steam/satsteamstream.a4c

REQUIRE "steam/iapwssat.a4c";

MODEL satsteamstream REFINES iapwssat;
	mdot IS_A mass_rate;
	Hdot IS_A energy_rate;
	Hdot = mdot*h;
	rho IS_A mass_density;
	rho * v = 1;
METHODS
METHOD default_self;
	RUN iapwssat::default_self;
	rho := 200 {kg/m^3};
	Hdot := 0.1 {kg/s} * 3000 {kJ/kg};
END default_self;
METHOD specify;
	RUN iapwssat::specify;
	FIX mdot;
END specify;
METHOD values;
	RUN iapwssat::values;
	T := 373.15 {K};
	mdot := 0.1 {kg/s};
END values;
METHOD bound_self;
	RUN iapwssat::bound_self;
	(* mdot.lower_bound := 0 {kg/s}; *)
END bound_self;
METHOD on_load;
	RUN bound_self;
	RUN reset;
	RUN values;
END on_load;
METHOD self_test;
	ASSERT mdot == 0.1 {kg/s};
	ASSERT abs(p - 101.418{kPa}) < 0.0005{kPa};
	ASSERT abs(h - 1547.4616{kJ/kg}) < 0.0005{kJ/kg};
	ASSERT Hdot == h*mdot;
END self_test;
END satsteamstream;
1	REQUIRE "steam/iapwssat.a4c";
2
3	MODEL satsteamstream REFINES iapwssat;
4	mdot IS_A mass_rate;
5	Hdot IS_A energy_rate;
6	Hdot = mdot*h;
7	rho IS_A mass_density;
8	rho * v = 1;
9	METHODS
10	METHOD default_self;
11	RUN iapwssat::default_self;
12	rho := 200 {kg/m^3};
13	Hdot := 0.1 {kg/s} * 3000 {kJ/kg};
14	END default_self;
15	METHOD specify;
16	RUN iapwssat::specify;
17	FIX mdot;
18	END specify;
19	METHOD values;
20	RUN iapwssat::values;
21	T := 373.15 {K};
22	mdot := 0.1 {kg/s};
23	END values;
24	METHOD bound_self;
25	RUN iapwssat::bound_self;
26	(* mdot.lower_bound := 0 {kg/s}; *)
27	END bound_self;
28	METHOD on_load;
29	RUN bound_self;
30	RUN reset;
31	RUN values;
32	END on_load;
33	METHOD self_test;
34	ASSERT mdot == 0.1 {kg/s};
35	ASSERT abs(p - 101.418{kPa}) < 0.0005{kPa};
36	ASSERT abs(h - 1547.4616{kJ/kg}) < 0.0005{kJ/kg};
37	ASSERT Hdot == h*mdot;
38	END self_test;
39	END satsteamstream;