Changeset 98 for mso/eml

Timestamp:

Jan 6, 2007, 10:49:32 AM (17 years ago)

Author:

nubinha

Message:

 

File:

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

mso/eml/pressure_changers/valve.mso

@@ -29 +29 @@
 *
 *---------------------------------------------------------------------
-* Author: Estefane Horn
+* Author: Estefane Horn, Núbia do Carmo Ferreira
 *$Id$                                                                   
 *-------------------------------------------------------------------*#
@@ -70 +70 @@
 
         "Valve Equation"
-        Qv = fc*cv*sqrt(Pdiff/Gf);
+        #if Pdiff >= 0 then
+        #       "Flow"
+                Qv = fc*cv*sqrt(Pdiff/Gf);      
+        #else
+        #       "Closed"
+        #       Pdiff < 0 * "kmol/h";
+        #end
         
         "Calculate Gf"
@@ -109 +115 @@
         
         "Opening Equation"
-        fc = 100*x^n;
+        fc = 1*x^n;
 
 end
@@ -124 +130 @@
         
         "Opening Equation"
-        fc = 100*a^(x-1);
+        fc = a^(x-1);
 
 end
@@ -140 +146 @@
         
         "Opening Equation"
-        fc = 100*(1-(a*(1-x)-(a-1)*(1-x)^n));
+        fc = (1-(a*(1-x)-(a-1)*(1-x)^n));
 
 end
@@ -208 +214 @@
         #if Inlet.P > Outlet.P then
         #       "Flow"
-                Outlet.F * v = k*x*sqrt((Inlet.P - Outlet.P)*rho_ref / rho ) ;
+                Outlet.F * v = cv*x*sqrt((Inlet.P - Outlet.P)*rho_ref / rho ) ;
         #else
         #       "Closed"