Changeset 478

Timestamp:

Mar 7, 2008, 8:32:49 PM (16 years ago)

Author:

gerson bicca

Message:

added sample with the option to solve a convergence problem

Location:

trunk

Files:

• eml/heat_exchangers/DoublePipe.mso (modified) (4 diffs)
• sample/heat_exchangers/Sample_DoublePipe_series.mso (added)
• sample/heat_exchangers/SeriesOfPipes.rlt (added)

trunk/eml/heat_exchangers/DoublePipe.mso

@@ -608 +608 @@
 
 FlowDirection   as Switcher     (Brief="Flow Direction",Valid=["counter","cocurrent"],Default="cocurrent");
-        
+Eftestimated    as positive  (Brief="Effectiveness estimate",Default=0.5);      
+
 VARIABLES
 
@@ -615 +616 @@
 EQUATIONS
 
+"Effectiveness Correction"
+        Method.Eft1 = 1;
+
+switch CalculationApproach
+        
+        case "Full":
+        
 "Number of Units Transference"
         Method.NTU*Method.Cmin = Details.Ud*Pi*DoInner*Lpipe;
@@ -626 +634 @@
 "Thermal Capacity Ratio"
         Method.Cr    = Method.Cmin/Method.Cmax;
-
-"Effectiveness Correction"
-        Method.Eft1 = 1;
 
 if Method.Cr equal 0 
@@ -663 +668 @@
 end
 
+end
+
+        case "Simplified":
+
+"Number of Units Transference"
+        Method.NTU = 1;
+        
+"Minimum Heat Capacity"
+        Method.Cmin  = min([Method.Ch,Method.Cc]);
+
+"Maximum Heat Capacity"
+        Method.Cmax  = max([Method.Ch,Method.Cc]);
+
+"Thermal Capacity Ratio"
+        Method.Cr    = 1;
+        
+"Effectiveness"
+        Method.Eft = Eftestimated;
+        
 end