Changeset 168


Ignore:
Timestamp:
Feb 28, 2007, 11:30:48 AM (15 years ago)
Author:
gerson bicca
Message:

updated heat exchanger models - new language

Location:
branches/newlanguage
Files:
3 added
6 edited

Legend:

Unmodified
Added
Removed
  • branches/newlanguage/eml/heat_exchangers/DoublePipe.mso

    r164 r168  
    102102        Outer.Properties.Average.P = 0.5*InletOuter.P+0.5*OutletOuter.P;
    103103       
    104 "Cold Stream Average Pressure"
     104"Inner Stream Average Pressure"
    105105        Inner.Properties.Average.P = 0.5*InletInner.P+0.5*OutletInner.P;
    106106
    107 "Cold Stream Wall Temperature"
     107"Inner Stream Wall Temperature"
    108108        Inner.Properties.Wall.Twall =   0.5*Outer.Properties.Average.T + 0.5*Inner.Properties.Average.T;
    109109
     
    114114        Outer.Properties.Average.Mw = sum(M*InletOuter.z);
    115115
    116 "Cold Stream Average Molecular Weight"
     116"Inner Stream Average Molecular Weight"
    117117        Inner.Properties.Average.Mw = sum(M*InletInner.z);
    118118
     
    121121        then   
    122122
    123 "Heat Capacity Cold Stream"
     123"Heat Capacity Inner Stream"
    124124        Inner.Properties.Average.Cp             =       PP.LiquidCp(Inner.Properties.Average.T,Inner.Properties.Average.P,InletInner.z);
    125125        Inner.Properties.Inlet.Cp               =       PP.LiquidCp(InletInner.T,InletInner.P,InletInner.z);
    126126        Inner.Properties.Outlet.Cp              =       PP.LiquidCp(OutletInner.T,OutletInner.P,OutletInner.z);
    127127
    128 "Mass Density Cold Stream"
     128"Mass Density Inner Stream"
    129129        Inner.Properties.Average.rho    =       PP.LiquidDensity(Inner.Properties.Average.T,Inner.Properties.Average.P,InletInner.z);
    130130        Inner.Properties.Inlet.rho              =       PP.LiquidDensity(InletInner.T,InletInner.P,InletInner.z);
    131131        Inner.Properties.Outlet.rho             =       PP.LiquidDensity(OutletInner.T,OutletInner.P,OutletInner.z);
    132132
    133 "Viscosity Cold Stream"
     133"Viscosity Inner Stream"
    134134        Inner.Properties.Average.Mu     =       PP.LiquidViscosity(Inner.Properties.Average.T,Inner.Properties.Average.P,InletInner.z);
    135135        Inner.Properties.Inlet.Mu               =       PP.LiquidViscosity(InletInner.T,InletInner.P,InletInner.z);
    136136        Inner.Properties.Outlet.Mu              =       PP.LiquidViscosity(OutletInner.T,OutletInner.P,OutletInner.z);
    137137
    138 "Conductivity Cold Stream"
     138"Conductivity Inner Stream"
    139139        Inner.Properties.Average.K              =       PP.LiquidThermalConductivity(Inner.Properties.Average.T,Inner.Properties.Average.P,InletInner.z);
    140140        Inner.Properties.Inlet.K                =       PP.LiquidThermalConductivity(InletInner.T,InletInner.P,InletInner.z);
    141141        Inner.Properties.Outlet.K               =       PP.LiquidThermalConductivity(OutletInner.T,OutletInner.P,OutletInner.z);
    142142
    143 "Heat Capacity Cold Stream"
    144         Inner.Properties.Wall.Cp                =       PP.LiquidCp(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
    145        
    146143"Viscosity Cold Stream"
    147144        Inner.Properties.Wall.Mu                =       PP.LiquidViscosity(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
    148 
    149 "Conductivity Cold Stream"
    150         Inner.Properties.Wall.K                         =       PP.LiquidThermalConductivity(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
    151145
    152146
     
    173167        Inner.Properties.Outlet.K               =       PP.VapourThermalConductivity(OutletInner.T,OutletInner.P,OutletInner.z);
    174168       
    175 "Heat Capacity Cold Stream"
    176         Inner.Properties.Wall.Cp                =       PP.VapourCp(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
    177 
    178 
    179169"Viscosity Cold Stream"
    180170        Inner.Properties.Wall.Mu                =       PP.VapourViscosity(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
    181171
    182 "Conductivity Cold Stream"
    183         Inner.Properties.Wall.K                         =       PP.VapourThermalConductivity(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
    184        
    185        
    186        
    187172end
    188173
     
    211196        Outer.Properties.Outlet.K       =               PP.LiquidThermalConductivity(OutletOuter.T,OutletOuter.P,OutletOuter.z);       
    212197
    213 "Heat Capacity Hot Stream"
    214         Outer.Properties.Wall.Cp                =               PP.LiquidCp(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);
    215 
    216198"Viscosity Hot Stream"
    217199        Outer.Properties.Wall.Mu                =               PP.LiquidViscosity(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);       
    218200
    219 "Conductivity Hot Stream"
    220         Outer.Properties.Wall.K                 =               PP.LiquidThermalConductivity(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);     
    221        
    222201
    223202        else
     
    243222        Outer.Properties.Outlet.K       =               PP.VapourThermalConductivity(OutletOuter.T,OutletOuter.P,OutletOuter.z);       
    244223
    245 "Heat Capacity Hot Stream"
    246         Outer.Properties.Wall.Cp                =               PP.VapourCp(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);
    247 
    248224"Viscosity Hot Stream"
    249225        Outer.Properties.Wall.Mu                =               PP.VapourViscosity(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);
    250 
    251 "Conductivity Hot Stream"
    252         Outer.Properties.Wall.K                 =               PP.VapourThermalConductivity(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);     
    253 
    254226
    255227end
  • branches/newlanguage/eml/heat_exchangers/HEX_Engine.mso

    r166 r168  
    9898       
    9999VARIABLES
     100
    100101Mu              as viscosity            (Brief="Stream Viscosity",Default=1, Lower=1e-5, Upper=1e5);
    101 Cp                      as cp_mol                       (Brief="Stream Molar Heat Capacity", Upper=1e10);
    102 K                       as conductivity         (Brief="Stream Thermal Conductivity", Default=1.0, Lower=1e-5, Upper=500);
    103102Twall           as temperature  (Brief="Wall Temperature",Lower=50);
    104103
  • branches/newlanguage/eml/heat_exchangers/HeatExchangerSimplified.mso

    r167 r168  
    115115        ColdSide.Properties.Outlet.K    =       PP.LiquidThermalConductivity(OutletCold.T,OutletCold.P,OutletCold.z);
    116116
    117 "Cold Stream Heat Capacity at Wall Temperature"
    118         ColdSide.Properties.Wall.Cp     =       PP.LiquidCp(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
    119        
    120117"Cold Stream Viscosity at Wall Temperature"
    121118        ColdSide.Properties.Wall.Mu     =       PP.LiquidViscosity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
    122119
    123 "Cold Stream Conductivity at Wall Temperature"
    124         ColdSide.Properties.Wall.K              =       PP.LiquidThermalConductivity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
    125 
    126120
    127121        else
     
    163157        ColdSide.Properties.Outlet.K    =       PP.VapourThermalConductivity(OutletCold.T,OutletCold.P,OutletCold.z);
    164158       
    165 "Cold Stream Heat Capacity at Wall Temperature"
    166         ColdSide.Properties.Wall.Cp     =       PP.VapourCp(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
    167 
    168 
    169159"Cold Stream Viscosity at Wall Temperature"
    170160        ColdSide.Properties.Wall.Mu     =       PP.VapourViscosity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
    171161
    172 "Cold Stream Conductivity at Wall Temperature"
    173         ColdSide.Properties.Wall.K              =       PP.VapourThermalConductivity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
    174        
    175        
    176        
    177162end
    178163
     
    217202        HotSide.Properties.Outlet.K     =               PP.LiquidThermalConductivity(OutletHot.T,OutletHot.P,OutletHot.z);     
    218203
    219 "Hot Stream Heat Capacity at Wall Temperature"
    220         HotSide.Properties.Wall.Cp              =               PP.LiquidCp(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);
    221 
    222204"Hot Stream Viscosity  at Wall Temperature"
    223205        HotSide.Properties.Wall.Mu              =               PP.LiquidViscosity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);     
    224206
    225 "Hot Stream Conductivity at Wall Temperature"
    226         HotSide.Properties.Wall.K               =               PP.LiquidThermalConductivity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);   
    227        
    228 
    229207        else
    230208
     
    265243        HotSide.Properties.Outlet.K     =               PP.VapourThermalConductivity(OutletHot.T,OutletHot.P,OutletHot.z);     
    266244
    267 "Hot Stream Heat Capacity at Wall Temperature"
    268         HotSide.Properties.Wall.Cp              =               PP.VapourCp(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);
    269 
    270245"Hot Stream Viscosity at Wall Temperature"
    271246        HotSide.Properties.Wall.Mu              =               PP.VapourViscosity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);
    272 
    273 "Hot Stream Conductivity at Wall Temperature"
    274         HotSide.Properties.Wall.K               =               PP.VapourThermalConductivity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);   
    275 
    276247
    277248end
     
    390361EQUATIONS
    391362
     363"Exchange Surface Area"
     364        Details.Q = Details.Ud*Details.A*Method.LMTD*Method.Fc;
     365
    392366"R: Capacity Ratio for LMTD Correction Fator"
    393367        R*(OutletCold.T - InletCold.T ) = (InletHot.T-OutletHot.T);
     
    639613VARIABLES
    640614
    641 Eft1            as positive (Brief="Effectiveness Correction",Lower=0.01,Upper=1,Default=0.5);
    642615Method  as NTU_Basic;
    643616
    644617EQUATIONS
     618
     619"Number of Units Transference"
     620        Method.NTU*Method.Cmin = Details.Ud*Details.A;
     621       
     622"Minimum Heat Capacity"
     623        Method.Cmin  = min([Method.Ch,Method.Cc]);
     624
     625"Maximum Heat Capacity"
     626        Method.Cmax  = max([Method.Ch,Method.Cc]);
     627
     628"Thermal Capacity Ratio"
     629        Method.Cr    = Method.Cmin/Method.Cmax;
     630
     631"Duty"
     632        Details.Q       = Method.Eft*Method.Cmin*(InletHot.T-InletCold.T);
     633
     634"Hot Stream Heat Capacity"
     635        Method.Ch  = InletHot.F*HotSide.Properties.Average.Cp;
     636       
     637"Cold Stream Heat Capacity"
     638        Method.Cc = InletCold.F*ColdSide.Properties.Average.Cp;
    645639
    646640switch ShellType
     
    660654
    661655"Variable not in use when 1 Pass Shell Side"
    662         Method.Eft1     = Method.Eft;
    663        
    664 end
    665 
    666 end
     656        Method.Eft1     = 1;
     657       
     658end
     659
     660end
  • branches/newlanguage/eml/heat_exchangers/Mheatex.mso

    r164 r168  
    8181       
    8282"Heat Duty"
    83         Q=UA*Method.LMTD*Method.Fc;
     83        Q = UA*Method.LMTD*Method.Fc;
    8484
    8585switch FlowDirection
  • branches/newlanguage/eml/heat_exchangers/heater.mso

    r139 r168  
    7070end
    7171
    72 Model Heater            as Heater_Cooler_Basic
     72Model heater            as Heater_Cooler_Basic
    7373
    7474ATTRIBUTES
     
    8585end
    8686
    87 Model Cooler            as Heater_Cooler_Basic
     87Model cooler            as Heater_Cooler_Basic
    8888       
    8989ATTRIBUTES
  • branches/newlanguage/sample/heat_exchangers/Sample_Simplified.mso

    r166 r168  
    8484        streamcold      as source;
    8585
     86
    8687CONNECTIONS
    8788
     
    125126OPTIONS
    126127
    127  Dynamic                          = false;
     128 Dynamic = false;
    128129
    129130end
Note: See TracChangeset for help on using the changeset viewer.