/[ascend]/trunk/models/johnpye/iapws95.a4c
ViewVC logotype

Diff of /trunk/models/johnpye/iapws95.a4c

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

revision 105 by johnpye, Mon Dec 12 11:40:30 2005 UTC revision 106 by johnpye, Mon Dec 12 12:14:48 2005 UTC
# Line 588  END test_3; Line 588  END test_3;
588    
589  END iapws_saturation_curves;  END iapws_saturation_curves;
590    
591    MODEL iapws95_sat;
592        Sf IS_A iapws95;
593        Sg IS_A iapws95;
594        sat IS_A iapws_saturation_curves;
595        sat.rhof, Sf.rho ARE_THE_SAME;
596        sat.rhog, Sg.rho ARE_THE_SAME;
597        Sf.T, Sg.T, sat.T ARE_THE_SAME;
598        rhof ALIASES Sf.rho;
599        rhog ALIASES Sg.rho;
600        T ALIASES Sf.T;
601        p ALIASES Sf.p;
602    
603        x IS_A factor;
604        rho IS_A mass_density;
605    
606        rhog*rhof = rho*rhog + rho*(rhof - rhog) *x;
607    
608        u IS_A specific_energy;
609        u = Sf.u + (Sg.u -Sf.u) *x;
610        
611        h IS_A specific_enthalpy;
612        h = Sf.h + (Sg.h -Sf.h) *x;
613    
614        s IS_A specific_entropy;
615        s = Sf.s + (Sg.s -Sf.s) *x;
616    
617        cp IS_A specific_heat_capacity;
618        cp = Sf.cp + (Sg.cp -Sf.cp) *x;
619    
620        cv IS_A specific_heat_capacity;
621        cv = Sf.cv + (Sg.cv -Sf.cv) *x;
622    
623    METHODS
624    
625    METHOD default_self;
626        RUN ClearAll;
627        RUN specify;
628        RUN values;
629    END default_self;
630    
631    METHOD specify;
632        T.fixed := TRUE;
633        x.fixed := TRUE;
634    END specify;
635    
636    METHOD values;
637        T := 390 {K};
638        x := 0.5;
639    END values;
640        
641    END iapws95_sat;        
642    
643  (*  (*
644  MODEL iapws95_sat(  MODEL iapws95_sat(
645          rhof WILL_BE mass_density;          rhof WILL_BE mass_density;

Legend:
Removed from v.105  
changed lines
  Added in v.106

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