/[ascend]/trunk/models/johnpye/thermo_types.a4c
ViewVC logotype

Contents of /trunk/models/johnpye/thermo_types.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 112 - (show annotations) (download) (as text)
Wed Dec 14 06:25:28 2005 UTC (14 years ago) by johnpye
File MIME type: text/x-ascend
File size: 1647 byte(s)
Moving saturation curves into a separate file.
Adding a simple loop simulation using ideal-steam and fixed-density water.
1 REQUIRE "atoms.a4l";
2 REQUIRE "stream_holdup.a4l";
3
4 CONSTANT specific_gas_constant
5 REFINES real_constant DIMENSION L^2/T^2/TMP;
6
7 CONSTANT mass_density_constant
8 REFINES real_constant DIMENSION M/L^3;
9
10 ATOM heat_transfer_coefficient REFINES solver_var
11 DIMENSION M/T^3/TMP
12 DEFAULT 5{W/m^2/K};
13
14 lower_bound := 0{W/m^2/K};
15 upper_bound := 1e50{W/m^2/K};
16 nominal := 5{W/m^2/K};
17
18 END heat_transfer_coefficient;
19
20 ATOM specific_enthalpy REFINES solver_var
21 DIMENSION L^2/T^2
22 DEFAULT 1000{kJ/kg};
23
24 lower_bound := 0{kJ/kg};
25 upper_bound := 1e50{kJ/kg};
26 nominal := 1000{kJ/kg};
27
28 END specific_enthalpy;
29
30 ATOM specific_entropy REFINES solver_var
31 DIMENSION L^2/T^2/TMP
32 DEFAULT 6{kJ/kg/K};
33
34 lower_bound := 0{kJ/kg/K};
35 upper_bound := 1e50{kJ/kg/K};
36 nominal := 6{kJ/kg/K};
37
38 END specific_entropy;
39
40 ATOM specific_heat_capacity REFINES solver_var
41 DIMENSION L^2/T^2/TMP
42 DEFAULT 4.0{kJ/kg/K};
43
44 lower_bound := 0{kJ/kg/K};
45 upper_bound := 1e50{kJ/kg/K};
46 nominal := 4.2{kJ/kg/K};
47 END specific_heat_capacity;
48
49
50 ATOM specific_volume REFINES solver_var
51 DIMENSION L^3/M
52 DEFAULT 0.001{m^3/kg};
53
54 lower_bound := 0{m^3/kg};
55 upper_bound := 1e50{m^3/kg};
56 nominal := 0.001{m^3/kg};
57
58 END specific_volume;
59
60 ATOM specific_energy REFINES solver_var
61 DIMENSION L^2/T^2
62 DEFAULT 1000{kJ/kg};
63
64 lower_bound := 0{kJ/kg};
65 upper_bound := 1e50{kJ/kg};
66 nominal := 1000{kJ/kg};
67 END specific_energy;
68
69 MODEL thermo_state;
70 T IS_A temperature;
71 rho IS_A mass_density;
72 p IS_A pressure;
73 u IS_A specific_energy;
74 h IS_A specific_enthalpy;
75 s IS_A specific_entropy;
76 cp IS_A specific_heat_capacity;
77 cv IS_A specific_heat_capacity;
78 w IS_A speed;
79 END thermo_state;

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22