/[ascend]/trunk/models/steam/satsteamstream.a4c
ViewVC logotype

Annotation of /trunk/models/steam/satsteamstream.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1270 - (hide annotations) (download) (as text)
Sun Feb 4 01:01:18 2007 UTC (15 years, 6 months ago) by johnpye
File MIME type: text/x-ascend
File size: 749 byte(s)
Reduced some debug output.
Added ATOM for specific_energy_rate.
Fixed default_self routines for DSG models.
Added testdsgsatrepeat test to check above.
1 johnpye 1051 REQUIRE "steam/iapwssat.a4c";
2 johnpye 1042
3     MODEL satsteamstream REFINES iapwssat;
4     mdot IS_A mass_rate;
5     rho IS_A mass_density;
6     rho * v = 1;
7     METHODS
8 johnpye 1125 METHOD default_self;
9 johnpye 1270 rho := 200 {kg/m^3};
10     mdot := 0.1 {kg/s};
11 johnpye 1125 RUN iapwssat::default_self;
12     END default_self;
13 johnpye 1042 METHOD specify;
14     RUN iapwssat::specify;
15     FIX mdot;
16     END specify;
17     METHOD values;
18     RUN iapwssat::values;
19 johnpye 1056 T := 373.15 {K};
20 johnpye 1042 mdot := 0.1 {kg/s};
21     END values;
22 johnpye 1055 METHOD bound_self;
23     RUN iapwssat::bound_self;
24 johnpye 1132 (* mdot.lower_bound := 0 {kg/s}; *)
25 johnpye 1055 END bound_self;
26 johnpye 1042 METHOD on_load;
27     RUN bound_self;
28     RUN reset;
29     RUN values;
30     END on_load;
31 johnpye 1043 METHOD self_test;
32     ASSERT mdot == 0.1 {kg/s};
33 johnpye 1056 ASSERT abs(p - 101.418{kPa}) < 0.0005{kPa};
34     ASSERT abs(h - 1547.4616{kJ/kg}) < 0.0005{kJ/kg};
35 johnpye 1043 END self_test;
36 johnpye 1042 END satsteamstream;

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