Changeset 522 for trunk/sample/stage_separators/sample_tray.mso

Timestamp:

May 21, 2008, 8:21:12 PM (15 years ago)

Author:

Argimiro Resende Secchi

Message:

merging tray versions.

File:

• trunk/sample/stage_separators/sample_tray.mso (modified) (1 diff)

trunk/sample/stage_separators/sample_tray.mso

@@ -220 +220 @@
         TimeEnd = 100;
 end
+
+FlowSheet trayRate_Test
+        PARAMETERS
+        PP      as Plugin(Brief="Physical Properties",
+                Type="PP",
+                Components = [ "n-pentane", "benzene"],
+                LiquidModel = "PR",
+                VapourModel = "PR"
+        );
+        NComp   as Integer;
+
+        SET
+        NComp = PP.NumberOfComponents;
+        
+        DEVICES
+        t1 as trayRate;
+        feed as source;
+        feedV as source;
+        inL as liquid_stream;
+        inV as vapour_stream;
+        
+        CONNECTIONS
+        feed.Outlet to t1.Inlet;
+        feedV.Outlet to t1.InletFV;
+        inL to t1.InletL;
+        inV to t1.InletV;
+        
+        SPECIFY
+        feed.Outlet.F = 116 * 'kmol/h';
+        feed.Outlet.T = 280 * 'K';
+        feed.Outlet.P = 150 * 'kPa';
+        feed.Outlet.z = [0.5, 0.5];
+
+        feedV.Outlet.F = 0 * 'kmol/h';
+        feedV.Outlet.T = 280 * 'K';
+        feedV.Outlet.P = 150 * 'atm';
+        feedV.Outlet.z = [0.5, 0.5];
+
+        inL.P = 150 * 'kPa';
+        inL.T = 290 * 'K';
+        inL.F = 90 * 'kmol/h';
+        inL.z = [0.1641, 0.8359];
+
+        inV.P = 150 * 'kPa';
+        inV.T = 500 * 'K';
+        inV.z = [0.0584, 0.9416];
+#       inV.F = 62 * 'kmol/h';
+
+        t1.OutletV.F = 120 * 'kmol/h';
+#       t1.OutletL.F = 120 * 'kmol/h';
+        t1.interf.a = 40 * 'm^2';
+        t1.interf.htL = 10.01 * 'kW/m^2/K';
+        t1.interf.htV = 0.025 * 'kW/m^2/K';
+        t1.interf.kL = 0.00933 * 'm/s';
+        t1.interf.kV = 0.000236 * 'm/s';
+
+        SET
+        t1.V = 4 * 'ft^3';
+        t1.Ah = 0.394 * 'ft^2';
+        t1.lw = 20.94 * 'in';
+        t1.hw = 0.125 * 'ft';
+        t1.beta = 0.6;
+        t1.alfa = 4;
+        t1.Ap = 3.94 * 'ft^2';
+        t1.Q = 0 * 'kW';
+
+        INITIAL
+        t1.OutletL.T = 295 *'K';
+        t1.OutletV.T = 290 *'K';
+        t1.Level = 0.9 * t1.hw;
+        t1.OutletL.z(1) = 0.5;
+        t1.OutletV.z(1) = 0.6;
+        t1.MV = 1.0*'mol' ;
+
+        OPTIONS
+        TimeStep = 0.1;
+        TimeEnd = 10;
+        TimeUnit = 's';
+        GuessFile = "trayRate_Test.rlt";
+end