/[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 892 - (show annotations) (download) (as text)
Thu Oct 19 14:30:21 2006 UTC (13 years, 11 months ago) by johnpye
File MIME type: text/x-ascend
File size: 2643 byte(s)
Added pressure_per_temperature.
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 ATOM heat_capacity REFINES solver_var
50 DIMENSION M*L^2/T^2/TMP
51 DEFAULT 100{kJ/K};
52 lower_bound := 0.0{kJ/K};
53 upper_bound := 1e50{kJ/K};
54 nominal := 100{kJ/K};
55 END heat_capacity;
56
57 ATOM specific_volume REFINES solver_var
58 DIMENSION L^3/M
59 DEFAULT 0.001{m^3/kg};
60
61 lower_bound := 0{m^3/kg};
62 upper_bound := 1e50{m^3/kg};
63 nominal := 0.001{m^3/kg};
64
65 END specific_volume;
66
67 ATOM specific_energy REFINES solver_var
68 DIMENSION L^2/T^2
69 DEFAULT 1000{kJ/kg};
70
71 lower_bound := 0{kJ/kg};
72 upper_bound := 1e50{kJ/kg};
73 nominal := 1000{kJ/kg};
74 END specific_energy;
75
76 ATOM specific_power REFINES solver_var
77 DIMENSION L^2/T^3
78 DEFAULT 100{W/kg};
79
80 lower_bound := 0{W/kg};
81 upper_bound := 1e50{W/kg};
82 nominal := 100{W/kg};
83 END specific_power;
84
85 ATOM delta_specific_power REFINES solver_var
86 DIMENSION L^2/T^3
87 DEFAULT 100{W/kg};
88
89 lower_bound := -1e50{W/kg};
90 upper_bound := 1e50{W/kg};
91 nominal := 100{W/kg};
92 END delta_specific_power;
93
94 ATOM ua_value REFINES solver_var
95 DIMENSION M/T^3/TMP*L^2
96 DEFAULT 1{kW/K};
97
98 lower_bound := 0{W/K};
99 upper_bound := 1e50{W/K};
100 nominal := 1{kW/K}; (* heat up 1kg water by 1deg in 5 s *)
101 END ua_value;
102
103 ATOM pressure_per_temperature REFINES solver_var
104 DIMENSION M/L/T^2/TMP
105 DEFAULT 1.0{Pa/K};
106 lower_bound := -1e50{Pa/K};
107 upper_bound := 1e50{Pa/K};
108 nominal := 1.0{Pa/K};
109 END pressure_per_temperature;
110
111 MODEL thermo_state;
112 T IS_A temperature;
113 rho IS_A mass_density;
114 p IS_A pressure;
115 u IS_A specific_energy;
116 h IS_A specific_enthalpy;
117 s IS_A specific_entropy;
118 cp IS_A specific_heat_capacity;
119 cv IS_A specific_heat_capacity;
120 (* w IS_A speed; *)
121 END thermo_state;

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