Changeset 100 for mso/eml/heat_exchangers/HeatExchangerDetailed.mso

Timestamp:

Jan 9, 2007, 12:15:56 PM (15 years ago)

Author:

gerson bicca

Message:

updated

File:

• mso/eml/heat_exchangers/HeatExchangerDetailed.mso (modified) (5 diffs)

mso/eml/heat_exchangers/HeatExchangerDetailed.mso

@@ -640 +640 @@
         Shell.HeatTransfer.Sm = HE.CrossFlowArea(Baffles.Ls);
         
-"Overall Heat Transfer Coefficient"
-        Details.U=1/(Dotube/(Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Shell.HeatTransfer.hshell)));
+"Overall Heat Transfer Coefficient Dirty"
+        Details.Ud=1/(Dotube/(Tubes.HeatTransfer.htube*Ditube)+Resistances.Rfo+Resistances.Rfi*(Dotube/Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Shell.HeatTransfer.hshell)));
+
+"Overall Heat Transfer Coefficient Clean"
+        (1/Details.Ud)=(1/Details.Uc)+Resistances.Rfo+Resistances.Rfi*(Dotube/Ditube);
 
 "Exchange Surface Area"
@@ -700 +703 @@
 
 "Exchange Surface Area"
-        Details.Q   = Details.U*Details.A*MTD;
+        Details.Q   = Details.Ud*Details.A*MTD;
         
 "Mean Temperature Difference"   
@@ -1084 +1087 @@
         Unity(i).Resistances.Rshell*(Unity(i).Shell.HeatTransfer.hshell)=1;
         
-"Overall Heat Transfer Coefficient"
-        Unity(i).Details.U=1/(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)));
+"Overall Heat Transfer Coefficient Clean"
+        Unity(i).Details.Uc=1/(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)));
+
+"Overall Heat Transfer Coefficient Dirty"
+        (1/Unity(i).Details.Ud)=(1/Unity(i).Details.Uc)+Unity(i).Resistances.Rfo+Unity(i).Resistances.Rfi*(Dotube/Ditube);
 
 "Exchange Surface Area"
@@ -1560 +1566 @@
         Unity(i).Resistances.Rshell*(Unity(i).Shell.HeatTransfer.hshell)=1;
         
-"Overall Heat Transfer Coefficient"
-        Unity(i).Details.U*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
+"Overall Heat Transfer Coefficient Clean"
+        Unity(i).Details.Uc*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
+
+"Overall Heat Transfer Coefficient Dirty"
+        (1/Unity(i).Details.Ud)=(1/Unity(i).Details.Uc)+Unity(i).Resistances.Rfo+Unity(i).Resistances.Rfi*(Dotube/Ditube);
 
 "Exchange Surface Area"
@@ -1619 +1628 @@
 
 "Exchange Surface Area"
-#       Unity(i).Details.Q   = Unity(i).Details.U*Unity(i).Details.A*Fc(i)*LMTD(i);
-        Unity(i).Details.Q   = Unity(i).Details.U*Pi*Dotube*Ntt*Ltube*Fc(i)*LMTD(i);
+        Unity(i).Details.Q   = Unity(i).Details.Ud*Pi*Dotube*Ntt*Ltube*Fc(i)*LMTD(i);
         
 "Mean Temperature Difference"