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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1277 - (show annotations) (download) (as text)
Sun Feb 4 07:39:31 2007 UTC (13 years, 6 months ago) by johnpye
File MIME type: text/x-ascend
File size: 801 byte(s)
All of TestSteam passes.
Have increased zone of convergence for dsgsat3 model by changing to some central differences. Randomly.
1 REQUIRE "steam/iapwssat.a4c";
2
3 MODEL satsteamstream REFINES iapwssat;
4 mdot IS_A mass_rate;
5 rho IS_A mass_density;
6 rho * v = 1;
7 METHODS
8 METHOD default_self;
9 rho := 200 {kg/m^3};
10 rho.nominal := 10 {kg/m^3};
11 mdot := 0.1 {kg/s};
12 mdot.nominal := 0.1 {kg/s};
13 RUN iapwssat::default_self;
14 END default_self;
15 METHOD specify;
16 RUN iapwssat::specify;
17 FIX mdot;
18 END specify;
19 METHOD values;
20 RUN iapwssat::values;
21 T := 373.15 {K};
22 mdot := 0.1 {kg/s};
23 END values;
24 METHOD bound_self;
25 RUN iapwssat::bound_self;
26 mdot.lower_bound := 0 {kg/s};
27 END bound_self;
28 METHOD on_load;
29 RUN bound_self;
30 RUN reset;
31 RUN values;
32 END on_load;
33 METHOD self_test;
34 ASSERT mdot == 0.1 {kg/s};
35 ASSERT abs(p - 101.418{kPa}) < 0.0005{kPa};
36 ASSERT abs(h - 1547.4616{kJ/kg}) < 0.0005{kJ/kg};
37 END self_test;
38 END satsteamstream;

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