Changeset 384 for trunk/eml/heat_exchangers/PHE.mso

Timestamp:

Oct 9, 2007, 11:49:16 AM (16 years ago)

Author:

gerson bicca

Message:

updated PHE model

File:

• trunk/eml/heat_exchangers/PHE.mso (modified) (12 diffs)

trunk/eml/heat_exchangers/PHE.mso

@@ -78 +78 @@
         M(NComp)                as molweight    (Brief="Component Mol Weight");
         
-        ChevronAngle    as Switcher             (Brief="Chevron Corrugation Inclination Angle in Degrees ",Valid=["30","45","50","60","65"],Default="30");
+        ChevronAngle    as Switcher             (Brief="Chevron Corrugation Inclination Angle in Degrees ",Valid=["30 Deg","45 Deg","50 Deg","60 Deg","65 Deg"],Default="30 Deg");
         Method                  as Switcher             (Brief="Method of Thermal Calculation",Valid=["NTU","LMTD"],Default="NTU");
         SideOne                 as Switcher             (Brief="Fluid Alocation in the Side I - (The odd channels)",Valid=["hot","cold"],Default="hot");
@@ -442 +442 @@
  switch ChevronAngle #Pressure Drop Friction Factor According to kumar's (1984)
         
-        case "30": #    ChevronAngle <= 30
+        case "30 Deg": #        ChevronAngle <= 30
         
         if      HotSide.HeatTransfer.Re < 10
@@ -460 +460 @@
         end     
 
-        case "45":
+        case "45 Deg":
         
         if      HotSide.HeatTransfer.Re < 15
@@ -478 +478 @@
         end     
 
-        case "50":
+        case "50 Deg":
         
         if      HotSide.HeatTransfer.Re < 20
@@ -496 +496 @@
         end
         
-        case "60":
+        case "60 Deg":
         
         if      HotSide.HeatTransfer.Re < 40
@@ -514 +514 @@
         end
         
-        case "65": #    ChevronAngle >= 65
+        case "65 Deg": #        ChevronAngle >= 65
         
         if      HotSide.HeatTransfer.Re < 50
@@ -536 +536 @@
  switch ChevronAngle # Heat Transfer Coefficient According to kumar's (1984)
 
-        case "30": #    ChevronAngle <= 30
+        case "30 Deg": #        ChevronAngle <= 30
         
         if      HotSide.HeatTransfer.Re < 10
@@ -547 +547 @@
         end     
         
-        case "45":
+        case "45 Deg":
         
         if      HotSide.HeatTransfer.Re < 10
@@ -564 +564 @@
         end
 
-        case "50":
+        case "50 Deg":
         
         if      HotSide.HeatTransfer.Re < 20
@@ -581 +581 @@
         end
 
-        case "60":
+        case "60 Deg":
         
         if      HotSide.HeatTransfer.Re < 20
@@ -598 +598 @@
         end
         
-        case "65": #    ChevronAngle >= 65
+        case "65 Deg": #        ChevronAngle >= 65
         
         if      HotSide.HeatTransfer.Re < 20
@@ -710 +710 @@
         
 "LMTD Correction Factor"
-        Thermal.Fc =Thermal.Eft/(1-Thermal.Eft)/Thermal.NTU;
+        Thermal.Fc =Thermal.Eft/(1.0001-Thermal.Eft)/Thermal.NTU;
         
         else
 "Effectiveness in Counter Flow"
         Thermal.Eft = (1-exp(-Thermal.NTU*(1-Thermal.Cr)))/(1-Thermal.Cr*exp(-Thermal.NTU*(1-Thermal.Cr)));
-        
+
 "LMTD Correction Factor"
         Thermal.Fc =(ln(abs(1-Thermal.Eft*Thermal.Cr))-ln(abs(1-Thermal.Eft)))/(Thermal.NTU*(1-Thermal.Cr));
         
  end
+
 end