models/steam/iapwssat.a4c

REQUIRE "iapwssatprops.a4c";

MODEL iapwssat REFINES iapwssatprops;
	x IS_A fraction;
	h IS_A specific_enthalpy;
	u IS_A specific_energy;
	v IS_A specific_volume;

	h_expr: h = (h_g - h_f)*x + h_f;
	u_expr: u = (u_g - u_f)*x + u_f;
	v_expr: v = (rho_g + (rho_f - rho_g)*x ) / ( rho_f * rho_g );
METHODS
METHOD specify;
	RUN iapwssatprops::specify;
	FIX x;
END specify;
METHOD values;
	RUN iapwssatprops::values;
	x := 0.5;
END values;
METHOD on_load;
	RUN reset; RUN values;
	RUN bound_self;
END on_load;
END iapwssat;
1	johnpye	1042	REQUIRE "iapwssatprops.a4c";
2
3			MODEL iapwssat REFINES iapwssatprops;
4			x IS_A fraction;
5			h IS_A specific_enthalpy;
6			u IS_A specific_energy;
7			v IS_A specific_volume;
8
9			h_expr: h = (h_g - h_f)*x + h_f;
10			u_expr: u = (u_g - u_f)*x + u_f;
11			v_expr: v = (rho_g + (rho_f - rho_g)x ) / ( rho_f rho_g );
12			METHODS
13			METHOD specify;
14			RUN iapwssatprops::specify;
15			FIX x;
16			END specify;
17			METHOD values;
18			RUN iapwssatprops::values;
19			x := 0.5;
20			END values;
21			METHOD on_load;
22			RUN reset; RUN values;
23			RUN bound_self;
24			END on_load;
25			END iapwssat;