Ignore:
Timestamp:
Nov 27, 2006, 6:37:59 PM (16 years ago)
Author:
gerson bicca
Message:

added double pipe heat exchanger model and updated eml/heat_exchangers

Location:
mso/eml/heat_exchangers
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • mso/eml/heat_exchangers

    • Property svn:ignore set to
      *.dll
  • mso/eml/heat_exchangers/HeatExchangerSimplified.mso

    r45 r68  
    5353
    5454
    55 
    5655if Inlet.Cold.v equal 0
     56       
    5757        then   
    58 "Heat Capacity Cold Stream"
    59         Properties.Cold.Average.Cp              =       PP.LiquidCp(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
    60         Properties.Cold.Inlet.Cp                =       PP.LiquidCp(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
    61         Properties.Cold.Outlet.Cp               =       PP.LiquidCp(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
    62 
    63 "Mass Density Cold Stream"
    64         Properties.Cold.Average.rho     =       PP.LiquidDensity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
    65         Properties.Cold.Inlet.rho               =       PP.LiquidDensity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
    66         Properties.Cold.Outlet.rho              =       PP.LiquidDensity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
    67 
    68 "Viscosity Cold Stream"
    69         Properties.Cold.Average.Mu              =       PP.LiquidViscosity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
    70         Properties.Cold.Inlet.Mu                =       PP.LiquidViscosity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
    71         Properties.Cold.Outlet.Mu               =       PP.LiquidViscosity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
    72 
    73 "Conductivity Cold Stream"
    74         Properties.Cold.Average.K               =       PP.LiquidThermalConductivity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
    75         Properties.Cold.Inlet.K                 =       PP.LiquidThermalConductivity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
    76         Properties.Cold.Outlet.K                =       PP.LiquidThermalConductivity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
    77 
    78 "Heat Capacity Cold Stream"
    79         Properties.Cold.Wall.Cp                 =       PP.LiquidCp(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
    80        
    81 "Viscosity Cold Stream"
    82         Properties.Cold.Wall.Mu                 =       PP.LiquidViscosity(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
    83 
    84 "Conductivity Cold Stream"
    85         Properties.Cold.Wall.K                  =       PP.LiquidThermalConductivity(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
    86 
    87 
    88         else
    89 
    90 "Heat Capacity Cold Stream"
     58       
     59"Cold Stream Average Heat Capacity"
     60        Properties.Cold.Average.Cp      =       PP.LiquidCp(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
     61
     62"Cold Stream Inlet Heat Capacity"
     63        Properties.Cold.Inlet.Cp        =       PP.LiquidCp(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
     64
     65"Cold Stream Outlet Heat Capacity"
     66        Properties.Cold.Outlet.Cp       =       PP.LiquidCp(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
     67
     68"Cold Stream Average Mass Density"
     69        Properties.Cold.Average.rho =   PP.LiquidDensity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
     70
     71"Cold Stream Inlet Mass Density"
     72        Properties.Cold.Inlet.rho       =       PP.LiquidDensity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
     73
     74"Cold Stream Outlet Mass Density"
     75        Properties.Cold.Outlet.rho      =       PP.LiquidDensity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
     76
     77"Cold Stream Average Viscosity"
     78        Properties.Cold.Average.Mu      =       PP.LiquidViscosity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
     79
     80"Cold Stream inlet Viscosity"
     81        Properties.Cold.Inlet.Mu        =       PP.LiquidViscosity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
     82       
     83"Cold Stream Outlet Viscosity"
     84        Properties.Cold.Outlet.Mu       =       PP.LiquidViscosity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
     85
     86"Cold Stream Average Conductivity"
     87        Properties.Cold.Average.K       =       PP.LiquidThermalConductivity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
     88
     89"Cold Stream Inlet Conductivity"       
     90        Properties.Cold.Inlet.K         =       PP.LiquidThermalConductivity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
     91
     92"Cold Stream Outlet Conductivity"
     93        Properties.Cold.Outlet.K        =       PP.LiquidThermalConductivity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
     94
     95"Cold Stream Heat Capacity at Wall Temperature"
     96        Properties.Cold.Wall.Cp         =       PP.LiquidCp(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
     97       
     98"Cold Stream Viscosity at Wall Temperature"
     99        Properties.Cold.Wall.Mu         =       PP.LiquidViscosity(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
     100
     101"Cold Stream Conductivity at Wall Temperature"
     102        Properties.Cold.Wall.K          =       PP.LiquidThermalConductivity(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
     103
     104
     105        else
     106
     107"Cold Stream Average Heat Capacity"
    91108        Properties.Cold.Average.Cp      =       PP.VapourCp(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
     109
     110"Cold Stream Inlet Heat Capacity"       
    92111        Properties.Cold.Inlet.Cp        =       PP.VapourCp(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
     112
     113"Cold Stream Outlet Heat Capacity"     
    93114        Properties.Cold.Outlet.Cp       =       PP.VapourCp(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
    94115
    95 "Mass Density Cold Stream"
    96         Properties.Cold.Average.rho     =       PP.VapourDensity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
    97         Properties.Cold.Inlet.rho               =       PP.VapourDensity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
    98         Properties.Cold.Outlet.rho              =       PP.VapourDensity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
    99 
    100 "Viscosity Cold Stream"
    101         Properties.Cold.Average.Mu              =       PP.VapourViscosity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
    102         Properties.Cold.Inlet.Mu                =       PP.VapourViscosity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
    103         Properties.Cold.Outlet.Mu               =       PP.VapourViscosity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
    104 
    105 "Conductivity Cold Stream"
    106         Properties.Cold.Average.K               =       PP.VapourThermalConductivity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
    107         Properties.Cold.Inlet.K                 =       PP.VapourThermalConductivity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
    108         Properties.Cold.Outlet.K                =       PP.VapourThermalConductivity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
    109        
    110 "Heat Capacity Cold Stream"
    111         Properties.Cold.Wall.Cp                 =       PP.VapourCp(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
    112 
    113 
    114 "Viscosity Cold Stream"
    115         Properties.Cold.Wall.Mu                 =       PP.VapourViscosity(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
    116 
    117 "Conductivity Cold Stream"
    118         Properties.Cold.Wall.K                  =       PP.VapourThermalConductivity(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
     116"Cold Stream Average Mass Density"
     117        Properties.Cold.Average.rho =   PP.VapourDensity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
     118
     119"Cold Stream Inlet Mass Density"
     120        Properties.Cold.Inlet.rho       =       PP.VapourDensity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
     121
     122"Cold Stream Outlet Mass Density"       
     123        Properties.Cold.Outlet.rho      =       PP.VapourDensity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
     124
     125"Cold Stream Average Viscosity "
     126        Properties.Cold.Average.Mu      =       PP.VapourViscosity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
     127
     128"Cold Stream Inlet Viscosity " 
     129        Properties.Cold.Inlet.Mu        =       PP.VapourViscosity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
     130
     131"Cold Stream Outlet Viscosity "
     132        Properties.Cold.Outlet.Mu       =       PP.VapourViscosity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
     133
     134"Cold Stream Average Conductivity "
     135        Properties.Cold.Average.K       =       PP.VapourThermalConductivity(Properties.Cold.Average.T,Properties.Cold.Average.P,Inlet.Cold.z);
     136
     137"Cold Stream Inlet Conductivity "
     138        Properties.Cold.Inlet.K         =       PP.VapourThermalConductivity(Inlet.Cold.T,Inlet.Cold.P,Inlet.Cold.z);
     139
     140"Cold Stream Outlet Conductivity "
     141        Properties.Cold.Outlet.K        =       PP.VapourThermalConductivity(Outlet.Cold.T,Outlet.Cold.P,Outlet.Cold.z);
     142       
     143"Cold Stream Heat Capacity at Wall Temperature"
     144        Properties.Cold.Wall.Cp         =       PP.VapourCp(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
     145
     146
     147"Cold Stream Viscosity at Wall Temperature"
     148        Properties.Cold.Wall.Mu         =       PP.VapourViscosity(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
     149
     150"Cold Stream Conductivity at Wall Temperature"
     151        Properties.Cold.Wall.K          =       PP.VapourThermalConductivity(Properties.Cold.Wall.Twall,Properties.Cold.Average.P,Inlet.Cold.z);
    119152       
    120153       
     
    126159        then
    127160
    128 "Heat Capacity Hot Stream"
     161"Hot Stream Average Heat Capacity"
    129162        Properties.Hot.Average.Cp       =               PP.LiquidCp(Properties.Hot.Average.T,Properties.Hot.Average.P,Inlet.Hot.z);
     163
     164"Hot Stream Inlet Heat Capacity"
    130165        Properties.Hot.Inlet.Cp         =               PP.LiquidCp(Inlet.Hot.T,Inlet.Hot.P,Inlet.Hot.z);
     166
     167"Hot Stream Outlet Heat Capacity"
    131168        Properties.Hot.Outlet.Cp        =               PP.LiquidCp(Outlet.Hot.T,Outlet.Hot.P,Outlet.Hot.z);
    132169
    133 "Mass Density Hot Stream"
     170"Hot Stream Average Mass Density"
    134171        Properties.Hot.Average.rho      =               PP.LiquidDensity(Properties.Hot.Average.T,Properties.Hot.Average.P,Inlet.Hot.z);
     172
     173"Hot Stream Inlet Mass Density"
    135174        Properties.Hot.Inlet.rho        =               PP.LiquidDensity(Inlet.Hot.T,Inlet.Hot.P,Inlet.Hot.z);
     175
     176"Hot Stream Outlet Mass Density"       
    136177        Properties.Hot.Outlet.rho       =               PP.LiquidDensity(Outlet.Hot.T,Outlet.Hot.P,Outlet.Hot.z);
    137178
    138 "Viscosity Hot Stream"
     179"Hot Stream Average Viscosity"
    139180        Properties.Hot.Average.Mu       =               PP.LiquidViscosity(Properties.Hot.Average.T,Properties.Hot.Average.P,Inlet.Hot.z);     
     181
     182"Hot Stream Inlet Viscosity"
    140183        Properties.Hot.Inlet.Mu         =               PP.LiquidViscosity(Inlet.Hot.T,Inlet.Hot.P,Inlet.Hot.z);       
     184
     185"Hot Stream Outlet Viscosity"
    141186        Properties.Hot.Outlet.Mu        =               PP.LiquidViscosity(Outlet.Hot.T,Outlet.Hot.P,Outlet.Hot.z);     
    142187
    143 "Conductivity Hot Stream"
     188"Hot Stream Average Conductivity"
    144189        Properties.Hot.Average.K        =               PP.LiquidThermalConductivity(Properties.Hot.Average.T,Properties.Hot.Average.P,Inlet.Hot.z);   
     190
     191"Hot Stream Inlet Conductivity"
    145192        Properties.Hot.Inlet.K          =               PP.LiquidThermalConductivity(Inlet.Hot.T,Inlet.Hot.P,Inlet.Hot.z);     
     193
     194"Hot Stream Outlet Conductivity"
    146195        Properties.Hot.Outlet.K         =               PP.LiquidThermalConductivity(Outlet.Hot.T,Outlet.Hot.P,Outlet.Hot.z);   
    147196
    148 "Heat Capacity Hot Stream"
     197"Hot Stream Heat Capacity at Wall Temperature"
    149198        Properties.Hot.Wall.Cp          =               PP.LiquidCp(Properties.Hot.Wall.Twall,Properties.Hot.Average.P,Inlet.Hot.z);
    150199
    151 "Viscosity Hot Stream"
     200"Hot Stream Viscosity  at Wall Temperature"
    152201        Properties.Hot.Wall.Mu          =               PP.LiquidViscosity(Properties.Hot.Wall.Twall,Properties.Hot.Average.P,Inlet.Hot.z);     
    153202
    154 "Conductivity Hot Stream"
     203"Hot Stream Conductivity at Wall Temperature"
    155204        Properties.Hot.Wall.K           =               PP.LiquidThermalConductivity(Properties.Hot.Wall.Twall,Properties.Hot.Average.P,Inlet.Hot.z);   
    156205       
     
    158207        else
    159208
    160 "Heat Capacity Hot Stream"
     209"Hot Stream Average Heat Capacity"
    161210        Properties.Hot.Average.Cp       =               PP.VapourCp(Properties.Hot.Average.T,Properties.Hot.Average.P,Inlet.Hot.z);
     211
     212"Hot Stream Inlet Heat Capacity"
    162213        Properties.Hot.Inlet.Cp         =               PP.VapourCp(Inlet.Hot.T,Inlet.Hot.P,Inlet.Hot.z);
     214
     215"Hot Stream Outlet Heat Capacity"
    163216        Properties.Hot.Outlet.Cp        =               PP.VapourCp(Outlet.Hot.T,Outlet.Hot.P,Outlet.Hot.z);
    164217
    165 "Mass Density Hot Stream"
     218"Hot Stream Average Mass Density"
    166219        Properties.Hot.Average.rho      =               PP.VapourDensity(Properties.Hot.Average.T,Properties.Hot.Average.P,Inlet.Hot.z);
     220
     221"Hot Stream Inlet Mass Density"
    167222        Properties.Hot.Inlet.rho        =               PP.VapourDensity(Inlet.Hot.T,Inlet.Hot.P,Inlet.Hot.z);
     223
     224"Hot Stream Outlet Mass Density"
    168225        Properties.Hot.Outlet.rho       =               PP.VapourDensity(Outlet.Hot.T,Outlet.Hot.P,Outlet.Hot.z);
    169226
    170 "Viscosity Hot Stream"
     227"Hot Stream Average Viscosity"
    171228        Properties.Hot.Average.Mu       =               PP.VapourViscosity(Properties.Hot.Average.T,Properties.Hot.Average.P,Inlet.Hot.z);
     229
     230"Hot Stream Inlet Viscosity"
    172231        Properties.Hot.Inlet.Mu         =               PP.VapourViscosity(Inlet.Hot.T,Inlet.Hot.P,Inlet.Hot.z);
     232
     233"Hot Stream Outlet Viscosity"
    173234        Properties.Hot.Outlet.Mu        =               PP.VapourViscosity(Outlet.Hot.T,Outlet.Hot.P,Outlet.Hot.z);
    174235
    175 "Conductivity Hot Stream"
     236"Hot Stream Average Conductivity"
    176237        Properties.Hot.Average.K        =               PP.VapourThermalConductivity(Properties.Hot.Average.T,Properties.Hot.Average.P,Inlet.Hot.z);   
     238
     239"Hot Stream Inlet Conductivity"
    177240        Properties.Hot.Inlet.K          =               PP.VapourThermalConductivity(Inlet.Hot.T,Inlet.Hot.P,Inlet.Hot.z);     
     241       
     242"Hot Stream Outlet Conductivity"
    178243        Properties.Hot.Outlet.K         =               PP.VapourThermalConductivity(Outlet.Hot.T,Outlet.Hot.P,Outlet.Hot.z);   
    179244
    180 "Heat Capacity Hot Stream"
     245"Hot Stream Heat Capacity at Wall Temperature"
    181246        Properties.Hot.Wall.Cp          =               PP.VapourCp(Properties.Hot.Wall.Twall,Properties.Hot.Average.P,Inlet.Hot.z);
    182247
    183 "Viscosity Hot Stream"
     248"Hot Stream Viscosity at Wall Temperature"
    184249        Properties.Hot.Wall.Mu          =               PP.VapourViscosity(Properties.Hot.Wall.Twall,Properties.Hot.Average.P,Inlet.Hot.z);
    185250
    186 "Conductivity Hot Stream"
     251"Hot Stream Conductivity at Wall Temperature"
    187252        Properties.Hot.Wall.K           =               PP.VapourThermalConductivity(Properties.Hot.Wall.Twall,Properties.Hot.Average.P,Inlet.Hot.z);   
    188253
    189254
    190255end
     256
    191257
    192258#=====================================================================
     
    417483
    418484Model HeatExchanger_NTU         as Heatex_Basic_NTU
    419 
    420 EQUATIONS
     485       
     486PARAMETERS
     487
     488Side as Integer (Brief="Flow Direction",Lower=0,Upper=1);
     489
     490SET
     491
     492Side = HE.FlowDir(); # Return Flow Direction
     493
     494EQUATIONS
     495
     496if Details.Cr equal 0
     497       
     498        then   
    421499"Effectiveness"
    422         Eft=HE.Effectiveness(Details.Cr,Details.NTU);
     500        Eft = 1-exp(-Details.NTU);
     501       
     502        else
     503
     504if Side equal 0
     505
     506        then
     507"Effectiveness in Cocurrent Flow"
     508        Eft = (1-exp(-Details.NTU*(1+Details.Cr)))/(1+Details.Cr);
     509       
     510        else
     511
     512if Details.Cr equal 1
     513       
     514        then
     515"Effectiveness in Counter Flow"
     516        Eft = Details.NTU/(1+Details.NTU);
     517       
     518        else
     519"Effectiveness in Counter Flow"
     520        Eft*(1-Details.Cr*exp(-Details.NTU*(1-Details.Cr))) = (1-exp(-Details.NTU*(1-Details.Cr)));
     521       
     522end
     523
     524end
     525
     526
     527end
     528
    423529       
    424530end
Note: See TracChangeset for help on using the changeset viewer.