Changeset 597 for branches/gui/eml/pressure_changers
 Timestamp:
 Aug 12, 2008, 5:33:05 PM (14 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/gui/eml/pressure_changers/turbine.mso
r596 r597 98 98 end 99 99 100 101 100 Model HidraulicTurbineGenerator as HidraulicTurbine 102 101 ATTRIBUTES … … 126 125 EPower = BPower * Meff; 127 126 end 127 128 Model expander 129 130 ATTRIBUTES 131 Pallete = true; 132 Icon = "icon/HidraulicTurbine"; 133 Brief = "Testing Model of a expander."; 134 135 PARAMETERS 136 137 outer NComp as Integer (Brief = "Number of chemical components", Lower = 1); 138 outer PP as Plugin (Brief = "External Physical Properties", Type="PP"); 139 Mw(NComp) as molweight (Brief = "Molar Weight"); 140 141 VARIABLES 142 Eff as efficiency (Brief = "Turbine efficiency"); 143 Meff as efficiency (Brief = "Brake efficiency"); 144 Beta as positive (Brief = "Volumetric expansivity", Unit = '1/K'); 145 Head as head (Brief = "Head Developed"); 146 FPower as power (Brief = "Fluid Power"); 147 BPower as power (Brief = "Brake Power"); 148 Pratio as positive (Brief = "Pressure Ratio"); 149 Pdrop as press_delta (Brief = "Pressure Drop", DisplayUnit = 'kPa', Symbol ="\Delta P"); 150 Mwm as molweight (Brief = "Mixture Molar Weight"); 151 rho as dens_mass (Brief = "Specific Mass"); 152 Cp as cp_mol (Brief = "Heat Capacity"); 153 154 in Inlet as stream (Brief = "Inlet stream", PosX=0.05, PosY=0.0, Symbol="_{in}"); 155 out Outlet as stream (Brief = "Outlet stream", PosX=0.65, PosY=1, Symbol="_{out}"); 156 out WorkOut as power (Brief = "Work Outlet", PosX=1, PosY=0.46); 157 158 SET 159 Mw = PP.MolecularWeight(); 160 161 EQUATIONS 162 163 "Calculate Mwm for Inlet Mixture" 164 Mwm = sum(Mw*Inlet.z); 165 166 "Calculate rho using a External Physical Properties Routine" 167 rho = PP.LiquidDensity(Inlet.T,Inlet.P,Inlet.z); 168 169 "Calculate Outlet Vapour Fraction" 170 Outlet.v = PP.VapourFraction(Outlet.T, Outlet.P, Outlet.z); 171 172 "Calculate Cp Using a External Physical Properties Routine" 173 Cp = PP.LiquidCp(Inlet.T,Inlet.P,Inlet.z); 174 175 "Pressure Ratio" 176 Outlet.P = Inlet.P * Pratio; 177 178 "Pressure Drop" 179 Outlet.P = Inlet.P  Pdrop; 180 181 "Calculate Fluid Power" 182 FPower * rho = Pdrop * Inlet.F * Mwm; 183 184 "Calculate Brake Power" 185 BPower = FPower * Eff; 186 187 BPower = WorkOut; 188 189 "Calculate Outlet Temperature" 190 (Outlet.T  Inlet.T) * rho * Cp = (Outlet.h  Inlet.h) * rho 191 + Pdrop * Mwm * (1Beta*Inlet.T); 192 193 "Calculate Outlet Enthalpy" 194 (Outlet.h  Inlet.h) * rho = Pdrop * Mwm; 195 196 "Molar Balance" 197 Outlet.F = Inlet.F; 198 "Outlet Composition" 199 Outlet.z = Inlet.z; 200 201 "Calculate Head" 202 Head = Outlet.h  Inlet.h; 203 204 end
Note: See TracChangeset
for help on using the changeset viewer.