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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1042 - (show annotations) (download) (as text)
Fri Jan 5 04:53:38 2007 UTC (15 years, 11 months ago) by johnpye
File MIME type: text/x-ascend
File size: 398 byte(s)
Added saturated steam routines (taked from IAPWS 'supsat.pdf')
Added test case TestSteam for evaluating iapwssatprops.a4c documented test cases.
1 REQUIRE "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 mdot := 0.1 {kg/s};
17 END values;
18 METHOD on_load;
19 RUN bound_self;
20 RUN reset;
21 RUN values;
22 END on_load;
23 END satsteamstream;

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