# Diff of /trunk/models/johnpye/rankine.a4c

revision 2002 by jpye, Wed Oct 8 04:23:52 2008 UTC revision 2003 by jpye, Fri Mar 13 05:30:00 2009 UTC
# Line 15  IMPORT "freesteam"; Line 15  IMPORT "freesteam";
15  MODEL steam_state;  MODEL steam_state;
16      p IS_A pressure;      p IS_A pressure;
17      h IS_A specific_enthalpy;      h IS_A specific_enthalpy;
18      u IS_A specific_energy;
v IS_A specific_volume;
19      T IS_A temperature;      T IS_A temperature;
20      x IS_A fraction;      v IS_A specific_volume;
21      s IS_A specific_entropy;      s IS_A specific_entropy;
22      mu IS_A viscosity;      x IS_A fraction;
23
24      props: iapws97_uvTxsmu_ph(      props: freesteam_Tvsx_ph(
25          p,h : INPUT;          p,h : INPUT;
26          u,v,T,x,s,mu : OUTPUT          T,v,s,x : OUTPUT
27      );      );
28  METHODS  METHODS
29      METHOD default;      METHOD default;
30          p := 10{bar};          p := 10{bar};
31          p.nominal := 42 {bar};          p.nominal := 42 {bar};
32          v.nominal := 10 {L/kg};          h := 2000 {kJ/kg};
33          u := 2000 {kJ/kg};
34          T := 400 {K};          T := 400 {K};
35            v.nominal := 10 {L/kg};
36            s := 4 {kJ/kg/K};
37          x := 0.8;          x := 0.8;
38      END default;      END default;
39      METHOD solve;      METHOD solve;
# Line 49  MODEL steam_node; Line 50  MODEL steam_node;
50      state IS_A steam_state;      state IS_A steam_state;
51      p ALIASES state.p;      p ALIASES state.p;
52      h ALIASES state.h;      h ALIASES state.h;
u ALIASES state.u;
53      v ALIASES state.v;      v ALIASES state.v;
54      T ALIASES state.T;      T ALIASES state.T;
x ALIASES state.x;
55      s ALIASES state.s;      s ALIASES state.s;
56      mu ALIASES state.mu;      x ALIASES state.x;
57      mdot IS_A mass_rate;      mdot IS_A mass_rate;
58  METHODS  METHODS
59      METHOD default;      METHOD default;

Legend:
 Removed from v.2002 changed lines Added in v.2003