models/johnpye/heater.a4c

REQUIRE "johnpye/steam_equipment.a4c";

(** An abstract model for a steam equipment item *)

MODEL heater REFINES steam_equipment;

	Qdot IS_A energy_rate;

	(* first law of thermo *)
	((out.mdot*out.h) - (in.mdot*in.h)) = Qdot;

	(* no mass holdup *)
	out.mdot, in.mdot ARE_THE_SAME;
	out.p, in.p ARE_THE_SAME;
METHODS
METHOD default_self;
	RUN ClearAll;
	RUN specify;
	RUN values;
END default_self;

METHOD specify;
	FIX in.p;
	FIX in.h;
	FIX Qdot;
END specify;

METHOD values;
	(* fixed values *)
	in.p := 1 {bar};
	in.h := 2500 {kJ/kg};
	Qdot := 1 {kW};
	(* initial guesses *)
	out.h := 2600 {kJ/kg};
	out.p := 1 {bar};
END values;

END heater;
1	REQUIRE "johnpye/steam_equipment.a4c";
2
3	(** An abstract model for a steam equipment item *)
4
5	MODEL heater REFINES steam_equipment;
6
7	Qdot IS_A energy_rate;
8
9	(* first law of thermo *)
10	((out.mdotout.h) - (in.mdotin.h)) = Qdot;
11
12	(* no mass holdup *)
13	out.mdot, in.mdot ARE_THE_SAME;
14	out.p, in.p ARE_THE_SAME;
15	METHODS
16	METHOD default_self;
17	RUN ClearAll;
18	RUN specify;
19	RUN values;
20	END default_self;
21
22	METHOD specify;
23	FIX in.p;
24	FIX in.h;
25	FIX Qdot;
26	END specify;
27
28	METHOD values;
29	(* fixed values *)
30	in.p := 1 {bar};
31	in.h := 2500 {kJ/kg};
32	Qdot := 1 {kW};
33	(* initial guesses *)
34	out.h := 2600 {kJ/kg};
35	out.p := 1 {bar};
36	END values;
37
38	END heater;