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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 112 - (hide annotations) (download) (as text)
Wed Dec 14 06:25:28 2005 UTC (18 years, 7 months 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 johnpye 78 REQUIRE "atoms.a4l";
2     REQUIRE "stream_holdup.a4l";
3    
4 johnpye 84 CONSTANT specific_gas_constant
5     REFINES real_constant DIMENSION L^2/T^2/TMP;
6    
7 johnpye 78 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 johnpye 112
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