Ignore:
Timestamp:
Jan 25, 2007, 6:59:01 PM (16 years ago)
Author:
gerson bicca
Message:

solved convergence problem for multitubular heat exchanger

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/eml/heat_exchangers/DoublePipe.mso

    r129 r136  
    628628
    629629"Overall Heat Transfer Coefficient Clean"
    630         Unity(i).Details.Uc*(Unity(i).Resistances.Rtube+Unity(i).Resistances.Rwall+Unity(i).Resistances.Rshell)=1;
     630        (1/Unity(i).Details.Ud)=(1/Unity(i).Details.Uc)+Unity(i).Resistances.Rfo+Unity(i).Resistances.Rfi*(DoInner/DiInner);
     631
    631632
    632633"Overall Heat Transfer Coefficient Dirty"
    633         Unity(i).Details.Ud*(Unity(i).Resistances.Rfi*(DoInner/DiInner) + Unity(i).Resistances.Rfo + Unity(i).Resistances.Rtube + Unity(i).Resistances.Rwall + Unity(i).Resistances.Rshell)=1;
     634        Unity(i).Details.Ud=1/(DoInner/(Unity(i).Inner.HeatTransfer.hcoeff*DiInner)+Unity(i).Resistances.Rfo+Unity(i).Resistances.Rfi*(DoInner/DiInner)+(DoInner*ln(DoInner/DiInner)/(2*Kwall))+(1/(Unity(i).Outer.HeatTransfer.hcoeff)));
    634635
    635636"Exchange Surface Area"
     
    793794
    794795"Exchange Surface Area"
    795         Unity(i).Details.Q = Unity(i).Details.Ud*Unity(i).Details.A*LMTD(i);
     796        Unity(i).Details.Q = Unity(i).Details.Ud*Pi*DoInner*Lpipe*LMTD(i);
    796797
    797798end
Note: See TracChangeset for help on using the changeset viewer.