Changeset 210 for branches/newlanguage/eml/pressure_changers/turbine.mso
 Timestamp:
 Mar 15, 2007, 9:52:28 AM (16 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/newlanguage/eml/pressure_changers/turbine.mso
r196 r210 37 37 outer PP as Plugin (Brief = "External Physical Properties", Type="PP"); 38 38 Mw(NComp) as molweight (Brief = "Molar Weight"); 39 Eff as positive (Default = 0.72, Brief = "Pump efficiency");40 Meff as positive (Default = 1.0, Brief = "Brake efficiency");41 Beta as positive (Default = 0, Brief = "Volumetric expansivity", Unit = '1/K');42 43 39 44 40 VARIABLES 41 Eff as efficiency (Brief = "Pump efficiency"); 42 Meff as efficiency (Brief = "Brake efficiency"); 43 Beta as positive (Brief = "Volumetric expansivity", Unit = '1/K'); 45 44 Head as head (Brief = "Head Developed"); 46 45 FPower as power (Brief = "Fluid Power"); … … 59 58 #Mixtures Properties 60 59 "Calculate Mwm for Inlet Mixture" 61 Mwm = sum(Mw ([1:NComp])*Inlet.z([1:NComp]));62 60 Mwm = sum(Mw*Inlet.z); 61 63 62 "Calculate rho using a External Physical Properties Routine" 64 63 rho = PP.LiquidDensity(Inlet.T,Inlet.P,Inlet.z); … … 78 77 79 78 "Calculate Fluid Power" 80 FPower = Pdiff * Inlet.F / (rho/Mwm);79 FPower * rho = Pdiff * Inlet.F * Mwm; 81 80 82 81 "Calculate Brake Power" … … 87 86 88 87 "Calculate Outlet Temperature" 89 (Outlet.T  Inlet.T)*Cp = (Outlet.h  Inlet.h)  Pdiff /(rho/Mwm) * (1Beta*Inlet.T); 88 (Outlet.T  Inlet.T) * rho * Cp = (Outlet.h  Inlet.h) * rho 89  Pdiff * Mwm * (1Beta*Inlet.T); 90 90 91 91 "Calculate Outlet Enthalpy" 92 Outlet.h  Inlet.h = Pdiff / (rho/Mwm);92 (Outlet.h  Inlet.h) * rho = Pdiff * Mwm; 93 93 94 94 "Molar Balance" … … 99 99 100 100 "Calculate Head" 101 Head = Pdiff/rho; 102 101 Head * rho = Pdiff; 103 102 end
Note: See TracChangeset
for help on using the changeset viewer.