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

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

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

revision 2209 by jpye, Tue May 4 13:38:42 2010 UTC revision 2210 by jpye, Mon May 31 08:16:27 2010 UTC
# Line 102  END on_load; Line 102  END on_load;
102    
103  METHOD moran_ex_9_13;  METHOD moran_ex_9_13;
104      RUN ClearAll;      RUN ClearAll;
105      FIX Wdot;      FIX Wdot; Wdot := 45 {MW};
     Wdot := 45 {MW};  
106    
107      FIX GC.inlet.T, GC.inlet.p;      FIX GC.inlet.T, GC.inlet.p;
108      GC.inlet.T := 300 {K};      GC.inlet.T := 300 {K};
109      GC.inlet.p := 100 {kPa};      GC.inlet.p := 100 {kPa};
110      FIX GC.eta;  
     GC.eta := 0.84;  
111      FIX GC.outlet.p;      FIX GC.outlet.p;
112      GC.outlet.p := 1200 {kPa};      GC.outlet.p := 1200 {kPa};
113      FIX BU.outlet.T;  
114      BU.outlet.T := 1400 {K};      FIX GC.eta; GC.eta := 0.84;
115      FIX GT.eta, GT.outlet.p;  
116      GT.eta := 0.88;      FIX BU.outlet.T; BU.outlet.T := 1400 {K};
117      GT.outlet.p := 100 {kPa};  
118      FIX HE.outlet.T;      FIX GT.eta; GT.eta := 0.88;
119      HE.outlet.T := 400 {K};  
120        (* GT.outlet.p := 100 {kPa};*)
121        FIX HE.outlet.T; HE.outlet.T := 400 {K};
122            
123      FIX TU.inlet.T, TU.inlet.p;      FIX TU.inlet.T, TU.inlet.p;
124      TU.inlet.T := 400 {K} +  273.15 {K};      TU.inlet.T := 400 {K} +  273.15 {K};
125      TU.inlet.p := 8 {MPa};      TU.inlet.p := 8 {MPa};
126      FIX TU.eta;      FIX TU.outlet.p; TU.outlet.p := 8 {kPa};
127      TU.eta := 0.90;  
128      FIX CO.outlet.p;      FIX PU.inlet.x;
129      CO.outlet.p := 8 {kPa};      PU.inlet.x := 0.0001;
130      FIX PU.eta;  
131      PU.eta := 0.8;      FIX TU.eta; TU.eta := 0.90;
132        FIX PU.eta; PU.eta := 0.8;
133    
134      HE.outlet_cold.h := 3000 {kJ/kg};      HE.outlet_cold.h := 3000 {kJ/kg};
135    
136        (* assumed *)
137      FIX BU.eta;      FIX BU.eta;
138      BU.eta := 1;      BU.eta := 1;
139    
140      FIX CO.outlet.x;      (* starting guess, for easy solving *)
     CO.outlet.x := 0.001;  
   
141      HE.outlet_cold.h := 3000 {kJ/kg};      HE.outlet_cold.h := 3000 {kJ/kg};
142  END moran_ex_9_13;  END moran_ex_9_13;
143    
144  METHOD cengel_ex_10_9;  METHOD cengel_ex_10_9;
145      RUN ClearAll;      RUN ClearAll;
146      FIX Wdot;      FIX Wdot; Wdot := 100 {MW};
147      Wdot := 100 {MW};  
148        FIX GC.inlet.p; GC.inlet.p := 1 {atm}; (* assumed *)
149    
150        FIX braytonpressureratio; braytonpressureratio := 8;
151    
152        FIX GC.inlet.T; GC.inlet.T := 300 {K};
153        FIX GT.inlet.T; GT.inlet.T := 1300 {K};
154    
     FIX braytonpressureratio;  
     braytonpressureratio := 8;  
     FIX GC.inlet.p, GC.inlet.T;  
     GC.inlet.p := 1 {atm};  
     GC.inlet.T := 300 {K};  
     FIX GT.inlet.T;  
     GT.inlet.T := 1300 {K};  
155      FIX GC.eta; GC.eta := 0.8;      FIX GC.eta; GC.eta := 0.8;
156      FIX GT.eta; GT.eta := 0.85;      FIX GT.eta; GT.eta := 0.85;
       
     FIX TU.inlet.p, CO.outlet.p;  
     TU.inlet.p := 7 {MPa};  
     CO.outlet.p := 5 {kPa};  
     FIX CO.outlet.x;  
     CO.outlet.x := 0.001;  
     FIX TU.inlet.T;  
     TU.inlet.T := 500 {K} +  273.15 {K};  
     FIX DI.inlet.T;  
     DI.inlet.T := 450 {K};  
157    
158      FIX BU.eta; BU.eta := 1;      FIX TU.inlet.p; TU.inlet.p := 7 {MPa};
159        FIX CO.outlet.p; CO.outlet.p := 5 {kPa};
160    
161        FIX TU.inlet.T; TU.inlet.T := 500 {K} +  273.15 {K};
162        FIX DI.inlet.T; DI.inlet.T := 450 {K};
163    
164        (* 'complete' condensation... bit of a hack *)
165        FIX CO.outlet.x; CO.outlet.x := 0.0001;
166    
167        (* 'simple ideal Rankine cycle *)
168      FIX TU.eta; TU.eta := 1;      FIX TU.eta; TU.eta := 1;
169        FIX BU.eta; BU.eta := 1;
170      FIX PU.eta; PU.eta := 1;      FIX PU.eta; PU.eta := 1;
171    
172        (* first guess, for easy solving *)
173      HE.outlet_cold.h := 3000 {kJ/kg};      HE.outlet_cold.h := 3000 {kJ/kg};
   
174  END cengel_ex_10_9;  END cengel_ex_10_9;
175    
176  END combinedcycle;    END combinedcycle;
177    
178    
179    

Legend:
Removed from v.2209  
changed lines
  Added in v.2210

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