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

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

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

revision 1042 by johnpye, Fri Jan 5 04:53:38 2007 UTC revision 1052 by johnpye, Sat Jan 6 04:28:44 2007 UTC
# Line 1  Line 1 
1  REQUIRE "iapwssatprops.a4c";  REQUIRE "steam/iapwssatprops.a4c";
2    
3  MODEL iapwssat REFINES iapwssatprops;  MODEL iapwssat REFINES iapwssatprops;
4      x IS_A fraction;      x IS_A fraction; (* ensures we stay in the required region *)
5      h IS_A specific_enthalpy;      h IS_A specific_enthalpy;
6      u IS_A specific_energy;      u IS_A specific_energy;
7      v IS_A specific_volume;      v IS_A specific_volume;
# Line 23  METHOD on_load; Line 23  METHOD on_load;
23      RUN bound_self;      RUN bound_self;
24  END on_load;  END on_load;
25  END iapwssat;  END iapwssat;
26    
27    MODEL testiapwssat1 REFINES iapwssat;
28    METHODS
29    METHOD values;
30        RUN iapwssatprops::values;
31        x := 1.01;
32        x.upper_bound := 1.0;
33        x.lower_bound := 0.0;
34    END values;
35    METHOD self_test;
36        ASSERT x <= x.upper_bound;
37        ASSERT x >= x.lower_bound;
38    END self_test;
39    END testiapwssat1;

Legend:
Removed from v.1042  
changed lines
  Added in v.1052

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