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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1056 - (show annotations) (download) (as text)
Sat Jan 6 15:04:40 2007 UTC (13 years, 3 months ago) by johnpye
File MIME type: text/x-ascend
File size: 696 byte(s)
Fixing up setpoint in satsteamstream test.
Commenting out failing tests (with @TODO comments)
1 REQUIRE "steam/iapwssat.a4c";
2
3 MODEL satsteamstream REFINES iapwssat;
4 mdot IS_A mass_rate;
5 Hdot IS_A energy_rate;
6 Hdot = mdot*h;
7 rho IS_A mass_density;
8 rho * v = 1;
9 METHODS
10 METHOD specify;
11 RUN iapwssat::specify;
12 FIX mdot;
13 END specify;
14 METHOD values;
15 RUN iapwssat::values;
16 T := 373.15 {K};
17 mdot := 0.1 {kg/s};
18 END values;
19 METHOD bound_self;
20 RUN iapwssat::bound_self;
21 mdot.lower_bound := 0 {kg/s};
22 END bound_self;
23 METHOD on_load;
24 RUN bound_self;
25 RUN reset;
26 RUN values;
27 END on_load;
28 METHOD self_test;
29 ASSERT mdot == 0.1 {kg/s};
30 ASSERT abs(p - 101.418{kPa}) < 0.0005{kPa};
31 ASSERT abs(h - 1547.4616{kJ/kg}) < 0.0005{kJ/kg};
32 ASSERT Hdot == h*mdot;
33 END self_test;
34 END satsteamstream;

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