/[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 2296 - (show annotations) (download) (as text)
Mon Aug 16 12:10:40 2010 UTC (9 years, 5 months ago) by jpye
File MIME type: text/x-ascend
File size: 4760 byte(s)
adding negative_specific_work and positive.
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 END heat_transfer_coefficient;
18
19 ATOM specific_enthalpy REFINES solver_var
20 DIMENSION L^2/T^2
21 DEFAULT 1000{kJ/kg};
22
23 lower_bound := 0{kJ/kg};
24 upper_bound := 1e50{kJ/kg};
25 nominal := 1000{kJ/kg};
26
27 END specific_enthalpy;
28
29 ATOM specific_entropy REFINES solver_var
30 DIMENSION L^2/T^2/TMP
31 DEFAULT 6{kJ/kg/K};
32
33 lower_bound := 0{kJ/kg/K};
34 upper_bound := 1e50{kJ/kg/K};
35 nominal := 6{kJ/kg/K};
36
37 END specific_entropy;
38
39 ATOM specific_heat_capacity REFINES solver_var
40 DIMENSION L^2/T^2/TMP
41 DEFAULT 4.0{kJ/kg/K};
42
43 lower_bound := 0{kJ/kg/K};
44 upper_bound := 1e50{kJ/kg/K};
45 nominal := 4.2{kJ/kg/K};
46 END specific_heat_capacity;
47
48 ATOM heat_capacity REFINES solver_var
49 DIMENSION M*L^2/T^2/TMP
50 DEFAULT 100{kJ/K};
51 lower_bound := 0.0{kJ/K};
52 upper_bound := 1e50{kJ/K};
53 nominal := 100{kJ/K};
54 END heat_capacity;
55
56 ATOM specific_volume REFINES solver_var
57 DIMENSION L^3/M
58 DEFAULT 0.001{m^3/kg};
59
60 lower_bound := 0{m^3/kg};
61 upper_bound := 1e50{m^3/kg};
62 nominal := 0.001{m^3/kg};
63
64 END specific_volume;
65
66 ATOM specific_energy REFINES solver_var
67 DIMENSION L^2/T^2
68 DEFAULT 1000{kJ/kg};
69
70 lower_bound := 0{kJ/kg};
71 upper_bound := 1e50{kJ/kg};
72 nominal := 1000{kJ/kg};
73 END specific_energy;
74
75 ATOM positive_specific_work REFINES solver_var
76 DIMENSION L^2/T^2
77 DEFAULT 1000{kJ/kg};
78
79 lower_bound := 0{kJ/kg};
80 upper_bound := 1e50{kJ/kg};
81 nominal := 1000{kJ/kg};
82 END positive_specific_work;
83
84 ATOM negative_specific_work REFINES solver_var
85 DIMENSION L^2/T^2
86 DEFAULT -1000{kJ/kg};
87
88 lower_bound := -1e50{kJ/kg};
89 upper_bound := 0{kJ/kg};
90 nominal := -1000{kJ/kg};
91 END negative_specific_work;
92
93 ATOM delta_specific_enthalpy REFINES solver_var
94 DIMENSION L^2/T^2
95 DEFAULT -1000{kJ/kg};
96
97 lower_bound := -10000{kJ/kg};
98 upper_bound := 10000{kJ/kg};
99 nominal := 1000{kJ/kg};
100
101 END delta_specific_enthalpy;
102
103 ATOM specific_power REFINES solver_var
104 DIMENSION L^2/T^3
105 DEFAULT 100{W/kg};
106
107 lower_bound := 0{W/kg};
108 upper_bound := 1e50{W/kg};
109 nominal := 100{W/kg};
110 END specific_power;
111
112 ATOM delta_specific_power REFINES solver_var
113 DIMENSION L^2/T^3
114 DEFAULT 100{W/kg};
115
116 lower_bound := -1e50{W/kg};
117 upper_bound := 1e50{W/kg};
118 nominal := 100{W/kg};
119 END delta_specific_power;
120
121 ATOM specific_energy_rate REFINES solver_var
122 DIMENSION L^2/T^3
123 DEFAULT 100 {J/kg/s};
124
125 lower_bound := -1e50 {kJ/kg/s};
126 upper_bound := 1e50 {kJ/kg/s};
127 nominal := 100{ J/kg/s};
128 END specific_energy_rate;
129
130 ATOM specific_enthalpy_rate REFINES solver_var
131 DIMENSION L^2/T^3
132 DEFAULT 100 {J/kg/s};
133 lower_bound := -1e8 {kJ/kg/s};
134 upper_bound := 1e8 {kJ/kg/s};
135 nominal := 100{ J/kg/s};
136 END specific_enthalpy_rate;
137
138 ATOM specific_volume_rate REFINES solver_var
139 DIMENSION L^3/M/T
140 DEFAULT 100 {m^3/kg/s};
141 lower_bound := -1e50 {m^3/kg/s};
142 upper_bound := 1e50 {m^3/kg/s};
143 nominal := 100{m^3/kg/s};
144 END specific_volume_rate;
145
146 ATOM ua_value REFINES solver_var
147 DIMENSION M/T^3/TMP*L^2
148 DEFAULT 1{kW/K};
149
150 lower_bound := 0{W/K};
151 upper_bound := 1e50{W/K};
152 nominal := 1{kW/K}; (* heat up 1kg water by 1deg in 5 s *)
153 END ua_value;
154
155 ATOM thermal_resistance REFINES solver_var
156 DIMENSION TMP*T^3/M/L^2
157 DEFAULT 0.5 {K/W};
158 lower_bound := 0 {K/W};
159 upper_bound := 1e12 {K/W};
160 nominal := 0.5 {K/W};
161 END thermal_resistance;
162
163 ATOM R_value REFINES solver_var
164 DIMENSION TMP*T^3/M
165 DEFAULT 1{K*m^2/W};
166 lower_bound := 0{K*m^2/W};
167 upper_bound := 1e6 {K*m^2/W};
168 nominal := 1 {K*m^2/W};
169 END R_value;
170
171 ATOM pressure_per_temperature REFINES solver_var
172 DIMENSION M/L/T^2/TMP
173 DEFAULT 1.0{Pa/K};
174 lower_bound := -1e50{Pa/K};
175 upper_bound := 1e50{Pa/K};
176 nominal := 1.0{Pa/K};
177 END pressure_per_temperature;
178
179 ATOM energy_rate_per_length REFINES solver_var
180 DIMENSION M*L/T^3
181 DEFAULT 1000{W/m};
182 lower_bound := -1e50{W/m};
183 upper_bound := 1e50{W/m};
184 nominal := 1000{W/m};
185 END energy_rate_per_length;
186
187 ATOM energy_flux REFINES solver_var
188 DIMENSION M/T^3
189 DEFAULT 1000{W/m^2};
190 lower_bound := -1e50{W/m^2};
191 upper_bound := 1e50{W/m^2};
192 nominal := 1000{W/m^2};
193 END energy_flux;
194
195 (* for use in heat exchangers: C_c, C_h, C_min, etc. *)
196 ATOM capacity_rate REFINES power_per_temperature;
197 END capacity_rate;
198
199 MODEL thermo_state;
200 T IS_A temperature;
201 rho IS_A mass_density;
202 p IS_A pressure;
203 u IS_A specific_energy;
204 h IS_A specific_enthalpy;
205 s IS_A specific_entropy;
206 cp IS_A specific_heat_capacity;
207 cv IS_A specific_heat_capacity;
208 (* w IS_A speed; *)
209 END thermo_state;

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