Changeset 117 for branches/newlanguage/eml/streams.mso

Timestamp:

Jan 15, 2007, 4:43:56 PM (15 years ago)

Author:

Rafael de Pelegrini Soares

Message:

Updated streams and flash models to the new language being proposed

File:

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

branches/newlanguage/eml/streams.mso

@@ -23 +23 @@
 
 Model stream
+        ATTRIBUTES
+        Pallete = false;
+        Brief = "General Material Stream";
+        Documentation =
+        "This is the basic building block for the EML models.
+        Every model should have input and output streams derived
+        from this model.";
+        
         PARAMETERS
-ext     NComp as Integer (Brief = "Number of chemical components", Lower = 1); 
+        outer NComp as Integer (Brief = "Number of chemical components", Lower = 1); 
 
         VARIABLES
@@ -30 +38 @@
         T as temperature;
         P as pressure;
-        z(NComp) as fraction (Brief = "Molar Fraction");
+        z(NComp) as fraction(Brief = "Overall Molar Fraction");
         h as enth_mol;
-        v as fraction (Brief = "Vapourisation fraction");
+        v as fraction(Brief = "Vapourisation fraction");
 end
 
-Model stream_therm as stream
+Model liquid_stream as stream
+        ATTRIBUTES
+        Pallete = false;
+        Brief = "Liquid Material Stream";
+        Documentation =
+        "Model for liquid material streams.
+        This model should be used only when the phase of the stream
+        is known ''a priori''.";
+
         PARAMETERS
-        ext  PP   as CalcObject (Brief = "External Physical Properties");
+        outer PP as Plugin(Brief = "External Physical Properties", Type="PP");
         
         EQUATIONS
-        h = (1-v)*PP.LiquidEnthalpy(T, P, z) + v*PP.VapourEnthalpy(T, P, z);
+        "Liquid Enthalpy"
+        h = PP.LiquidEnthalpy(T, P, z);
+        "Liquid stream"
+        v = 0;
 end
 
-Model streamTP as stream_therm
+Model vapour_stream as stream
+        ATTRIBUTES
+        Pallete = false;
+        Brief = "Vapour Material Stream";
+        Documentation =
+        "Model for vapour material streams.
+        This model should be used only when the phase of the stream
+        is known ''a priori''.";
+
         PARAMETERS
-        ext  PP   as CalcObject (Brief = "External Physical Properties");
+        outer PP as Plugin(Brief = "External Physical Properties", Type="PP");
         
         EQUATIONS
-        v = PP.VapourFraction(T, P, z);
+        "Vapour Enthalpy"
+        h = PP.VapourEnthalpy(T, P, z);
+        "Vapour stream"
+        v = 1;
 end
 
+Model source
+        ATTRIBUTES
+        Documentation =
+        "Material stream source.
+        This model should be used for boundary streams.
+        Usually these streams are known and come from another process
+        units.";
+
+        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;
+        x(NComp) as fraction(Brief = "Liquid Molar Fraction");
+        y(NComp) as fraction(Brief = "Vapour Molar Fraction");
+        
+        EQUATIONS
+        "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
+
+Model sink
+        ATTRIBUTES
+        Documentation =
+        "Material stream sink.
+        This model should be used for boundary streams.";
+
+        PARAMETERS
+        outer PP as Plugin(Brief = "External Physical Properties", Type="PP");
+        outer NComp as Integer (Brief = "Number of chemical components", Lower = 1); 
+        
+        VARIABLES
+        in Inlet as stream;
+        v as fraction;
+        x(NComp) as fraction(Brief = "Liquid Molar Fraction");
+        y(NComp) as fraction(Brief = "Vapour Molar Fraction");
+        
+        EQUATIONS
+        "Flash Calculation"
+        [v, x, y] = PP.PHFlash(Inlet.P, Inlet.h, Inlet.z);
+end