Changeset 109 for mso/eml

Timestamp:

Jan 11, 2007, 8:03:27 PM (17 years ago)

Author:

Argimiro Resende Secchi

Message:

corrected the water specific density at 60F and uncommented some equations.

File:

• mso/eml/pressure_changers/valve.mso (modified) (8 diffs)

mso/eml/pressure_changers/valve.mso

@@ -27 +27 @@
 *               * Isentalpic
 *               * Liquid
-*       
+*
 *---------------------------------------------------------------------
 * Author: Estefane Horn, Núbia do Carmo Ferreira
@@ -54 +54 @@
         
         SET
-        rho60F = 99.022 * "kg/m^3";
+        rho60F = 999.2  * "kg/m^3";
         
         EQUATIONS
@@ -69 +69 @@
         Outlet.z = Inlet.z;
 
-        "Valve Equation"
-        #if Pdiff >= 0 then
-        #       "Flow"
+        if Pdiff > 0 then
+                "Valve Equation - Flow"
                 Qv = fc*cv*sqrt(Pdiff/Gf);      
-        #else
-        #       "Closed"
-        #       Pdiff < 0 * "kmol/h";
-        #end
+        else
+                "Valve Equation - Closed"
+                Qv = 0 * "m^3/h";
+        end
         
         "Calculate Gf"
@@ -92 +91 @@
 end
 
-#*----------------------------------------------------------------------
-* Model of a  valve_linear
-*---------------------------------------------------------------------*#
-#*      - Specify:
-*               * Opening fraction (x)
-*
-*---------------------------------------------------------------------*#
-
-        
 Model valve_linear as valve_basic
 
@@ -113 +103 @@
 end
 
-#*----------------------------------------------------------------------
-* Model of a valve_parabolic
-*---------------------------------------------------------------------*#
-#*      - Specify:
-*               * Opening fraction (x)
-*
-*---------------------------------------------------------------------*#
-
 Model valve_parabolic as valve_basic
 
@@ -136 +118 @@
 end
 
-#*----------------------------------------------------------------------
-* Model of a  valve_equal
-*---------------------------------------------------------------------*#
-#*      - Specify:
-*               * Opening fraction (x)
-*
-*---------------------------------------------------------------------*#
-
-        Model valve_equal as valve_basic
+Model valve_equal as valve_basic
 
         PARAMETERS
@@ -158 +132 @@
 
 end
-
-#*----------------------------------------------------------------------
-* Model of a  valve_quick
-*---------------------------------------------------------------------*#
-#*      - Specify:
-*               * Opening fraction (x)
-*
-*---------------------------------------------------------------------*#
 
 Model valve_quick as valve_basic
@@ -245 +211 @@
                 (1-Inlet.v)*PP.LiquidVolume((Inlet.T+Outlet.T)/2, (Inlet.P+Outlet.P)/2, Outlet.z);
 
-        #if Inlet.P > Outlet.P then
-        #       "Flow"
-                Outlet.F * v = cv*x*sqrt((Inlet.P - Outlet.P)*rho_ref / rho ) ;
-        #else
-        #       "Closed"
-        #       Outlet.F = 0 * "kmol/h";
-        #end
-end
+        if Inlet.P > Outlet.P then
+                "Flow"
+                Outlet.F * v = k*x*sqrt((Inlet.P - Outlet.P)*rho_ref / rho ) ;
+        else
+                "Closed"
+                Outlet.F = 0 * "kmol/h";
+        end
+end