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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1395 - (show annotations) (download) (as text)
Sat Apr 21 15:11:45 2007 UTC (17 years, 3 months ago) by jpye
File MIME type: text/x-ascend
File size: 763 byte(s)
Added full jacobian preconditioner (ongoing).
Some tweaks to dsgsat & related models.
1 REQUIRE "steam/iapwssat.a4c";
2
3 MODEL satsteamstream REFINES iapwssat;
4 mdot IS_A mass_rate;
5 METHODS
6 METHOD default_self;
7 rho := 200 {kg/m^3};
8 rho.nominal := 10 {kg/m^3};
9 mdot := 0.1 {kg/s};
10 mdot.nominal := 0.1 {kg/s};
11 RUN iapwssat::default_self;
12 END default_self;
13 METHOD specify;
14 RUN iapwssat::specify;
15 FIX mdot;
16 END specify;
17 METHOD values;
18 RUN iapwssat::values;
19 T := 373.15 {K};
20 mdot := 0.1 {kg/s};
21 END values;
22 METHOD bound_self;
23 RUN iapwssat::bound_self;
24 mdot.lower_bound := 0 {kg/s};
25 END bound_self;
26 METHOD on_load;
27 RUN bound_self;
28 RUN reset;
29 RUN values;
30 END on_load;
31 METHOD self_test;
32 ASSERT mdot == 0.1 {kg/s};
33 ASSERT abs(p - 101.418{kPa}) < 0.0005{kPa};
34 ASSERT abs(h - 1547.4616{kJ/kg}) < 0.0005{kJ/kg};
35 END self_test;
36 END satsteamstream;

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