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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1269 by johnpye, Sun Jan 14 10:40:58 2007 UTC revision 1270 by johnpye, Sun Feb 4 01:01:18 2007 UTC
# Line 2  REQUIRE "steam/iapwssat.a4c"; Line 2  REQUIRE "steam/iapwssat.a4c";
2    
3  MODEL satsteamstream REFINES iapwssat;  MODEL satsteamstream REFINES iapwssat;
4      mdot IS_A mass_rate;      mdot IS_A mass_rate;
     Hdot IS_A energy_rate;  
     Hdot = mdot*h;  
5      rho IS_A mass_density;      rho IS_A mass_density;
6      rho * v = 1;      rho * v = 1;
7  METHODS  METHODS
8  METHOD default_self;  METHOD default_self;
     RUN iapwssat::default_self;  
9      rho := 200 {kg/m^3};      rho := 200 {kg/m^3};
10      Hdot := 0.1 {kg/s} * 3000 {kJ/kg};      mdot := 0.1 {kg/s};
11        RUN iapwssat::default_self;
12  END default_self;  END default_self;
13  METHOD specify;  METHOD specify;
14      RUN iapwssat::specify;      RUN iapwssat::specify;
# Line 34  METHOD self_test; Line 32  METHOD self_test;
32      ASSERT mdot == 0.1 {kg/s};      ASSERT mdot == 0.1 {kg/s};
33      ASSERT abs(p - 101.418{kPa}) < 0.0005{kPa};      ASSERT abs(p - 101.418{kPa}) < 0.0005{kPa};
34      ASSERT abs(h - 1547.4616{kJ/kg}) < 0.0005{kJ/kg};      ASSERT abs(h - 1547.4616{kJ/kg}) < 0.0005{kJ/kg};
     ASSERT Hdot == h*mdot;  
35  END self_test;  END self_test;
36  END satsteamstream;  END satsteamstream;

Legend:
Removed from v.1269  
changed lines
  Added in v.1270

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