/[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 1394 by johnpye, Sun Feb 4 06:28:53 2007 UTC revision 1395 by jpye, Sat Apr 21 15:11:45 2007 UTC
# Line 4  MODEL iapwssat REFINES iapwssatprops; Line 4  MODEL iapwssat REFINES iapwssatprops;
4      x IS_A fraction; (* ensures we stay in the required region *)      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;      rho IS_A mass_density;
8    
9      h_expr: h = (h_g - h_f) * x + h_f;      h_expr: h = (h_g - h_f) * x + h_f;
10      u_expr: u = (u_g - u_f) * x + u_f;      u_expr: u = (u_g - u_f) * x + u_f;
11      v_expr: v * ( rho_f * rho_g ) = (rho_g + (rho_f - rho_g)*x );      rho_expr: ( rho_f * rho_g )/ (rho_g + (rho_f - rho_g)*x ) = rho ;
12  METHODS  METHODS
13  METHOD default_self;  METHOD default_self;
14      x := 0.5;      x := 0.5;
# Line 17  METHOD default_self; Line 17  METHOD default_self;
17      h.nominal := 500 {kJ/kg};      h.nominal := 500 {kJ/kg};
18      u := 2300 {kJ/kg};      u := 2300 {kJ/kg};
19      u.nominal := 400 {kJ/kg};      u.nominal := 400 {kJ/kg};
20      v := 0.001 {m^3/kg};      rho := 1000 {kg/m^3};
21      v.nominal := 0.07 {m^3/kg};      rho.nominal := 1. / (0.07 {m^3/kg});
22      RUN iapwssatprops::default_self;      RUN iapwssatprops::default_self;
23  END default_self;  END default_self;
24  METHOD bound_self;  METHOD bound_self;
# Line 64  END testiapwssat1; Line 64  END testiapwssat1;
64  MODEL testiapwssatuv REFINES iapwssat;  MODEL testiapwssatuv REFINES iapwssat;
65  METHODS  METHODS
66  METHOD specify;  METHOD specify;
67      FIX u,v;      FIX u,rho;
68  END specify;  END specify;
69  METHOD values;  METHOD values;
70      v := 1.0 / (500 {kg/m^3});      rho := 500 {kg/m^3};
71      u := 780 {kJ/kg};      u := 780 {kJ/kg};
72  END values;  END values;
73  METHOD self_test;  METHOD self_test;
# Line 76  METHOD self_test; Line 76  METHOD self_test;
76      ASSERT abs(x - 0.004734) < 0.000001;      ASSERT abs(x - 0.004734) < 0.000001;
77  END self_test;  END self_test;
78  METHOD values2;  METHOD values2;
79      v := 1.0 / (450 {kg/m^3});      rho := 450 {kg/m^3};
80      u := 780 {kJ/kg};      u := 780 {kJ/kg};
81  END values2;  END values2;
82  METHOD self_test2;  METHOD self_test2;
Legend:
Removed from v.1394  
changed lines
  Added in v.1395
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22