Ignore:
Timestamp:
Jan 9, 2007, 12:15:56 PM (15 years ago)
Author:
gerson bicca
Message:

updated

File:
1 edited

Legend:

Unmodified
Added
Removed
  • mso/eml/heat_exchangers/HeatExchangerDetailed.mso

    r78 r100  
    640640        Shell.HeatTransfer.Sm = HE.CrossFlowArea(Baffles.Ls);
    641641       
    642 "Overall Heat Transfer Coefficient"
    643         Details.U=1/(Dotube/(Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Shell.HeatTransfer.hshell)));
     642"Overall Heat Transfer Coefficient Dirty"
     643        Details.Ud=1/(Dotube/(Tubes.HeatTransfer.htube*Ditube)+Resistances.Rfo+Resistances.Rfi*(Dotube/Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Shell.HeatTransfer.hshell)));
     644
     645"Overall Heat Transfer Coefficient Clean"
     646        (1/Details.Ud)=(1/Details.Uc)+Resistances.Rfo+Resistances.Rfi*(Dotube/Ditube);
    644647
    645648"Exchange Surface Area"
     
    700703
    701704"Exchange Surface Area"
    702         Details.Q   = Details.U*Details.A*MTD;
     705        Details.Q   = Details.Ud*Details.A*MTD;
    703706       
    704707"Mean Temperature Difference"   
     
    10841087        Unity(i).Resistances.Rshell*(Unity(i).Shell.HeatTransfer.hshell)=1;
    10851088       
    1086 "Overall Heat Transfer Coefficient"
    1087         Unity(i).Details.U=1/(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)));
     1089"Overall Heat Transfer Coefficient Clean"
     1090        Unity(i).Details.Uc=1/(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)));
     1091
     1092"Overall Heat Transfer Coefficient Dirty"
     1093        (1/Unity(i).Details.Ud)=(1/Unity(i).Details.Uc)+Unity(i).Resistances.Rfo+Unity(i).Resistances.Rfi*(Dotube/Ditube);
    10881094
    10891095"Exchange Surface Area"
     
    15601566        Unity(i).Resistances.Rshell*(Unity(i).Shell.HeatTransfer.hshell)=1;
    15611567       
    1562 "Overall Heat Transfer Coefficient"
    1563         Unity(i).Details.U*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
     1568"Overall Heat Transfer Coefficient Clean"
     1569        Unity(i).Details.Uc*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
     1570
     1571"Overall Heat Transfer Coefficient Dirty"
     1572        (1/Unity(i).Details.Ud)=(1/Unity(i).Details.Uc)+Unity(i).Resistances.Rfo+Unity(i).Resistances.Rfi*(Dotube/Ditube);
    15641573
    15651574"Exchange Surface Area"
     
    16191628
    16201629"Exchange Surface Area"
    1621 #       Unity(i).Details.Q   = Unity(i).Details.U*Unity(i).Details.A*Fc(i)*LMTD(i);
    1622         Unity(i).Details.Q   = Unity(i).Details.U*Pi*Dotube*Ntt*Ltube*Fc(i)*LMTD(i);
     1630        Unity(i).Details.Q   = Unity(i).Details.Ud*Pi*Dotube*Ntt*Ltube*Fc(i)*LMTD(i);
    16231631       
    16241632"Mean Temperature Difference"   
Note: See TracChangeset for help on using the changeset viewer.