Ignore:
Timestamp:
Jul 28, 2007, 9:41:04 PM (15 years ago)
Author:
Argimiro Resende Secchi
Message:

Set icons positions for most devices.

File:
1 edited

Legend:

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

    r307 r325  
    2020Model PHE
    2121
    22 ATTRIBUTES
     22 ATTRIBUTES
    2323        Icon            = "icon/phe";
    2424        Pallete         = true;
     
    4545        ";
    4646
    47 PARAMETERS
    48 
    49 outer PP                        as Plugin                       (Brief="External Physical Properties", Type="PP");
    50 outer NComp             as Integer              (Brief="Number of Chemical Components");
    51         Pi                                              as constant             (Brief="Pi Number",Default=3.14159265);
    52         Kp1(15)                         as constant             (Brief="First constant in Kumar calculation for Pressure Drop");
    53         Kp2(15)                         as constant             (Brief="Second constant in Kumar calculation for Pressure Drop");
    54         Kc1(14)                         as constant             (Brief="First constant in Kumar calculation for Heat Transfer");
    55         Kc2(14)                         as constant             (Brief="Second constant Kumar calculation for Heat Transfer");
     47 PARAMETERS
     48
     49outer PP                as Plugin               (Brief="External Physical Properties", Type="PP");
     50outer NComp             as Integer      (Brief="Number of Chemical Components");
     51        Pi                              as constant     (Brief="Pi Number",Default=3.14159265);
     52        Kp1(15)                 as constant     (Brief="First constant in Kumar calculation for Pressure Drop");
     53        Kp2(15)                 as constant     (Brief="Second constant in Kumar calculation for Pressure Drop");
     54        Kc1(14)                 as constant     (Brief="First constant in Kumar calculation for Heat Transfer");
     55        Kc2(14)                 as constant     (Brief="Second constant Kumar calculation for Heat Transfer");
    5656        M(NComp)                as molweight    (Brief="Component Mol Weight");
    5757       
    58         ChevronAngle    as Switcher                     (Brief="Chevron Corrugation Inclination Angle in Degrees ",Valid=["30","45","50","60","65"],Default="30");
    59         Method                          as Switcher                     (Brief="Method of Thermal Calculation",Valid=["NTU","LMTD"],Default="NTU");
    60         SideOne                         as Switcher                     (Brief="Fluid Alocation in the Side I - (The odd channels)",Valid=["hot","cold"],Default="hot");
    61         Nchannels                       as Integer                              (Brief="Total Number of Channels in The Whole Heat Exchanger");
    62         Nplates                         as Integer                              (Brief="Total Number of Plates in The Whole Heat Exchanger",Default=25);
    63         NpassHot                        as Integer                              (Brief="Number of Passes for Hot Side");
    64         NpassCold                       as Integer                              (Brief="Number of Passes for Cold Side");
    65         Dports                                  as length                               (Brief="Ports Diameter",Lower=1e-6);
    66         Atotal                                  as area                                 (Brief="Total Effective  Area",Lower=1e-6);
    67         Aports                                  as area                                 (Brief="Port Opening  Area of Plate",Lower=1e-6);
    68         Achannel                        as area                                 (Brief="Cross-Sectional Area for Channel Flow",Lower=1e-6);
    69         Dh                                              as length                               (Brief="Equivalent Diameter of Channel",Lower=1e-6);
    70         Depth                           as length                               (Brief="Corrugation Depth",Lower=1e-6);
    71         PhiFactor                       as Real                                 (Brief="Enlargement Factor",Lower=1e-6);
    72         Lp                                              as length                               (Brief="Plate Vertical Distance between Port Centers",Lower=0.1);
    73         Lpack                                   as length                               (Brief="Compact Plate Pack Length",Lower=0.1);
    74         Lv                                              as length                               (Brief="Vertical Ports Distance",Lower=0.1);
    75         Lh                                              as length                               (Brief="Plate Horizontal Distance between Port Centers",Lower=0.1);
    76         Lw                                              as length                               (Brief="Plate Width",Lower=0.1);
    77         pitch                                   as length                               (Brief="Plate Pitch",Lower=0.1);
    78         pt                                              as length                               (Brief="Plate Thickness",Lower=0.1);
    79         Kwall                                   as conductivity         (Brief="Plate Thermal Conductivity",Default=1.0);
    80         Rfh                                             as positive                             (Brief="Hot Side Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0);
    81         Rfc                                             as positive                             (Brief="Cold Side Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0);
    82 
    83 VARIABLES
    84 
    85 in      InletHot                as stream                       (Brief="Inlet Hot Stream");     
    86 in      InletCold           as stream                   (Brief="Inlet Cold Stream");
    87 out     OutletHot       as streamPH     (Brief="Outlet Hot Stream");
    88 out     OutletCold      as streamPH     (Brief="Outlet Cold Stream");
    89 
    90         HotSide                         as Main_PHE                             (Brief="Plate Heat Exchanger Hot Side");
    91         ColdSide                        as Main_PHE                             (Brief="Plate Heat Exchanger Cold Side");
    92         Thermal                         as Thermal_PHE          (Brief="Thermal Results");
    93 
    94 SET
     58        ChevronAngle    as Switcher             (Brief="Chevron Corrugation Inclination Angle in Degrees ",Valid=["30","45","50","60","65"],Default="30");
     59        Method                  as Switcher             (Brief="Method of Thermal Calculation",Valid=["NTU","LMTD"],Default="NTU");
     60        SideOne                 as Switcher             (Brief="Fluid Alocation in the Side I - (The odd channels)",Valid=["hot","cold"],Default="hot");
     61        Nchannels               as Integer              (Brief="Total Number of Channels in The Whole Heat Exchanger");
     62        Nplates                 as Integer              (Brief="Total Number of Plates in The Whole Heat Exchanger",Default=25);
     63        NpassHot                as Integer              (Brief="Number of Passes for Hot Side");
     64        NpassCold               as Integer              (Brief="Number of Passes for Cold Side");
     65        Dports                  as length               (Brief="Ports Diameter",Lower=1e-6);
     66        Atotal                  as area                 (Brief="Total Effective  Area",Lower=1e-6);
     67        Aports                  as area                 (Brief="Port Opening  Area of Plate",Lower=1e-6);
     68        Achannel                as area                 (Brief="Cross-Sectional Area for Channel Flow",Lower=1e-6);
     69        Dh                      as length               (Brief="Equivalent Diameter of Channel",Lower=1e-6);
     70        Depth                   as length               (Brief="Corrugation Depth",Lower=1e-6);
     71        PhiFactor               as Real                 (Brief="Enlargement Factor",Lower=1e-6);
     72        Lp                              as length               (Brief="Plate Vertical Distance between Port Centers",Lower=0.1);
     73        Lpack                   as length               (Brief="Compact Plate Pack Length",Lower=0.1);
     74        Lv                              as length               (Brief="Vertical Ports Distance",Lower=0.1);
     75        Lh                              as length               (Brief="Plate Horizontal Distance between Port Centers",Lower=0.1);
     76        Lw                              as length               (Brief="Plate Width",Lower=0.1);
     77        pitch                   as length               (Brief="Plate Pitch",Lower=0.1);
     78        pt                              as length               (Brief="Plate Thickness",Lower=0.1);
     79        Kwall                   as conductivity (Brief="Plate Thermal Conductivity",Default=1.0);
     80        Rfh                             as positive             (Brief="Hot Side Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0);
     81        Rfc                             as positive             (Brief="Cold Side Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0);
     82
     83 VARIABLES
     84
     85in  InletHot        as stream           (Brief="Inlet Hot Stream", PosX=0, PosY=0.7156);       
     86in  InletCold       as stream           (Brief="Inlet Cold Stream", PosX=1, PosY=0.7156);
     87out OutletHot           as streamPH     (Brief="Outlet Hot Stream", PosX=0, PosY=0.2793);
     88out OutletCold          as streamPH     (Brief="Outlet Cold Stream", PosX=1, PosY=0.2793);
     89
     90        HotSide                 as Main_PHE             (Brief="Plate Heat Exchanger Hot Side");
     91        ColdSide                as Main_PHE             (Brief="Plate Heat Exchanger Cold Side");
     92        Thermal                 as Thermal_PHE  (Brief="Thermal Results");
     93
     94 SET
    9595
    9696#"First constant for Kumar's calculating Pressure Drop"
     
    139139        Atotal =(Nplates-2)*Lw*Lp*PhiFactor;
    140140       
    141 EQUATIONS
     141 EQUATIONS
    142142
    143143"Hot    Stream Average Temperature"
     
    165165        ColdSide.Properties.Average.Mw = sum(M*InletCold.z);
    166166
    167 if InletCold.v equal 0
     167 if InletCold.v equal 0
    168168       
    169169        then   
     
    249249        ColdSide.Properties.Wall.Mu             =       PP.VapourViscosity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
    250250
    251 end
    252 
    253 if InletHot.v equal 0
     251 end
     252
     253 if InletHot.v equal 0
    254254
    255255        then
     
    336336        HotSide.Properties.Wall.Mu              =               PP.VapourViscosity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);
    337337
    338 end
     338 end
    339339
    340340"Energy Balance Hot Stream"
     
    368368        OutletCold.z=InletCold.z;
    369369
    370 switch SideOne
     370 switch SideOne
    371371       
    372372        case "cold":
     
    386386        ColdSide.PressureDrop.Npassage = (2*Nchannels-1+(-1)^(Nchannels))/(4*NpassCold);
    387387
    388 end
     388 end
    389389
    390390"Hot Stream Mass Flux in the Channel"
     
    418418        ColdSide.PressureDrop.Pdrop =ColdSide.PressureDrop.DPchannel+ColdSide.PressureDrop.DPports;
    419419
    420 switch ChevronAngle #Pressure Drop Friction Factor According to kumar's (1984)
     420 switch ChevronAngle #Pressure Drop Friction Factor According to kumar's (1984)
    421421       
    422422        case "30": #    ChevronAngle <= 30
     
    510510        end
    511511
    512 end
    513 
    514 switch ChevronAngle # Heat Transfer Coefficient According to kumar's (1984)
     512 end
     513
     514 switch ChevronAngle # Heat Transfer Coefficient According to kumar's (1984)
    515515
    516516        case "30": #    ChevronAngle <= 30
     
    593593        end
    594594
    595 end
     595 end
    596596
    597597"Hot Stream Velocity in Channels"
     
    637637        Thermal.Ud*(1/HotSide.HeatTransfer.hcoeff +pt/Kwall+1/ColdSide.HeatTransfer.hcoeff + Rfc + Rfh)=1;
    638638
    639 switch Method
     639 switch Method
    640640       
    641641        case "LMTD":
     
    649649        Thermal.Q = Thermal.Eft*Thermal.Cmin*(InletHot.T-InletCold.T);
    650650
    651 end
     651 end
    652652
    653653"Temperature Difference at Inlet - Counter Flow"
     
    681681        ColdSide.HeatTransfer.NTU*ColdSide.HeatTransfer.WCp = Thermal.Ud*Atotal;
    682682
    683 if Thermal.Cr equal 1 # To be Fixed: Effectiveness in true counter flow !
     683 if Thermal.Cr equal 1 # To be Fixed: Effectiveness in true counter flow !
    684684       
    685685        then
     
    697697        Thermal.Fc =(ln(abs(1-Thermal.Eft*Thermal.Cr))-ln(abs(1-Thermal.Eft)))/(Thermal.NTU*(1-Thermal.Cr));
    698698       
     699 end
    699700end
    700 
    701 
    702 end
Note: See TracChangeset for help on using the changeset viewer.