Changeset 98
 Timestamp:
 Jan 6, 2007, 10:49:32 AM (15 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

mso/eml/pressure_changers/valve.mso
r95 r98 29 29 * 30 30 * 31 * Author: Estefane Horn 31 * Author: Estefane Horn, Núbia do Carmo Ferreira 32 32 *$Id$ 33 33 **# … … 70 70 71 71 "Valve Equation" 72 Qv = fc*cv*sqrt(Pdiff/Gf); 72 #if Pdiff >= 0 then 73 # "Flow" 74 Qv = fc*cv*sqrt(Pdiff/Gf); 75 #else 76 # "Closed" 77 # Pdiff < 0 * "kmol/h"; 78 #end 73 79 74 80 "Calculate Gf" … … 109 115 110 116 "Opening Equation" 111 fc = 1 00*x^n;117 fc = 1*x^n; 112 118 113 119 end … … 124 130 125 131 "Opening Equation" 126 fc = 100*a^(x1);132 fc = a^(x1); 127 133 128 134 end … … 140 146 141 147 "Opening Equation" 142 fc = 100*(1(a*(1x)(a1)*(1x)^n));148 fc = (1(a*(1x)(a1)*(1x)^n)); 143 149 144 150 end … … 208 214 #if Inlet.P > Outlet.P then 209 215 # "Flow" 210 Outlet.F * v = k*x*sqrt((Inlet.P  Outlet.P)*rho_ref / rho ) ;216 Outlet.F * v = cv*x*sqrt((Inlet.P  Outlet.P)*rho_ref / rho ) ; 211 217 #else 212 218 # "Closed"
Note: See TracChangeset
for help on using the changeset viewer.