Changeset 124

Timestamp:

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

Author:

Rafael de Pelegrini Soares

Message:

Updated some models using if conditions

Location:

branches/newlanguage

Files:

• eml/stage_separators/tray.mso (modified) (7 diffs)
• eml/streams.mso (modified) (1 diff)
• sample/miscellaneous/sample_if.mso (modified) (1 diff)
• sample/stage_separators/sample_flash.mso (modified) (1 diff)
• sample/stage_separators/sample_stream.mso (modified) (2 diffs)

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

branches/newlanguage/sample/miscellaneous/sample_if.mso

@@ -45 +45 @@
         y = 0;
         
-        OPTIONS
-        time = [0:0.01:10];
 end
 

branches/newlanguage/sample/stage_separators/sample_flash.mso

@@ -68 +68 @@
         fl.OutletL.T = 338 *"K";
         fl.Level = 1 * "m";
+
         fl.OutletL.z(1) = 0.1;
         fl.OutletL.z(2) = 0.1;

branches/newlanguage/sample/stage_separators/sample_stream.mso

@@ -39 +39 @@
         DEVICES
         s1 as source;
-        s2 as sink2;
+        s2 as sink;
         
         CONNECTIONS
@@ -52 +52 @@
 
         OPTIONS
-        RelativeAccuracy = 1e-7;
-        AbsoluteAccuracy = 1e-9;
+        RelativeAccuracy = 1e-4;
+        AbsoluteAccuracy = 1e-8;
         Dynamic = false;
         TimeStep = 0.1;