models/steam/satsteamstream.a4c

REQUIRE "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 specify;
	RUN iapwssat::specify;
	FIX mdot;
END specify;
METHOD values;
	RUN iapwssat::values;
	mdot := 0.1 {kg/s};
END values;
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.325{kPa}) < 0.0005{kPa};
	ASSERT abs(h - 1547.387{kJ/kg}) < 0.0005{kJ/kg};
	ASSERT Hdot == h*mdot;
END self_test;
END satsteamstream;
1	johnpye	1042	REQUIRE "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 specify;
11			RUN iapwssat::specify;
12			FIX mdot;
13			END specify;
14			METHOD values;
15			RUN iapwssat::values;
16			mdot := 0.1 {kg/s};
17			END values;
18			METHOD on_load;
19			RUN bound_self;
20			RUN reset;
21			RUN values;
22			END on_load;
23	johnpye	1043	METHOD self_test;
24			ASSERT mdot == 0.1 {kg/s};
25			ASSERT abs(p - 101.325{kPa}) < 0.0005{kPa};
26			ASSERT abs(h - 1547.387{kJ/kg}) < 0.0005{kJ/kg};
27			ASSERT Hdot == h*mdot;
28			END self_test;
29	johnpye	1042	END satsteamstream;