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

updated samples and testing new heat exchangers models

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.