Changeset 143 for branches/newlanguage/eml

Timestamp:

Jan 30, 2007, 3:20:24 PM (17 years ago)

Author:

gerson bicca

Message:

testing some modifications for the new language

File:

• branches/newlanguage/eml/heat_exchangers/HeatExchangerSimplified.mso (modified) (6 diffs)

branches/newlanguage/eml/heat_exchangers/HeatExchangerSimplified.mso

@@ -332 +332 @@
         Outlet.Cold.z=Inlet.Cold.z;
         
-"No Phase Change In Cold Stream"
-        Inlet.Cold.v=Outlet.Cold.v;
-
-"No Phase Change In Hot Stream"
-        Inlet.Hot.v=Outlet.Hot.v;
+#"No Phase Change In Cold Stream"
+#       Inlet.Cold.v=Outlet.Cold.v;
+
+#"No Phase Change In Hot Stream"
+#       Inlet.Hot.v=Outlet.Hot.v;
 
 #======================================
@@ -445 +445 @@
 PARAMETERS
 
-        Side as Integer         (Brief="Flow Direction",Lower=0,Upper=1);
-
-SET
-
-# Return Flow Direction
-        Side = HE.FlowDir(); 
-
-EQUATIONS
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
-#       Flow Direction 
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
-if Side equal 0
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
-#       Cocurrent Flow
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#   
-        then
+        FlowDirection as Switcher(Brief="Flow Direction",Valid=["counter","cocurrent"],Default="cocurrent");
+
+EQUATIONS
+
+switch FlowDirection
+        
+        case "cocurrent":
+
 "Temperature Difference at Inlet"
         DT0 = Inlet.Hot.T - Inlet.Cold.T;
@@ -467 +459 @@
         DTL = Outlet.Hot.T - Outlet.Cold.T;
 
-        else
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
-#       Counter Flow
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#           
+case "counter":
+        
 "Temperature Difference at Inlet"
         DT0 = Inlet.Hot.T - Outlet.Cold.T;
@@ -534 +524 @@
 PARAMETERS
 
-Side as Integer (Brief="Flow Direction",Lower=0,Upper=1);
-
-SET
-
-Side = HE.FlowDir(); # Return Flow Direction
+        FlowDirection as Switcher(Brief="Flow Direction",Valid=["counter","cocurrent"],Default="cocurrent");
 
 EQUATIONS
@@ -545 +531 @@
         
         then    
-"Effectiveness"
         Eft = 1-exp(-Details.NTU);
         
         else
 
-if Side equal 0
+switch  FlowDirection
+
+        case "cocurrent":
+        
+if Details.Cr equal 1
 
         then
+        Eft = Details.NTU/(1+Details.NTU);
+        else
 "Effectiveness in Cocurrent Flow"
         Eft = (1-exp(-Details.NTU*(1+Details.Cr)))/(1+Details.Cr);
-        
-        else
+
+end
+
+        case "counter":
 
 if Details.Cr equal 1
@@ -575 +568 @@
 end
 
-        
 end