Changeset 147 for branches/newlanguage/sample/miscellaneous

Timestamp:

Jan 31, 2007, 5:02:46 PM (16 years ago)

Author:

gerson bicca

Message:

testing the new language

File:

• branches/newlanguage/sample/miscellaneous/sample_streams.mso (modified) (2 diffs)

branches/newlanguage/sample/miscellaneous/sample_streams.mso

@@ -42 +42 @@
 
         OPTIONS
-        mode = "steady";
+        Dynamic = false;
 end
 
 FlowSheet SampleStreamsTherm
         PARAMETERS
-        PP   as CalcObject(Brief="Physical Properties", File="vrpp");
+        PP   as Plugin(Brief="Physical Properties", File="vrpp");
         NComp as Integer;
 
@@ -57 +57 @@
 
         DEVICES
-        sl as stream_therm;
-        sv as stream_therm;
+        sl as source;
+        sv as source;
+        
+        LiqOut  as sink;
+        VapOut as sink;
+        
+        CONNECTIONS
+        
+        sl.Outlet to LiqOut.Inlet;
+        sv.Outlet to VapOut.Inlet;
+
         
         SPECIFY
-        sl.F = 10  * "kmol/h";
-        sl.T = 300 * "K";
-        sl.P = 100 * "kPa";
-        sl.z =  [0.24596, 0.370278, 0.383762];
-        sl.v = 0.0; #liquid stream
+        sl.Outlet.F = 10  * "kmol/h";
+        sl.Outlet.T = 300 * "K";
+        sl.Outlet.P = 100 * "kPa";
+        sl.Outlet.z =  [0.24596, 0.370278, 0.383762];
+#       sl.Outlet.v = 0.0; #liquid stream
 
         
-        sv.F = 10  * "kmol/h";
-        #sv.h = 20248 * "J/mol";
-        sv.T = 300 * "K";
-        sv.P = 100 * "kPa";
-        #sv.z = [0.824212, 0.12577, 0.0500176];
-        sv.v = 1.0; #vapor stream
+        sv.Outlet.F = 10  * "kmol/h";
+        #sv.Outlet.h = 20248 * "J/mol";
+        sv.Outlet.T = 300 * "K";
+        sv.Outlet.P = 100 * "kPa";
+        #sv.Outlet.z = [0.824212, 0.12577, 0.0500176];
+#       sv.Outlet.v = 1.0; #vapor stream
 
         EQUATIONS
         "Liquid-Vapour equilibrium"
-        PP.VapourFugacityCoefficient(sv.T, sv.P, sv.z) * sv.z =
-                PP.LiquidFugacityCoefficient(sl.T, sl.P, sl.z) * sl.z;
+        PP.VapourFugacityCoefficient(sv.Outlet.T, sv.Outlet.P, sv.Outlet.z) * sv.Outlet.z =
+                PP.LiquidFugacityCoefficient(sl.Outlet.T, sl.Outlet.P, sl.Outlet.z) * sl.Outlet.z;
         
         OPTIONS
-        #mode = "steady";
+        Dynamic= true;
 end