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/HeatExchangerDiscretized.mso

    r78 r100  
    365365EQUATIONS
    366366"Exchange Surface Area"
    367         Details.Q   = Details.U*Details.A*MTD;
     367        Details.Q   = Details.Ud*Details.A*MTD;
    368368       
    369369"Mean Temperature Difference"   
     
    424424PdropShellNozzle        as pressure                     (Brief="Total Shell Side Nozzles Pressure Drop");
    425425PdropShell                      as pressure                     (Brief="Total Shell Side Pressure Drop");
    426 Uaverage                        as heat_trans_coeff (Brief="Average Overall Heat Transfer Coefficient",Default=1,Lower=1e-6,Upper=1e10);
     426Udaverage                       as heat_trans_coeff (Brief="Average Overall Heat Transfer Coefficient Dirty",Default=1,Lower=1e-6,Upper=1e10);
     427Ucaverage                       as heat_trans_coeff (Brief="Average Overall Heat Transfer Coefficient Clean",Default=1,Lower=1e-6,Upper=1e10);
    427428hshellaverage           as heat_trans_coeff     (Brief="Average Shell Side Film Coefficient",Default=1,Lower=1e-12, Upper=1e6);
    428429htubeaverage            as heat_trans_coeff     (Brief="Average Tube Side Film Coefficient",Default=1,Lower=1e-12, Upper=1e6);
     
    506507        Sumary.htubeaverage             = sum(Unity.Tubes.HeatTransfer.htube)/Sumary.Zones;
    507508
    508 "Average Overall Heat Transfer Coefficient"
    509         Sumary.Uaverage                 = sum(Unity.Details.U)/Sumary.Zones;
     509"Average Overall Heat Transfer Coefficient Dirty"
     510        Sumary.Udaverage                = sum(Unity.Details.Ud)/Sumary.Zones;
     511       
     512"Average Overall Heat Transfer Coefficient Clean"
     513        Sumary.Ucaverage                = sum(Unity.Details.Uc)/Sumary.Zones;
    510514
    511515"Area Total"
     
    822826        Unity(i).Resistances.Rshell*(Unity(i).Shell.HeatTransfer.hshell)        =       1;
    823827       
    824 "Overall Heat Transfer Coefficient"
    825         Unity(i).Details.U*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
     828"Overall Heat Transfer Coefficient Dirty"
     829        Unity(i).Details.Ud*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
     830
     831"Overall Heat Transfer Coefficient Clean"
     832        (1/Unity(i).Details.Ud)=(1/Unity(i).Details.Uc)+Unity(i).Resistances.Rfo+Unity(i).Resistances.Rfi*(Dotube/Ditube);
    826833
    827834"Exchange Surface Area"
     
    831838        Ltube = Unity(i).Baffles.Lsi+Unity(i).Baffles.Lso+Unity(i).Baffles.Ls*(Nb-1);
    832839       
    833 
    834840"Js Factor"     
    835841        Unity(i).Shell.HeatTransfer.Js                  =       1;
     
    853859        Unity(i).Shell.HeatTransfer.Jtotal              =       Unity(i).Shell.HeatTransfer.Jc*Unity(i).Shell.HeatTransfer.Jl*Unity(i).Shell.HeatTransfer.Jb*Unity(i).Shell.HeatTransfer.Jr*Unity(i).Shell.HeatTransfer.Js;
    854860end
    855 
    856861
    857862"Velocity Tube Side Inlet Nozzle"
     
    991996        Sumary.htubeaverage             = sum(Unity.Tubes.HeatTransfer.htube)/Sumary.Zones;
    992997
    993 "Average Overall Heat Transfer Coefficient"
    994         Sumary.Uaverage                 = sum(Unity.Details.U)/Sumary.Zones;
     998"Average Overall Heat Transfer Coefficient Dirty"
     999        Sumary.Udaverage                = sum(Unity.Details.Ud)/Sumary.Zones;
     1000       
     1001"Average Overall Heat Transfer Coefficient Clean"
     1002        Sumary.Ucaverage                = sum(Unity.Details.Uc)/Sumary.Zones;   
    9951003
    9961004"Area Total"
     
    10321040"Shell Side Cross Flow Area"
    10331041        Unity(Nb+1).Shell.HeatTransfer.Sm = HE.CrossFlowArea(Unity(Nb+1).Baffles.Lso);
    1034 
    1035 #"LMTD Correction Factor"
    1036 #       Unity.Fc = HE.EshellCorrectionFactor(Unity(1).Inlet.Hot.T,Unity(Nb+1).Outlet.Hot.T,Unity(Nb+1).Inlet.Cold.T,Unity(1).Outlet.Cold.T);
    10371042
    10381043if side equal 1
     
    13111316        Unity(i).Resistances.Rshell*(Unity(i).Shell.HeatTransfer.hshell)        =       1;
    13121317       
    1313 "Overall Heat Transfer Coefficient"
    1314         Unity(i).Details.U*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
     1318"Overall Heat Transfer Coefficient Dirty"
     1319        Unity(i).Details.Ud*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
     1320
     1321"Overall Heat Transfer Coefficient Clean"
     1322        (1/Unity(i).Details.Ud)=(1/Unity(i).Details.Uc)+Unity(i).Resistances.Rfo+Unity(i).Resistances.Rfi*(Dotube/Ditube);
    13151323
    13161324"Exchange Surface Area"
Note: See TracChangeset for help on using the changeset viewer.