Changeset 149 for branches/newlanguage/eml

Timestamp:

Feb 5, 2007, 9:31:00 AM (17 years ago)

Author:

gerson bicca

Message:

updated samples and testing new heat exchangers models

File:

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

branches/newlanguage/eml/heat_exchangers/HeatExchangerSimplified.mso

@@ -348 +348 @@
 end
 
-Model Heatex_Basic_NTU           as HeatExchangerSimplified_Basic
+Model Heatex_Basic_NTU                  as HeatExchangerSimplified_Basic
 
 ATTRIBUTES
@@ -368 +368 @@
 end
 
-Model Heatex_Basic_LMTD          as HeatExchangerSimplified_Basic
+Model Heatex_Basic_LMTD                 as HeatExchangerSimplified_Basic
 
 ATTRIBUTES
@@ -418 +418 @@
 end
 
-Model HeatExchanger_LMTD         as Heatex_Basic_LMTD
+Model HeatExchanger_LMTD                as Heatex_Basic_LMTD
 
 ATTRIBUTES
@@ -453 +453 @@
 end
 
-Model Shell_and_Tubes_LMTD  as Heatex_Basic_LMTD 
+Model Shell_and_Tubes_LMTD      as Heatex_Basic_LMTD 
         
 ATTRIBUTES
@@ -635 +635 @@
 end
 
-Model HeatExchanger_NTU         as Heatex_Basic_NTU
+Model HeatExchanger_NTU                 as Heatex_Basic_NTU
 
 ATTRIBUTES
@@ -684 +684 @@
 
 end
-
-Model E_Shell_NTU                               as Heatex_Basic_NTU
-        
+ 
+Model Shell_and_Tubes_NTU       as Heatex_Basic_NTU
+
 ATTRIBUTES
         Pallete         = true;
-        Brief           = "Shell and Tubes Heat Exchanger with 1 shell pass - NTU Method";
+        Brief           = "Shell and Tubes Heat Exchanger with 1 or 2 shell pass - NTU Method";
         Info            =
         "write some information";
 
+PARAMETERS
+
+ShellType                as Switcher(Brief="TEMA Designation",Valid=["Eshell","Fshell"],Default="Eshell");
+
+VARIABLES
+
+Eft1    as positive (Brief="Effectiveness Correction",Lower=0.01,Upper=1,Default=0.5);
+
 EQUATIONS
-"TEMA E Shell Effectiveness"
-        Eft = 2*(1+Details.Cr+sqrt(1+Details.Cr^2)*((1+exp(-Details.NTU*sqrt(1+Details.Cr^2)))/(1-exp(-Details.NTU*sqrt(1+Details.Cr^2)))) )^-1;
-
-end
-
-Model F_Shell_NTU                       as Heatex_Basic_NTU
-
-ATTRIBUTES
-        Pallete         = true;
-        Brief           = "Shell and Tubes Heat Exchanger with 2 shell pass - NTU Method";
-        Info            =
-        "write some information";
-        
-VARIABLES
-
-Eft1    as positive (Brief="Effectiveness Correction",Lower=0.01,Upper=1,Default=0.5);
-
-EQUATIONS
-
-"Effectiveness Correction"
+
+switch ShellType
+        
+        case "Fshell":
+        
+"Effectiveness Correction for 2 pass shell side"
         Eft1 = 2*(1+Details.Cr+sqrt(1+Details.Cr^2)*((1+exp(-Details.NTU*sqrt(1+Details.Cr^2)))/(1-exp(-Details.NTU*sqrt(1+Details.Cr^2)))) )^-1;
 
@@ -719 +713 @@
         Eft = ( ((1-Eft1*Details.Cr)/(1-Eft1))^2 -1  )*( ((1-Eft1*Details.Cr)/(1-Eft1))^2 - Details.Cr )^-1; 
 
-end
+        case "Eshell":
+        
+"TEMA E Shell Effectiveness"
+        Eft     = 2*(1+Details.Cr+sqrt(1+Details.Cr^2)*((1+exp(-Details.NTU*sqrt(1+Details.Cr^2)))/(1-exp(-Details.NTU*sqrt(1+Details.Cr^2)))) )^-1;
+
+"Variable not in use when 1 Pass Shell Side"
+        Eft1    = Eft;
+        
+end
+
+end