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 *)
	in.mdot * in.h + Qdot = out.mdot * out.h;

	(* no mass holdup *)
	out.mdot, in.mdot ARE_THE_SAME;

METHODS
METHOD default_self;
	RUN ClearAll;
	RUN specify;
	RUN values;
END default_self;

METHOD specify;
	RUN in.specify;
	Qdot.fixed := TRUE;
END specify;

METHOD values;
	in.T := 400 {K};
	in.p := 1 {bar};
	Qdot := 2.4 {kW};
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	in.mdot * in.h + Qdot = out.mdot * out.h;
11
12	(* no mass holdup *)
13	out.mdot, in.mdot ARE_THE_SAME;
14
15	METHODS
16	METHOD default_self;
17	RUN ClearAll;
18	RUN specify;
19	RUN values;
20	END default_self;
21
22	METHOD specify;
23	RUN in.specify;
24	Qdot.fixed := TRUE;
25	END specify;
26
27	METHOD values;
28	in.T := 400 {K};
29	in.p := 1 {bar};
30	Qdot := 2.4 {kW};
31	END values;
32
33	END heater;