Changeset 224 for branches/newlanguage

Timestamp:

Mar 19, 2007, 8:03:06 PM (16 years ago)

Author:

gerson bicca

Message:

added sample for a detailed shell and tubes heat exchanger

Location:

branches/newlanguage

Files:

• eml/heat_exchangers/HEX_Engine.mso (modified) (3 diffs)
• eml/heat_exchangers/HeatExchangerDetailed.mso (modified) (1 diff)
• sample/heat_exchangers/GuessDetailed.rlt (added)
• sample/heat_exchangers/sample_Detailed.mso (added)

branches/newlanguage/eml/heat_exchangers/HEX_Engine.mso

@@ -127 +127 @@
 fi              as fricfactor                   (Brief="Friction Factor", Default=0.05, Lower=1e-10, Upper=2000);
 PR              as positive                             (Brief="Tube Side Prandtl Number",Default=0.5,Lower=1e-8);
-PRw     as positive                             (Brief="Tube Side Prandtl Number at Wall Temperature",Default=0.5,Lower=1e-8);
 Phi             as positive                             (Brief="Phi Correction",Default=1,Lower=1e-3);
 Vtube   as velocity                             (Brief="Tube Side Velocity",Lower=1e-8);
@@ -172 +171 @@
 Re              as positive                             (Brief="Shell Side Reynolds Number",Default=100,Lower=1);
 PR              as positive                             (Brief="Shell Side Prandtl Number",Default=0.7,Lower=1e-6);
-PRw             as positive                             (Brief="Shell Side Prandtl Number",Default=0.5,Lower=1e-8);
 hshell          as heat_trans_coeff     (Brief="Shell Side Film Coefficient",Default=1,Lower=1e-12, Upper=1e6);
 Phi     as positive                             (Brief="Phi Correction",Default=1,Lower=1e-3);
@@ -235 +233 @@
 DTL             as temp_delta   (Brief="Temperature Difference at Outlet",Lower=1);
 LMTD            as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=1);
-Fc                      as positive             (Brief="LMTD Correction Factor",Lower=0.4);
+Fc                      as positive             (Brief="LMTD Correction Factor",Lower=0.1);
 
 EQUATIONS

branches/newlanguage/eml/heat_exchangers/HeatExchangerDetailed.mso

@@ -813 +813 @@
 
 "Shell Pressure Drop Baffle Window"
-        Shell.PressureDrop.Pdwindow    = Nb*((26/Shell.Properties.Average.rho)*mw*Shell.Properties.Average.Mu*(Ncw/(pitch-Dotube)+ Baffles.Ls/(Dw*Dw))+ 0.5*mw*mw/Shell.Properties.Average.rho)*exp(-1.33*(1+Rs)*((Scd + Std)/Shell.HeatTransfer.Sm)^(-0.15*(1+Rs) + 0.8));
         Shell.PressureDrop.Pdwindow    = Nb*((2+0.6*Ncw)*0.5*mw*mw/Shell.Properties.Average.rho)*exp(-1.33*(1+Rs)*((Scd + Std)/Shell.HeatTransfer.Sm)^(-0.15*(1+Rs) + 0.8));
+        
         when Shell.HeatTransfer.Re < 100 switchto "laminar";