models/steam/satsteamstream.a4c

REQUIRE "steam/iapwssat.a4c";

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