Changeset 149


Ignore:
Timestamp:
Feb 5, 2007, 9:31:00 AM (15 years ago)
Author:
gerson bicca
Message:

updated samples and testing new heat exchangers models

Files:
7 edited

Legend:

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

    r148 r149  
    348348end
    349349
    350 Model Heatex_Basic_NTU           as HeatExchangerSimplified_Basic
     350Model Heatex_Basic_NTU                  as HeatExchangerSimplified_Basic
    351351
    352352ATTRIBUTES
     
    368368end
    369369
    370 Model Heatex_Basic_LMTD          as HeatExchangerSimplified_Basic
     370Model Heatex_Basic_LMTD                 as HeatExchangerSimplified_Basic
    371371
    372372ATTRIBUTES
     
    418418end
    419419
    420 Model HeatExchanger_LMTD         as Heatex_Basic_LMTD
     420Model HeatExchanger_LMTD                as Heatex_Basic_LMTD
    421421
    422422ATTRIBUTES
     
    453453end
    454454
    455 Model Shell_and_Tubes_LMTD  as Heatex_Basic_LMTD
     455Model Shell_and_Tubes_LMTD      as Heatex_Basic_LMTD
    456456       
    457457ATTRIBUTES
     
    635635end
    636636
    637 Model HeatExchanger_NTU         as Heatex_Basic_NTU
     637Model HeatExchanger_NTU                 as Heatex_Basic_NTU
    638638
    639639ATTRIBUTES
     
    684684
    685685end
    686 
    687 Model E_Shell_NTU                               as Heatex_Basic_NTU
    688        
     686 
     687Model Shell_and_Tubes_NTU       as Heatex_Basic_NTU
     688
    689689ATTRIBUTES
    690690        Pallete         = true;
    691         Brief           = "Shell and Tubes Heat Exchanger with 1 shell pass - NTU Method";
     691        Brief           = "Shell and Tubes Heat Exchanger with 1 or 2 shell pass - NTU Method";
    692692        Info            =
    693693        "write some information";
    694694
     695PARAMETERS
     696
     697ShellType                as Switcher(Brief="TEMA Designation",Valid=["Eshell","Fshell"],Default="Eshell");
     698
     699VARIABLES
     700
     701Eft1    as positive (Brief="Effectiveness Correction",Lower=0.01,Upper=1,Default=0.5);
     702
    695703EQUATIONS
    696 "TEMA E Shell Effectiveness"
    697         Eft = 2*(1+Details.Cr+sqrt(1+Details.Cr^2)*((1+exp(-Details.NTU*sqrt(1+Details.Cr^2)))/(1-exp(-Details.NTU*sqrt(1+Details.Cr^2)))) )^-1;
    698 
    699 end
    700 
    701 Model F_Shell_NTU                       as Heatex_Basic_NTU
    702 
    703 ATTRIBUTES
    704         Pallete         = true;
    705         Brief           = "Shell and Tubes Heat Exchanger with 2 shell pass - NTU Method";
    706         Info            =
    707         "write some information";
    708        
    709 VARIABLES
    710 
    711 Eft1    as positive (Brief="Effectiveness Correction",Lower=0.01,Upper=1,Default=0.5);
    712 
    713 EQUATIONS
    714 
    715 "Effectiveness Correction"
     704
     705switch ShellType
     706       
     707        case "Fshell":
     708       
     709"Effectiveness Correction for 2 pass shell side"
    716710        Eft1 = 2*(1+Details.Cr+sqrt(1+Details.Cr^2)*((1+exp(-Details.NTU*sqrt(1+Details.Cr^2)))/(1-exp(-Details.NTU*sqrt(1+Details.Cr^2)))) )^-1;
    717711
     
    719713        Eft = ( ((1-Eft1*Details.Cr)/(1-Eft1))^2 -1  )*( ((1-Eft1*Details.Cr)/(1-Eft1))^2 - Details.Cr )^-1;
    720714
    721 end
     715        case "Eshell":
     716       
     717"TEMA E Shell Effectiveness"
     718        Eft     = 2*(1+Details.Cr+sqrt(1+Details.Cr^2)*((1+exp(-Details.NTU*sqrt(1+Details.Cr^2)))/(1-exp(-Details.NTU*sqrt(1+Details.Cr^2)))) )^-1;
     719
     720"Variable not in use when 1 Pass Shell Side"
     721        Eft1    = Eft;
     722       
     723end
     724
     725end
  • branches/newlanguage/sample/heat_exchangers/sampleEshell.mso

    r148 r149  
    3232NComp    as Integer;
    3333       
     34DEVICES
     35exchanger       as Shell_and_Tubes_NTU;
     36streamhot       as source;
     37streamcold  as source;
     38
    3439SET
    3540
    3641PP.LiquidModel          = "PR";
    3742PP.VapourModel          = "PR";
    38 PP.Components   = ["water","n-butane", "benzene", "n-octane" ];
    39 NComp                                           = PP.NumberOfComponents;
     43PP.Components           = ["water","n-butane", "benzene", "n-octane" ];
     44NComp                                   = PP.NumberOfComponents;
    4045
    41 DEVICES
    42 exchanger       as E_Shell_NTU;
    43 streamhot       as streamTP;
    44 streamcold  as streamTP;
    45        
     46exchanger.ShellType             = "Eshell";
     47
    4648CONNECTIONS
    4749
    48 streamhot               to exchanger.Inlet.Hot;
    49 streamcold      to exchanger.Inlet.Cold;
     50streamhot.Outlet        to exchanger.Inlet.Hot;
     51streamcold.Outlet       to exchanger.Inlet.Cold;
    5052       
    5153SPECIFY
     
    5557exchanger.PressureDrop.Hot.Pdrop        = 0.1*"kPa";
    5658exchanger.PressureDrop.Cold.Pdrop   = 0.2*"kPa";
    57 streamhot.F             = 20    * "kmol/h";
    58 streamhot.T             = 450     * "K";
    59 streamhot.P             = 120    * "kPa";
    60 streamhot.z             = [1,0,0,0];
    61 streamcold.F            = 10 * "kmol/h";
    62 streamcold.P            = 120 * "kPa";
    63 streamcold.T            = 300 * "K";   
    64 streamcold.z            = [0,0.5, 0.1, 0.4];
     59
     60streamhot.Outlet.F              = 20    * "kmol/h";
     61streamhot.Outlet.T              = 450     * "K";
     62streamhot.Outlet.P              = 120    * "kPa";
     63streamhot.Outlet.z              = [1,0,0,0];
     64
     65streamcold.Outlet.F             = 10 * "kmol/h";
     66streamcold.Outlet.P             = 120 * "kPa";
     67streamcold.Outlet.T             = 300 * "K";   
     68streamcold.Outlet.z             = [0,0.5, 0.1, 0.4];
     69
    6570exchanger.Outlet.Cold.T = 347*"K";
    6671       
    6772OPTIONS
    68  mode                     = "steady";
     73Dynamic   = false;
    6974 end
  • branches/newlanguage/sample/heat_exchangers/sampleFshell_LMTD.mso

    r148 r149  
    3434
    3535DEVICES
    36 exchanger       as F_Shell_LMTD;
     36exchanger       as Shell_and_Tubes_LMTD;
    3737streamhot       as source;
    3838streamcold  as source;
     
    4848
    4949exchanger.LMTDcorrection        = "Bowmann";
     50exchanger.ShellType                     = "Fshell";
    5051       
    5152
  • branches/newlanguage/sample/heat_exchangers/samples1.mso

    r100 r149  
    3333
    3434        exchanger       as HeatExchanger_NTU;
    35         streamhot       as stream_therm;
    36         streamcold      as stream_therm;
     35        streamhot       as vapour_stream;
     36        streamcold      as liquid_stream;
    3737
    3838CONNECTIONS
     
    4343PARAMETERS
    4444
    45         PP                      as CalcObject   (File="vrpp");
     45        PP                      as Plugin       (File="vrpp");
    4646        NComp           as Integer;
    4747       
    4848SET
    4949
    50         PP.LiquidModel          = "PR";
     50        PP.LiquidModel                  = "PR";
    5151        PP.VapourModel          = "PR";
    5252        PP.Components           = ["water"];
    53         NComp                           = PP.NumberOfComponents;
    54         exchanger.HE.FlowDirection      = "Counter";
     53        NComp                                   = PP.NumberOfComponents;
     54       
     55        exchanger.FlowDirection      = "counter";
    5556       
    5657SPECIFY
     
    5960#============================================
    6061        streamhot.F                                     = 100    * "kmol/h";
    61         streamhot.T                                     = 450     * "K";
    62         streamhot.v                                     = 1;
     62        streamhot.T                                     = 400     * "K";
    6363        streamhot.P                                     = 1.5     * "atm";
    6464        streamhot.z                                     = [1];
     
    7070        streamcold.P                                    = 1     * "atm";
    7171        streamcold.T                                    = 350   * "K";
    72         streamcold.v                                    = 0;
    7372    streamcold.z                                        = [1];
    7473       
     
    7978        exchanger.Details.Ud                = 0.74  *"W/m^2/K";
    8079        exchanger.Details.Uc                = 0.74  *"W/m^2/K";
    81         exchanger.PressureDrop.Hot.Pdrop        = 0*"atm";
    82         exchanger.PressureDrop.Cold.Pdrop   = 0*"atm";
     80        exchanger.PressureDrop.Hot.Pdrop        = 0.001*"atm";
     81        exchanger.PressureDrop.Cold.Pdrop   = 0.003*"atm";
    8382       
    8483OPTIONS
     
    8685#   Simulation Options
    8786#============================================
    88  mode                   = "steady";
     87 Dynamic        = false;
    8988
    9089end
  • branches/newlanguage/sample/heat_exchangers/samples2.mso

    r100 r149  
    3232#===============================================================
    3333
    34         exchanger       as E_Shell_LMTD;
    35         streamhot       as stream_therm;
    36         streamcold      as stream_therm;
     34        exchanger       as Shell_and_Tubes_LMTD;
     35        streamhot       as vapour_stream;
     36        streamcold      as liquid_stream;
    3737
    3838CONNECTIONS
    3939
    40         streamhot       to exchanger.Inlet.Hot;
     40        streamhot       to exchanger.Inlet.Hot;
    4141        streamcold      to exchanger.Inlet.Cold;
    4242       
    4343PARAMETERS
    4444
    45         PP              as CalcObject   (File="vrpp");
     45        PP              as Plugin       (File="vrpp");
    4646        NComp   as Integer;
    4747       
     
    5151#===============================================================
    5252       
    53         PP.LiquidModel          = "RK";
    54         PP.VapourModel          = "RK";
     53        PP.LiquidModel                  = "PR";
     54        PP.VapourModel          = "PR";
    5555        PP.Components           = ["water"];
    56         NComp                           = PP.NumberOfComponents;
     56        NComp                                   = PP.NumberOfComponents;
     57       
     58        exchanger.ShellType             = "Eshell";
     59        exchanger.LMTDcorrection = "Fakeri";
    5760       
    5861SPECIFY
     
    6265        streamhot.F                                     = 100    * "kmol/h";
    6366        streamhot.T                                     = 450     * "K";
    64         streamhot.v                                     = 1;
    6567        streamhot.P                                     = 1.5     * "atm";
    6668        streamhot.z                                     = [1];
     
    7274        streamcold.P                                    = 1     * "atm";
    7375        streamcold.T                                    = 350   * "K";
    74         streamcold.v                                    = 0;
    7576    streamcold.z                                        = [1];
    7677       
     
    7879#   Required Details
    7980#============================================
    80         exchanger.Details.A                     = 65    *"m^2";
    81         exchanger.Details.Ud                = 0.74  *"W/m^2/K";
    82         exchanger.Details.Uc                = 0.74  *"W/m^2/K";
    83         exchanger.PressureDrop.Hot.Pdrop        = 0   * "atm";
    84         exchanger.PressureDrop.Cold.Pdrop       = 0   * "atm";
     81        exchanger.Details.A                                             = 65    *"m^2";
     82        exchanger.Details.Ud                            = 0.74  *"W/m^2/K";
     83        exchanger.Details.Uc                            = 0.74  *"W/m^2/K";
     84        exchanger.PressureDrop.Hot.Pdrop        = 0.01   * "atm";
     85        exchanger.PressureDrop.Cold.Pdrop = 0.2   * "atm";
     86       
    8587OPTIONS
    8688#============================================
    8789#   Simulation Options
    8890#============================================
    89  mode                   = "steady";
     91 Dynamic = false;
    9092
    9193end
  • trunk/sample/heat_exchangers/NTU_Method.mso

    r89 r149  
    4949#===============================================================
    5050       
    51         PP.LiquidModel          = "RK";
    52         PP.VapourModel          = "RK";
     51        PP.LiquidModel          = "PR";
     52        PP.VapourModel          = "PR";
    5353        PP.Components           = ["water"];
    5454        NComp                           = PP.NumberOfComponents;
    5555        exchanger.HE.HotSide          = "Shell";
    5656       
    57         exchanger.HE.TurbulentFlow     = "Petukhov";
    58 #       exchanger.HE.TurbulentFlow     = "SiederTate";
     57#       exchanger.HE.TurbulentFlow     = "Petukhov";
     58        exchanger.HE.TurbulentFlow     = "SiederTate";
    5959       
    6060#=====================================================================
     
    114114        exchanger.Baffles.Ls            = 1     *"m";
    115115        exchanger.Baffles.Lsi           = 1     *"m";
     116#=====================================================================
     117#       Fouling
     118#=====================================================================
     119
     120        exchanger.Resistances.Rfi = 0*"m^2*K/kW";
     121        exchanger.Resistances.Rfo = 0*"m^2*K/kW";
    116122       
    117123
     
    121127#============================================
    122128 mode                   = "steady";
    123   relativeAccuracy = 1e-8;
    124129
    125130end
  • trunk/sample/heat_exchangers/sampleEshell.mso

    r100 r149  
    4646CONNECTIONS
    4747
    48 streamhot               to exchanger.Inlet.Hot;
     48streamhot       to exchanger.Inlet.Hot;
    4949streamcold      to exchanger.Inlet.Cold;
    5050       
     
    6363streamcold.T            = 300 * "K";   
    6464streamcold.z            = [0,0.5, 0.1, 0.4];
     65
    6566exchanger.Outlet.Cold.T = 347*"K";
    6667       
Note: See TracChangeset for help on using the changeset viewer.