- Timestamp:
- Oct 26, 2006, 4:44:05 PM (16 years ago)
- Location:
- mso
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
mso/eml/stage_separators/column.mso
r38 r42 165 165 166 166 EQUATIONS 167 if (reb.OutletV.P > reb.InletL.P) then168 "Pressure Drop through the reboiler"169 reb.OutletV.F = trays(bot).Ah/reb.vV * sqrt((reb.OutletV.P - trays(bot).OutletL.P)170 / (trays(bot).beta*reb.rhoV) );171 else172 "No flow in reboiler"173 reb.OutletV.F = 0.0 * "mol/s";174 end175 176 167 "Pressure Drop through the tray" 177 168 trays(top).OutletV.F = (1 + tanh(1 * (trays(top).OutletV.P - ttop.Outlet.P)/"Pa"))/2 * -
mso/eml/stage_separators/tank.mso
r1 r42 33 33 out Outlet as stream_therm; 34 34 35 Q as heat_rate (Brief="Rate of heat supply");35 in Q as heat_rate (Brief="Rate of heat supply"); 36 36 Level as length(Brief="Tank level"); 37 37 M(NComp) as mol (Brief="Molar Holdup in the tank"); … … 77 77 out Outlet as stream_therm; 78 78 79 Q as heat_rate (Brief="Rate of heat supply");79 in Q as heat_rate (Brief="Rate of heat supply"); 80 80 Level as length(Brief="Tank level"); 81 81 Across as area (Brief="Tank cross section area", Default=2); -
mso/sample/stage_separators/sample_reboiler.mso
r33 r42 57 57 time = [0:20:1000]; 58 58 end 59 60 61 FlowSheet reboilerSteady_Test 62 PARAMETERS 63 PP as CalcObject(Brief="Physical Properties",File="vrpp"); 64 NComp as Integer; 65 66 VARIABLES 67 Q as heat_rate (Brief="Heat supplied"); 68 69 SET 70 PP.Components = [ "isobutane", "n-pentane"]; 71 PP.LiquidModel = "PR"; 72 PP.VapourModel = "PR"; 73 NComp = PP.NumberOfComponents; 74 75 DEVICES 76 r1 as reboilerSteady; 77 s1 as stream_therm; 78 79 CONNECTIONS 80 s1 to r1.InletL; 81 Q to r1.Q; 82 83 SPECIFY 84 s1.P = 185 * "kPa"; 85 s1.T = 327.7 * "K"; 86 s1.F = 180 * "kmol/h"; 87 s1.z = [0.006061, 0.9939]; 88 s1.v = 0.0; 89 90 # Q = 3.7743e6 * "kJ/h"; 91 r1.OutletV.T = 350 * "K"; 92 93 SET 94 r1.DP = 10 * "kPa"; 95 96 OPTIONS 97 relativeAccuracy = 1e-5; 98 mode = "steady"; 99 end -
mso/sample/stage_separators/sample_tank.mso
r33 r42 24 24 s.z = 1.0/NComp; 25 25 s.v = 0.698; 26 26 27 t.Q = 0 * "J/s"; 27 28 t.Outlet.F = 179 * "kmol/h";
Note: See TracChangeset
for help on using the changeset viewer.