Changeset 57 for mso/eml/pressure_changers/valve.mso
 Timestamp:
 Nov 16, 2006, 2:46:48 PM (16 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

mso/eml/pressure_changers/valve.mso
r37 r57 1 #* 2 * Author: Estefane Horn Date:06/10/2006 3 * 4 *$Id:$ 5 * 6 * Assumptions 7 * > Steady State 8 * > Isentalpic 9 * > Liquid 10 * 11 *# 12 13 using "streams"; 14 using "pressure_changers/flux_machine_basic"; 15 16 17 Model valve_basic as flux_machine_basic_TP 18 19 PARAMETERS 20 ext PP as CalcObject (Brief = "External Physical Properties", File = "vrpp"); 21 ext NComp as Integer (Brief = "Number of chemical components", Lower = 1); 22 rho60F as dens_mass; 23 24 VARIABLES 25 Pdiff as press_delta (Brief = "Pressure Increase", Unit = "kPa"); 26 Qv as flow_vol (Brief = "Volumetric Flow"); 27 fc as positive (Brief = "Opening Function"); 28 cv as positive (Brief = "Valve Coefficient", Unit = "m^3/h/kPa^0.5"); 29 Gf as positive (Brief = "Specific Gravity"); 30 rho as dens_mass; 31 vm as vol_mol (Brief = "Mixture Molar Volume", Unit = "m^3/kmol"); 32 33 SET 34 rho60F = 99.022 * "kg/m^3"; 35 36 EQUATIONS 37 "Calculate Outlet Stream Pressure" 38 Inlet.P  Outlet.P = Pdiff; 39 40 "Enthalpy Balance" 41 Outlet.h = Inlet.h; 42 43 "Molar Balance" 44 Outlet.F = Inlet.F; 45 46 "Calculate Outlet Composition" 47 Outlet.z = Inlet.z; 48 49 "Valve Equation" 50 Qv = fc*cv*sqrt(Pdiff/Gf); 51 52 "Calculate Gf" 53 Gf = rho/rho60F; 54 55 "Calculate Specific Mass" 56 rho = PP.LiquidDensity(Inlet.T,Inlet.P,Inlet.z); 57 58 "Calculate Mass Flow" 59 Qv = Inlet.F*vm; 60 61 "Calculate Liquid Molar Volume" 62 vm = PP.LiquidVolume(Inlet.T,Inlet.P,Inlet.z); 63 64 end 65 66 Model valve_linear as valve_basic 67 68 VARIABLES 69 x as fraction (Brief = "Opening"); 70 71 EQUATIONS 72 73 "Opening Equation" 74 fc = 100*x; 75 76 end 77 78 Model valve_parabolic as valve_basic 79 80 PARAMETERS 81 n as positive (Brief = "Constant", Lower = 1.4, Upper = 2.6); 82 83 VARIABLES 84 x as fraction (Brief = "Opening"); 85 86 EQUATIONS 87 88 "Opening Equation" 89 fc = 100*x^n; 90 91 end 92 93 Model valve_equal as valve_basic 94 95 PARAMETERS 96 a as Real (Brief = "Constant", Default = 100); 97 98 VARIABLES 99 x as fraction (Brief = "Opening"); 100 101 EQUATIONS 102 103 "Opening Equation" 104 fc = 100*a^(x1); 105 106 end 107 108 Model valve_quick as valve_basic 109 110 PARAMETERS 111 a as positive (Brief = "Constant", Default = 0.05); 112 n as positive (Brief = "Constant", Default = 5); 113 114 VARIABLES 115 x as fraction (Brief = "Opening"); 116 117 EQUATIONS 118 119 "Opening Equation" 120 fc = 100*(1(a*(1x)(a1)*(1x)^n)); 121 122 end 123 1 124 #* 2 125 * Model of a valve … … 27 150 * $Id$ 28 151 **# 29 30 using "streams";31 152 32 153 Model valve
Note: See TracChangeset
for help on using the changeset viewer.