Changeset 124 for branches/newlanguage/eml

Timestamp:

Jan 19, 2007, 3:54:55 PM (17 years ago)

Author:

Rafael de Pelegrini Soares

Message:

Updated some models using if conditions

Location:

branches/newlanguage/eml

Files:

• stage_separators/tray.mso (modified) (7 diffs)
• streams.mso (modified) (1 diff)

branches/newlanguage/eml/stage_separators/tray.mso

@@ -56 +56 @@
 
         PARAMETERS
-ext PP as CalcObject;
-ext NComp as Integer;
+        outer PP as Plugin;
+        outer NComp as Integer;
         V as volume(Brief="Total Volume of the tray");
         Q as heat_rate (Brief="Rate of heat supply"); 
@@ -66 +66 @@
 in      InletL as stream;
 in      InletV as stream;
-out     OutletL as stream_therm;
-out     OutletV as stream_therm;
+out     OutletL as liquid_stream;
+out     OutletV as vapour_stream;
 
         M(NComp) as mol (Brief="Molar Holdup in the tray");
@@ -119 +119 @@
         V = ML* vL + MV*vV;
         
-        "vaporization fraction "
-        OutletV.v = 1.0;
-        OutletL.v = 0.0;
-        
         "Level of clear liquid over the weir"
         Level = ML*vL/Ap;
@@ -147 +143 @@
         rhoV = PP.VapourDensity(InletV.T, InletV.P, InletV.z);
 
-        if (Level > (beta * hw)) then
+        if Level > (beta * hw) then
                 "Francis Equation"
                 OutletL.F = 1.84*"m^0.5/s"*lw*((Level-(beta*hw))/(beta))^2/vL;
@@ -163 +159 @@
 
         PARAMETERS
-ext PP as CalcObject;
-ext NComp as Integer;
+        outer PP as Plugin;
+        outer NComp as Integer;
         V as volume(Brief="Total Volume of the tray");
         Q as power (Brief="Rate of heat supply"); 
@@ -184 +180 @@
 in      InletL as stream;
 in      InletV as stream;
-out     OutletL as stream_therm;
-out     OutletV as stream_therm;
+out     OutletL as liquid_stream;
+out     OutletV as vapour_stream;
 
         yideal(NComp) as fraction;
@@ -250 +246 @@
         rhoV = PP.VapourDensity(InletV.T, InletV.P, InletV.z);
 
-        if (Level > (beta * hw)) then
+        if Level > (beta * hw) then
                 "Francis Equation"
                 OutletL.F = (1.84*"1/s"*lw*((Level-(beta*hw))/(beta))^2/vL);

branches/newlanguage/eml/streams.mso

@@ -111 +111 @@
 end
 
-Model sink2
-        VARIABLES
-        in Inlet as stream;
-end
-
 Model sink
         ATTRIBUTES