Changeset 844 for trunk/sample

Timestamp:

Sep 10, 2009, 8:47:35 AM (14 years ago)

Author:

Argimiro Resende Secchi

Message:

Adding dew and bubble point models in flash.mso.

File:

• trunk/sample/stage_separators/sample_flash.mso (modified) (3 diffs)

trunk/sample/stage_separators/sample_flash.mso

@@ -23 +23 @@
 * $Id$
 *--------------------------------------------------------------------*#
-using "stage_separators/flash";
+using "flash_new";
 
 # exemplo baseado nos dados do artigo do Gani 1985.
@@ -106 +106 @@
         DEVICES
         fl as flash_steady;
+#       fl as FlashPHSteadyA;
+#       fl as flash_steady_full;
+#       fl as flash_steady_bd;
         s1 as source;
         
@@ -119 +122 @@
         
         fl.OutletL.P = 2.5 * 'atm';
-
-        #Q.OutletQ.Q = 0 * 'kJ/h';
         fl.OutletL.T = 315.06 * 'K';
+
+#       fl.vfrac = 1;
+
+#       Q.OutletQ.Q = 0 * 'kJ/h';
         
         OPTIONS
         Dynamic = false;
-end
+#       GuessFile="flashSteady_Test";
+end
+
+FlowSheet flashSteady_bubble
+        PARAMETERS
+        PP as Plugin(Brief="Physical Properties",
+                Type="PP",
+                Components = ["1,3-butadiene", "isobutene", "n-pentane",
+                        "1-pentene", "1-hexene", "benzene"],
+                LiquidModel = "PR",
+                VapourModel = "PR"
+        );
+        NComp as Integer;
+
+        VARIABLES
+        Q       as energy_source (Brief="Heat supplied");
+        
+        SET
+        NComp = PP.NumberOfComponents;
+        
+        DEVICES
+        fl as bubble_steady;
+        s1 as source;
+        
+        CONNECTIONS
+        s1.Outlet to fl.Inlet;
+        Q.OutletQ to fl.InletQ;
+        
+        SPECIFY
+        s1.F = 496.3 * 'kmol/h';
+        s1.T = 338 * 'K';
+        s1.P = 507.1 * 'kPa';
+        s1.Composition = [0.2379,0.3082,0.09959,0.1373,0.08872,0.1283];
+        
+        fl.OutletL.P = 2.5 * 'atm';
+#       fl.OutletL.T = 315.06 * 'K';
+
+#       Q.OutletQ.Q = 0 * 'kJ/h';
+        
+        OPTIONS
+        Dynamic = false;
+#       GuessFile="flashSteady_Test";
+end
+
+FlowSheet flashSteady_dew
+        PARAMETERS
+        PP as Plugin(Brief="Physical Properties",
+                Type="PP",
+                Components = ["1,3-butadiene", "isobutene", "n-pentane",
+                        "1-pentene", "1-hexene", "benzene"],
+                LiquidModel = "PR",
+                VapourModel = "PR"
+        );
+        NComp as Integer;
+
+        VARIABLES
+        Q       as energy_source (Brief="Heat supplied");
+        
+        SET
+        NComp = PP.NumberOfComponents;
+        
+        DEVICES
+        fl as dew_steady;
+        s1 as source;
+        
+        CONNECTIONS
+        s1.Outlet to fl.Inlet;
+        Q.OutletQ to fl.InletQ;
+        
+        SPECIFY
+        s1.F = 496.3 * 'kmol/h';
+        s1.T = 338 * 'K';
+        s1.P = 507.1 * 'kPa';
+        s1.Composition = [0.2379,0.3082,0.09959,0.1373,0.08872,0.1283];
+        
+        fl.OutletL.P = 2.5 * 'atm';
+#       fl.OutletL.T = 315.06 * 'K';
+
+#       Q.OutletQ.Q = 0 * 'kJ/h';
+        
+        OPTIONS
+        Dynamic = false;
+#       GuessFile="flashSteady_Test";
+end