Changeset 529 for trunk/eml


Ignore:
Timestamp:
May 29, 2008, 10:21:25 PM (15 years ago)
Author:
gerson bicca
Message:

updated Heatex simplified model

Location:
trunk/eml/heat_exchangers
Files:
2 edited

Legend:

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

    r524 r529  
    8383end
    8484
     85Model Physical_Properties_Heatex
     86       
     87ATTRIBUTES
     88        Pallete = false;
     89        Brief = "to be documented";
     90        Info =
     91        "to be documented";
     92       
     93VARIABLES
     94
     95Mw              as molweight                    (Brief="Average Mol Weight",Default=75, Lower=1, Upper=1e8);
     96Cp              as cp_mol                               (Brief="Average Molar Heat Capacity", Upper=1e10);
     97Inlet   as Properties_In_Out    (Brief="Properties at Inlet Stream", Symbol = "_{in}");
     98Outlet  as Properties_In_Out    (Brief="Properties at Outlet Stream", Symbol = "_{out}");
     99
     100end
     101
    85102Model Tube_Pdrop
    86103       
  • trunk/eml/heat_exchangers/Heatex.mso

    r524 r529  
    1515*--------------------------------------------------------------------
    1616* Author: Gerson Balbueno Bicca
    17 * $Id: Heatex.mso  $
     17* $  $
    1818*--------------------------------------------------------------------*#
    1919
     
    4646
    4747PressureDrop    as Basic_Pdrop                          (Brief="Pressure Drop", Symbol=" ");
    48 Properties              as Physical_Properties          (Brief="Physical Properties", Symbol=" ");
     48Properties              as Physical_Properties_Heatex           (Brief="Physical Properties", Symbol=" ");
    4949
    5050end
     
    9696        [vc, xc, yc] = PP.Flash(InletCold.T, InletCold.P, InletCold.z);
    9797
    98 "Hot Stream Average Temperature"
    99         HotSide.Properties.Average.T = 0.5*InletHot.T + 0.5*OutletHot.T;
    100        
    101 "Cold Stream Average Temperature"
    102         ColdSide.Properties.Average.T = 0.5*InletCold.T + 0.5*OutletCold.T;
    103        
    104 "Hot Stream Average Pressure"
    105         HotSide.Properties.Average.P = 0.5*InletHot.P+0.5*OutletHot.P;
    106        
    107 "Cold Stream Average Pressure"
    108         ColdSide.Properties.Average.P = 0.5*InletCold.P+0.5*OutletCold.P;
    109 
    110 "Cold Stream Wall Temperature"
    111         ColdSide.Properties.Wall.Twall =   0.5*HotSide.Properties.Average.T + 0.5*ColdSide.Properties.Average.T;
    112 
    113 "Hot Stream Wall Temperature"
    114         HotSide.Properties.Wall.Twall =   0.5*HotSide.Properties.Average.T + 0.5*ColdSide.Properties.Average.T;
    115 
    11698"Hot Stream Average Molecular Weight"
    117         HotSide.Properties.Average.Mw = sum(M*InletHot.z);
     99        HotSide.Properties.Mw = sum(M*InletHot.z);
    118100
    119101"Cold Stream Average Molecular Weight"
    120         ColdSide.Properties.Average.Mw = sum(M*InletCold.z);
     102        ColdSide.Properties.Mw = sum(M*InletCold.z);
    121103
    122104"Cold Stream Average Heat Capacity"
    123         ColdSide.Properties.Average.Cp  =       (1-InletCold.v)*PP.LiquidCp(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,xc) +
    124                 InletCold.v*PP.VapourCp(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,yc);
    125 
    126 "Cold Stream Average Mass Density"
    127         ColdSide.Properties.Average.rho =       (1-InletCold.v)*PP.LiquidDensity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,xc)+
    128                 InletCold.v*PP.VapourDensity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,yc);
    129 
     105        ColdSide.Properties.Cp  =       (1-InletCold.v)*PP.LiquidCp(0.5*InletCold.T+0.5*OutletCold.T,0.5*InletCold.P+0.5*OutletCold.P,xc)+
     106                InletCold.v*PP.VapourCp(0.5*InletCold.T+0.5*OutletCold.T,0.5*InletCold.P+0.5*OutletCold.P,yc);
     107       
    130108"Cold Stream Inlet Mass Density"
    131109        ColdSide.Properties.Inlet.rho   =       (1-InletCold.v)*PP.LiquidDensity(InletCold.T,InletCold.P,xc)+
     
    136114                OutletCold.v*PP.VapourDensity(OutletCold.T,OutletCold.P,OutletCold.y);
    137115
    138 "Cold Stream Average Viscosity"
    139         ColdSide.Properties.Average.Mu  =       (1-InletCold.v)*PP.LiquidViscosity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,xc)+
    140                 InletCold.v*PP.VapourViscosity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,yc);
    141 
    142 "Cold Stream Average Conductivity"
    143         ColdSide.Properties.Average.K   =       (1-InletCold.v)*PP.LiquidThermalConductivity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,xc)+
    144                 InletCold.v*PP.VapourThermalConductivity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,yc);
    145 
    146 "Cold Stream Viscosity at Wall Temperature"
    147         ColdSide.Properties.Wall.Mu     =       (1-InletCold.v)*PP.LiquidViscosity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,xc)+
    148                 InletCold.v*PP.VapourViscosity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,yc);
    149 
    150116"Hot Stream Average Heat Capacity"
    151         HotSide.Properties.Average.Cp   =       (1-InletHot.v)*PP.LiquidCp(HotSide.Properties.Average.T,HotSide.Properties.Average.P,xc) +
    152                 InletHot.v*PP.VapourCp(HotSide.Properties.Average.T,HotSide.Properties.Average.P,yc);
    153 
    154 "Hot Stream Average Mass Density"
    155         HotSide.Properties.Average.rho =        (1-InletHot.v)*PP.LiquidDensity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,xc)+
    156                 InletHot.v*PP.VapourDensity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,yc);
    157 
     117        HotSide.Properties.Cp   =       (1-InletHot.v)*PP.LiquidCp(0.5*InletHot.T+0.5*OutletHot.T,0.5*InletHot.P+0.5*OutletHot.P,xh)+
     118                InletHot.v*PP.VapourCp(0.5*InletHot.T+0.5*OutletHot.T,0.5*InletHot.P+0.5*OutletHot.P,yh);
     119       
    158120"Hot Stream Inlet Mass Density"
    159121        HotSide.Properties.Inlet.rho    =       (1-InletHot.v)*PP.LiquidDensity(InletHot.T,InletHot.P,xc)+
     
    163125        HotSide.Properties.Outlet.rho   =       (1-OutletHot.v)*PP.LiquidDensity(OutletHot.T,OutletHot.P,OutletHot.x)+
    164126                OutletHot.v*PP.VapourDensity(OutletHot.T,OutletHot.P,OutletHot.y);
    165 
    166 "Hot Stream Average Viscosity"
    167         HotSide.Properties.Average.Mu   =       (1-InletHot.v)*PP.LiquidViscosity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,xc)+
    168                 InletHot.v*PP.VapourViscosity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,yc);
    169 
    170 "Hot Stream Average Conductivity"
    171         HotSide.Properties.Average.K    =       (1-InletHot.v)*PP.LiquidThermalConductivity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,xc)+
    172                 InletHot.v*PP.VapourThermalConductivity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,yc);
    173 
    174 "Hot Stream Viscosity at Wall Temperature"
    175         HotSide.Properties.Wall.Mu      =       (1-InletHot.v)*PP.LiquidViscosity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,xc)+
    176                 InletHot.v*PP.VapourViscosity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,yc);
    177127
    178128"Energy Balance Hot Stream"
     
    402352
    403353"Hot Stream Heat Capacity"
    404         Method.Ch  = InletHot.F*HotSide.Properties.Average.Cp;
     354        Method.Ch  = InletHot.F*HotSide.Properties.Cp;
    405355       
    406356"Cold Stream Heat Capacity"
    407         Method.Cc = InletCold.F*ColdSide.Properties.Average.Cp;
     357        Method.Cc = InletCold.F*ColdSide.Properties.Cp;
    408358       
    409359"Effectiveness Correction"
Note: See TracChangeset for help on using the changeset viewer.