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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1042 - (hide annotations) (download) (as text)
Fri Jan 5 04:53:38 2007 UTC (15 years, 7 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 johnpye 1042 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