Changeset 42 for mso

Timestamp:

Oct 26, 2006, 4:44:05 PM (16 years ago)

Author:

Paula Bettio Staudt

Message:

Stage separators modifications

Location:

mso

Files:

• eml/stage_separators/column.mso (modified) (1 diff)
• eml/stage_separators/tank.mso (modified) (2 diffs)
• sample/stage_separators/sample_reboiler.mso (modified) (1 diff)
• sample/stage_separators/sample_tank.mso (modified) (1 diff)

mso/eml/stage_separators/column.mso

@@ -165 +165 @@
 
         EQUATIONS
-        if (reb.OutletV.P > reb.InletL.P) then
-                "Pressure Drop through the reboiler"
-                reb.OutletV.F = trays(bot).Ah/reb.vV * sqrt((reb.OutletV.P - trays(bot).OutletL.P)
-                                / (trays(bot).beta*reb.rhoV) );
-        else
-                "No flow in reboiler"
-                reb.OutletV.F = 0.0 * "mol/s";
-        end
-
         "Pressure Drop through the tray"
         trays(top).OutletV.F = (1 + tanh(1 * (trays(top).OutletV.P - ttop.Outlet.P)/"Pa"))/2 * 

mso/eml/stage_separators/tank.mso

@@ -33 +33 @@
 out     Outlet as stream_therm;
 
-        Q as heat_rate (Brief="Rate of heat supply"); 
+in      Q as heat_rate (Brief="Rate of heat supply"); 
         Level    as length(Brief="Tank level");
         M(NComp) as mol (Brief="Molar Holdup in the tank");
@@ -77 +77 @@
 out     Outlet as stream_therm;
 
-        Q as heat_rate (Brief="Rate of heat supply"); 
+in      Q as heat_rate (Brief="Rate of heat supply"); 
         Level    as length(Brief="Tank level");
         Across as area (Brief="Tank cross section area", Default=2);

mso/sample/stage_separators/sample_reboiler.mso

@@ -57 +57 @@
         time = [0:20:1000];
 end
+
+
+FlowSheet reboilerSteady_Test
+        PARAMETERS
+        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
+        NComp   as Integer;
+
+        VARIABLES
+        Q       as heat_rate (Brief="Heat supplied");
+
+        SET
+        PP.Components = [ "isobutane", "n-pentane"];
+        PP.LiquidModel = "PR";
+        PP.VapourModel = "PR";
+        NComp = PP.NumberOfComponents;
+        
+        DEVICES
+        r1 as reboilerSteady;
+        s1 as stream_therm;
+
+        CONNECTIONS
+        s1 to r1.InletL;
+        Q to r1.Q;
+        
+        SPECIFY
+        s1.P = 185 * "kPa";
+        s1.T = 327.7 * "K";
+        s1.F = 180 * "kmol/h";
+        s1.z = [0.006061, 0.9939];
+        s1.v = 0.0;
+        
+#       Q = 3.7743e6 * "kJ/h";
+        r1.OutletV.T = 350 * "K";
+
+        SET
+        r1.DP = 10 * "kPa";
+        
+        OPTIONS
+        relativeAccuracy = 1e-5;
+        mode = "steady";
+end

mso/sample/stage_separators/sample_tank.mso

@@ -24 +24 @@
         s.z = 1.0/NComp; 
         s.v = 0.698; 
+        
         t.Q = 0 * "J/s";
         t.Outlet.F = 179 * "kmol/h";