Changeset 579 for branches/gui/eml/streams.mso

Timestamp:

Jul 26, 2008, 4:01:45 PM (14 years ago)

Author:

gerson bicca

Message:

more updates on EML

File:

• branches/gui/eml/streams.mso (modified) (2 diffs)

branches/gui/eml/streams.mso

@@ -143 +143 @@
 end
 
-Model simple_source
-        ATTRIBUTES
-        Pallete = true;
-        Icon = "icon/Source";
-        Brief = "Simple material stream source";
-        Info = "
-        This model should be used for boundary streams.
-        Usually these streams are known and come from another process
-        units.
-
-        The user should specify:
-         * Total molar flow
-         * Temperature
-         * Pressure
-         * Molar composition
-        ";
-
-        PARAMETERS
-        outer PP                        as Plugin               (Brief = "External Physical Properties", Type="PP");
-        outer NComp             as Integer              (Brief = "Number of chemical components", Lower = 1); 
-        
-        VARIABLES
-        out Outlet                      as stream               (Brief = "Outlet stream", PosX=1, PosY=0.5256, Symbol="_{out}");
-        x(NComp)                        as fraction             (Brief = "Liquid Molar Fraction",Hidden=true);
-        y(NComp)                        as fraction             (Brief = "Vapour Molar Fraction",Hidden=true);
-        hl                                      as enth_mol             (Brief = "Liquid Enthalpy");
-        hv                                      as enth_mol             (Brief = "Vapour Enthalpy");
-        s                                       as entr_mol             (Brief = "Stream Entropy");
-        sl                                      as entr_mol             (Brief = "Liquid Entropy");
-        sv                                      as entr_mol             (Brief = "Vapour Entropy");     
-
-        EQUATIONS
-        "Flash Calculation"
-        [Outlet.v, x, y] = PP.Flash(Outlet.T, Outlet.P, Outlet.z);
-        
-        "Overall Enthalpy"
-        Outlet.h = (1-Outlet.v)*hl + Outlet.v*hv;
-
-        "Liquid Enthalpy"
-        hl = PP.LiquidEnthalpy(Outlet.T, Outlet.P, x);
-
-        "Vapour Enthalpy"
-        hv = PP.VapourEnthalpy(Outlet.T, Outlet.P, y);
-        
-        "Overall Entropy"
-        s = (1-Outlet.v)*sl + Outlet.v*sv;
-
-        "Liquid Entropy"
-        sl = PP.LiquidEntropy(Outlet.T, Outlet.P, x);
-        
-        "Vapour Entropy"
-        sv = PP.VapourEntropy(Outlet.T, Outlet.P, y);
-end
-
 Model sink
         ATTRIBUTES
@@ -582 +528 @@
 
 end
+
+Model simple_source
+
+ATTRIBUTES
+        Pallete = true;
+        Icon = "icon/Source";
+        Brief = "Simple Material stream source";
+        Info = "
+        This model should be used for boundary streams.
+        Usually these streams are known and come from another process
+        units.
+
+        The user should specify:
+         * Total molar flow
+         * Temperature
+         * Pressure
+         * Molar composition
+";
+
+PARAMETERS
+        outer PP                                                as Plugin                       (Brief = "External Physical Properties", Type="PP");
+        outer NComp                             as Integer                      (Brief = "Number of chemical components", Lower = 1); 
+                  M(NComp)                              as molweight    (Brief = "Component Mol Weight");
+                  ValidPhases                           as Switcher             (Brief = "Valid Phases for Flash Calculation", Valid = ["Vapour-Only", "Liquid-Only","Vapour-Liquid"], Default="Vapour-Liquid");
+        
+
+SET
+
+        M   = PP.MolecularWeight();
+
+VARIABLES
+
+        out Outlet                      as stream                       (Brief = "Outlet stream", PosX=1, PosY=0.5256, Symbol="_{out}",Protected=false);
+        
+        MolarComposition(NComp) as fraction                     (Brief = "Stream Molar Composition");
+        F                                                               as flow_mol             (Brief = "Stream Molar Flow Rate");
+        T                                                               as temperature  (Brief = "Stream Temperature");
+        T_Cdeg                                          as temperature  (Brief = "Temperature in °C", Lower=-200);
+        P                                                               as pressure             (Brief = "Stream Pressure");
+        
+        x(NComp)                        as fraction                     (Brief = "Liquid Molar Fraction",Hidden=true);
+        y(NComp)                        as fraction                     (Brief = "Vapour Molar Fraction",Hidden=true);
+        
+
+EQUATIONS
+
+"Stream Molar Composition"
+        Outlet.z = MolarComposition/sum(MolarComposition); 
+
+
+switch ValidPhases
+        
+        case "Liquid-Only":
+
+"Vapour Fraction"
+        Outlet.v = 0;
+
+"Liquid Composition"
+        x = Outlet.z;
+
+"Vapour Composition"
+        y = Outlet.z;
+
+"Overall Enthalpy"
+        Outlet.h = PP.LiquidEnthalpy(Outlet.T, Outlet.P, x);
+
+
+        case "Vapour-Only":
+
+"Vapor Fraction"
+        Outlet.v = 1;
+
+"Liquid Composition"
+        x = Outlet.z;
+
+"Vapour Composition"
+        y = Outlet.z;
+
+"Overall Enthalpy"
+        Outlet.h = PP.VapourEnthalpy(Outlet.T, Outlet.P, y);
+
+
+        case "Vapour-Liquid":
+
+"Flash Calculation"
+        [Outlet.v, x, y] = PP.Flash(Outlet.T, Outlet.P, Outlet.z);
+
+"Overall Enthalpy"
+        Outlet.h = (1-Outlet.v)*PP.LiquidEnthalpy(Outlet.T, Outlet.P, x) + Outlet.v*PP.VapourEnthalpy(Outlet.T, Outlet.P, y);
+
+
+end
+
+"Temperature in °C"
+        T_Cdeg = Outlet.T - 273.15 * 'K';
+
+"Equate Flow"
+        Outlet.F = F;
+
+"Equate Pressures"
+        Outlet.P = P;
+
+"Equate Temperatures"
+        Outlet.T = T;
+
+end