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

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

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

revision 1774 by jpye, Tue Dec 18 07:38:18 2007 UTC revision 1775 by jpye, Wed May 21 09:51:59 2008 UTC
# Line 529  MODEL rankine_regen; Line 529  MODEL rankine_regen;
529      q_a IS_A specific_energy;      q_a IS_A specific_energy;
530      q_a = TU1.inlet.h - PU2.outlet.h;      q_a = TU1.inlet.h - PU2.outlet.h;
531    
532        Wdot IS_A energy_rate;
533        Wdot = TU1.Wdot + TU2.Wdot + PU1.Wdot + PU2.Wdot;
534    
535      cons_en: HE.inlet.mdot * HE.inlet.h + HE.inlet_heat.mdot * HE.inlet_heat.h = HE.outlet.mdot * HE.outlet.h;      cons_en: HE.inlet.mdot * HE.inlet.h + HE.inlet_heat.mdot * HE.inlet_heat.h = HE.outlet.mdot * HE.outlet.h;
536    
537  METHODS  METHODS
538  (*  METHOD moran_ex_8_5;
539      The on_load scenario here is example 2.6 from K Weston (op. cit.), p. 55.      (*
540  *)          This is Example 8.5 from Moran and Shapiro, 'Fundamentals of
541  METHOD on_load;          Engineering Thermodynamics', 4th Ed.
542        *)
543        RUN ClearAll;
544        (* component efficiencies *)
545        FIX BO.eta;  BO.eta := 1.0;
546        FIX TU1.eta; TU1.eta := 0.85;
547        FIX TU2.eta; TU2.eta := 0.85;
548        FIX PU1.eta; PU1.eta := 1.0;
549        FIX PU2.eta; PU2.eta := 1.0;
550        (* turbine conditions *)
551        FIX TU1.inlet.p; TU1.inlet.p := 8. {MPa};
552        FIX TU1.inlet.T; TU1.inlet.T := 480 {K} + 273.15 {K};
553        FIX TU1.outlet.p; TU1.outlet.p := 0.7 {MPa};
554        FIX TU2.outlet.p; TU2.outlet.p := 0.008 {MPa};
555        (* heater conditions *)
556        FIX HE.outlet.p; HE.outlet.p := 0.7 {MPa};
557        FIX HE.outlet.x; HE.outlet.x := 0.001;
558        FIX Wdot; Wdot := 100 {MW};
559    END moran_ex_8_5;  
560    METHOD weston_ex_2_6;
561        (*
562            The scenario here is example 2.6 from K Weston (op. cit.), p. 55.
563        *)
564      RUN ClearAll;      RUN ClearAll;
565    
566      (* all ideal components *)      (* all ideal components *)
# Line 589  METHOD on_load; Line 614  METHOD on_load;
614      (* FIX BL.outlet.h;      (* FIX BL.outlet.h;
615      BL.outlet.h := 355.5 {btu/lbm}; *)      BL.outlet.h := 355.5 {btu/lbm}; *)
616            
617  END on_load;  END weston_ex_2_6;
618  METHOD self_test;  METHOD self_test;
619      ASSERT abs(TU1.inlet.s - 1.5603 {btu/lbm/R}) < 0.01 {btu/lbm/R};      ASSERT abs(TU1.inlet.s - 1.5603 {btu/lbm/R}) < 0.01 {btu/lbm/R};
620      ASSERT abs(TU1.outlet.s - 1.5603 {btu/lbm/R}) < 0.01 {btu/lbm/R};      ASSERT abs(TU1.outlet.s - 1.5603 {btu/lbm/R}) < 0.01 {btu/lbm/R};

Legend:
Removed from v.1774  
changed lines
  Added in v.1775

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