Changeset 135 for branches/newlanguage


Ignore:
Timestamp:
Jan 25, 2007, 6:00:26 PM (17 years ago)
Author:
gerson bicca
Message:

updated models and samples for the new language

Location:
branches/newlanguage
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • branches/newlanguage/eml/heat_exchangers/HEX_Engine.mso

    r132 r135  
    6363
    6464Model Inlet_Main_Stream
    65 #=====================================================================
    66 #       Inlet Streams
    67 #===================================================================== 
    68 VARIABLES
    69 Hot     as stream; # Inlet Hot Stream
    70 Cold    as stream; # Inlet Cold Stream
     65       
     66ATTRIBUTES
     67        Pallete = false;
     68        Brief = "write some information";
     69        Info =
     70        "write some information";
     71       
     72VARIABLES
     73Hot     as stream       (Brief="Inlet Hot Stream");
     74Cold    as stream       (Brief="Inlet Cold Stream");
    7175
    7276end
    7377
    7478Model Outlet_Main_Stream
    75 #=====================================================================
    76 #       Outlet Streams
    77 #===================================================================== 
    78 VARIABLES
    79 Hot     as liquid_stream;  # Outlet Hot Stream
    80 Cold    as liquid_stream;  # Outlet Cold Stream
     79       
     80ATTRIBUTES
     81        Pallete = false;
     82        Brief = "write some information";
     83        Info =
     84        "write some information";
     85       
     86VARIABLES
     87# Must be streamPH
     88Hot     as liquid_stream (Brief="Outlet Hot Stream");
     89Cold    as liquid_stream (Brief="Outlet Cold Stream");
    8190
    8291end
    … …  
    8796 
    8897Model Properties_Average
    89 #=====================================================================
    90 #       Average Physical Properties
    91 #===================================================================== 
     98       
     99ATTRIBUTES
     100        Pallete = false;
     101        Brief = "write some information";
     102        Info =
     103        "write some information";
     104       
    92105VARIABLES
    93106Mw              as molweight            (Brief="Average Mol Weight",Default=75, Lower=1, Upper=1e8);
    94 T               as temperature          (Brief="Average  Temperature",Lower=50);
    95 P               as pressure                     (Brief="Average  Pressure",Default=1, Lower=1e-10, Upper=30);
     107T                       as temperature          (Brief="Average  Temperature",Lower=50);
     108P                       as pressure                     (Brief="Average  Pressure",Default=1, Lower=1e-10, Upper=30);
    96109rho             as dens_mass            (Brief="Stream Density" ,Default=1000, Lower=1e-3, Upper=5e5);
    97110Mu              as viscosity            (Brief="Stream Viscosity",Lower=0.0001);
    98 Cp              as cp_mol                       (Brief="Stream Molar Heat Capacity", Upper=1e10);
    99 K               as conductivity         (Brief="Stream Thermal Conductivity", Default=1.0, Lower=1e-5, Upper=500);
     111Cp                      as cp_mol                       (Brief="Stream Molar Heat Capacity", Upper=1e10);
     112K                       as conductivity         (Brief="Stream Thermal Conductivity", Default=1.0, Lower=1e-5, Upper=500);
    100113
    101114end
    102115
    103116Model Properties_In_Out
    104 #=====================================================================
    105 #       Inlet/Outlet Physical Properties
    106 #===================================================================== 
    107 VARIABLES
    108 Fw              as flow_mass    (Brief="Stream Mass Flow");
    109 rho             as dens_mass    (Brief="Stream Density" ,Default=1000, Lower=1e-3, Upper=5e5);
    110 Mu              as viscosity    (Brief="Stream Viscosity",Default=1, Lower=1e-5, Upper=1e5);
    111 Cp              as cp_mol               (Brief="Stream Molar Heat Capacity", Upper=1e10);
    112 K               as conductivity (Brief="Stream Thermal Conductivity", Default=1.0, Lower=1e-5, Upper=500);
     117       
     118ATTRIBUTES
     119        Pallete = false;
     120        Brief = "write some information";
     121        Info =
     122        "write some information";
     123       
     124VARIABLES
     125Fw              as flow_mass            (Brief="Stream Mass Flow");
     126rho             as dens_mass            (Brief="Stream Density" ,Default=1000, Lower=1e-3, Upper=5e5);
     127Mu              as viscosity            (Brief="Stream Viscosity",Default=1, Lower=1e-5, Upper=1e5);
     128Cp                      as cp_mol                       (Brief="Stream Molar Heat Capacity", Upper=1e10);
     129K                       as conductivity         (Brief="Stream Thermal Conductivity", Default=1.0, Lower=1e-5, Upper=500);
    113130
    114131end
    115132
    116133Model Properties_Wall
    117 #=====================================================================
    118 #       Physical Properties at Wall Temperature
    119 #===================================================================== 
    120 VARIABLES
    121 Mu              as viscosity    (Brief="Stream Viscosity",Default=1, Lower=1e-5, Upper=1e5);
    122 Cp              as cp_mol               (Brief="Stream Molar Heat Capacity", Upper=1e10);
    123 K               as conductivity (Brief="Stream Thermal Conductivity", Default=1.0, Lower=1e-5, Upper=500);
    124 Twall   as temperature  (Brief="Wall Temperature",Lower=50);
     134       
     135ATTRIBUTES
     136        Pallete = false;
     137        Brief = "write some information";
     138        Info =
     139        "write some information";
     140       
     141VARIABLES
     142Mu              as viscosity            (Brief="Stream Viscosity",Default=1, Lower=1e-5, Upper=1e5);
     143Cp                      as cp_mol                       (Brief="Stream Molar Heat Capacity", Upper=1e10);
     144K                       as conductivity         (Brief="Stream Thermal Conductivity", Default=1.0, Lower=1e-5, Upper=500);
     145Twall           as temperature  (Brief="Wall Temperature",Lower=50);
    125146
    126147end
    127148
    128149Model Physical_Properties
    129 #=====================================================================
    130 #       Physical Properties
    131 #===================================================================== 
    132 VARIABLES
    133 Inlet           as Properties_In_Out;           # Properties at Inlet Stream
    134 Average         as Properties_Average;      # Properties at Average Temperature
    135 Outlet          as Properties_In_Out;           # Properties at Outlet Stream
    136 Wall            as Properties_Wall;                     # Properties at Wall Temperature
     150       
     151ATTRIBUTES
     152        Pallete = false;
     153        Brief = "write some information";
     154        Info =
     155        "write some information";
     156       
     157VARIABLES
     158Inlet           as Properties_In_Out    (Brief="Properties at Inlet Stream");
     159Average         as Properties_Average   (Brief="Properties at Average Temperature");
     160Outlet          as Properties_In_Out    (Brief="Properties at Outlet Stream");
     161Wall                    as Properties_Wall              (Brief="Properties at Wall Temperature");
    137162
    138163end
    139164
    140165Model Main_Properties
    141 #=====================================================================
    142 #       Physical Properties for Hot and Cold Side
    143 #===================================================================== 
    144 VARIABLES
    145 Hot  as Physical_Properties; # Hot Stream
    146 Cold as Physical_Properties; # Cold Stream
     166ATTRIBUTES
     167        Pallete = false;
     168        Brief = "write some information";
     169        Info =
     170        "write some information";
     171       
     172VARIABLES
     173
     174Hot  as Physical_Properties  (Brief="Hot Stream");
     175Cold as Physical_Properties  (Brief="Cold Stream");
     176
    147177end
    148178
    149179Model Tube_Pdrop
    150 #=====================================================================
    151 #       Tube Side Pressure Drop block
    152 #===================================================================== 
     180       
     181ATTRIBUTES
     182        Pallete = false;
     183        Brief = "write some information";
     184        Info =
     185        "write some information";
     186       
    153187VARIABLES
    154188PdTube                  as press_delta  (Brief="Tube Pressure Drop",Default=0.01, Lower=1e-10);
    155 Pdtotal                 as press_delta  (Brief="Total Pressure Drop",Default=0.01, Lower=1e-10);
     189Pdtotal                         as press_delta  (Brief="Total Pressure Drop",Default=0.01, Lower=1e-10);
    156190Pdnozzle_in     as press_delta  (Brief="Inlet Nozzle Pressure Drop",Default=0.01, Lower=0);
    157191Pdnozzle_out    as press_delta  (Brief="Outlet Nozzle Pressure Drop",Default=0.01, Lower=0);
    … …  
    166200
    167201Model Tube_Heat_Transfer
    168 #=====================================================================
    169 #       Tube Side Heat Transfer Block
    170 #===================================================================== 
    171 VARIABLES
    172 Re        as positive             (Brief="Tube Side Reynolds Number",Default=1000,Lower=1);
    173 htube as heat_trans_coeff (Brief="Tube Side Film Coefficient",Default=1,Lower=1e-12, Upper=1e6);
    174 PR        as positive             (Brief="Tube Side Prandtl Number",Default=0.5,Lower=1e-8);
    175 PRw   as positive                 (Brief="Tube Side Prandtl Number at Wall Temperature",Default=0.5,Lower=1e-8);
    176 Phi   as positive                 (Brief="Phi Correction",Default=1,Lower=1e-3);
    177 Vtube as velocity                 (Brief="Tube Side Velocity",Lower=1e-8);
     202       
     203ATTRIBUTES
     204        Pallete = false;
     205        Brief = "write some information";
     206        Info =
     207        "write some information";
     208       
     209VARIABLES
     210Re              as positive                             (Brief="Tube Side Reynolds Number",Default=1000,Lower=1);
     211htube   as heat_trans_coeff (Brief="Tube Side Film Coefficient",Default=1,Lower=1e-12, Upper=1e6);
     212PR              as positive                             (Brief="Tube Side Prandtl Number",Default=0.5,Lower=1e-8);
     213PRw     as positive                             (Brief="Tube Side Prandtl Number at Wall Temperature",Default=0.5,Lower=1e-8);
     214Phi             as positive                             (Brief="Phi Correction",Default=1,Lower=1e-3);
     215Vtube   as velocity                             (Brief="Tube Side Velocity",Lower=1e-8);
    178216
    179217end
    180218
    181219Model Shell_Pdrop
    182 #=====================================================================
    183 #       Shell Side Pressure Drop block
    184 #===================================================================== 
    185 VARIABLES
    186 PdCross                 as press_delta  (Brief="Cross Flow Pressure Drop",Default=0.01, Lower=0);
    187 PdEndZones      as press_delta  (Brief="End Zones Pressure Drop",Default=0.01, Lower=0);
    188 Pdwindow                as press_delta  (Brief="Window Pressure Drop",Default=0.01, Lower=1e-10);
    189 Pdtotal                 as press_delta  (Brief="Total Pressure Drop",Default=0.01, Lower=0);
    190 Pdnozzle_in     as press_delta  (Brief="Inlet Nozzle Pressure Drop",Default=0.01, Lower=0);
    191 Pdnozzle_out    as press_delta  (Brief="Outlet Nozzle Pressure Drop",Default=0.01, Lower=0);
    192 Vnozzle_in      as velocity             (Brief="Inlet Nozzle Velocity",Default=1, Upper=1e5, Lower=0);
    193 Vnozzle_out     as velocity             (Brief="Outlet Nozzle Velocity",Default=1, Upper=1e5, Lower=0);
    194 RVsquare_out    as positive (Brief = "Outlet Nozzle rho-V^2", Default=1, Upper=1e6, Unit = "kg/s^2/m");
    195 RVsquare_in     as positive (Brief = "Inlet Nozzle rho-V^2", Default=1, Upper=1e6, Unit = "kg/s^2/m");
     220       
     221ATTRIBUTES
     222        Pallete = false;
     223        Brief = "write some information";
     224        Info =
     225        "write some information";
     226       
     227VARIABLES
     228PdCross                         as press_delta          (Brief="Cross Flow Pressure Drop",Default=0.01, Lower=0);
     229PdEndZones              as press_delta          (Brief="End Zones Pressure Drop",Default=0.01, Lower=0);
     230Pdwindow                        as press_delta          (Brief="Window Pressure Drop",Default=0.01, Lower=1e-10);
     231Pdtotal                                 as press_delta          (Brief="Total Pressure Drop",Default=0.01, Lower=0);
     232Pdnozzle_in             as press_delta          (Brief="Inlet Nozzle Pressure Drop",Default=0.01, Lower=0);
     233Pdnozzle_out            as press_delta          (Brief="Outlet Nozzle Pressure Drop",Default=0.01, Lower=0);
     234Vnozzle_in              as velocity                     (Brief="Inlet Nozzle Velocity",Default=1, Upper=1e5, Lower=0);
     235Vnozzle_out             as velocity                     (Brief="Outlet Nozzle Velocity",Default=1, Upper=1e5, Lower=0);
     236RVsquare_out            as positive                     (Brief = "Outlet Nozzle rho-V^2", Default=1, Upper=1e6, Unit = "kg/s^2/m");
     237RVsquare_in             as positive                     (Brief = "Inlet Nozzle rho-V^2", Default=1, Upper=1e6, Unit = "kg/s^2/m");
    196238
    197239EQUATIONS
    … …  
    202244
    203245Model Shell_Heat_Transfer
    204 #=====================================================================
    205 # Shell Side Heat Transfer Block       
    206 #===================================================================== 
    207 VARIABLES
    208 Re                      as positive                     (Brief="Shell Side Reynolds Number",Default=100,Lower=1);
    209 PR                      as positive                     (Brief="Shell Side Prandtl Number",Default=0.7,Lower=1e-6);
    210 PRw             as positive                     (Brief="Shell Side Prandtl Number",Default=0.5,Lower=1e-8);
     246       
     247ATTRIBUTES
     248        Pallete = false;
     249        Brief = "write some information";
     250        Info =
     251        "write some information";
     252       
     253VARIABLES
     254Re              as positive                             (Brief="Shell Side Reynolds Number",Default=100,Lower=1);
     255PR              as positive                             (Brief="Shell Side Prandtl Number",Default=0.7,Lower=1e-6);
     256PRw             as positive                             (Brief="Shell Side Prandtl Number",Default=0.5,Lower=1e-8);
    211257hshell          as heat_trans_coeff     (Brief="Shell Side Film Coefficient",Default=1,Lower=1e-12, Upper=1e6);
    212 Phi             as positive                     (Brief="Phi Correction",Default=1,Lower=1e-3);
     258Phi     as positive                             (Brief="Phi Correction",Default=1,Lower=1e-3);
    213259Ji                      as constant                     (Brief="Shell Side Ji Factor",Default=0.05);
    214 Jr                      as positive                     (Brief="Shell Side Jr Factor",Lower=10e-6);
    215 Jl                      as positive                     (Brief="Shell Side Jl Factor",Lower=10e-6);
    216 Jb                      as positive                     (Brief="Shell Side Jb Factor",Lower=10e-6);
    217 Jc                      as positive                     (Brief="Shell Side Jc Factor",Lower=10e-6);
    218 Js                      as positive                     (Brief="Shell Side Js Factor",Lower=10e-6);
    219 Jtotal          as positive                     (Brief="Shell Side Jtotal Factor",Lower=10e-6);
    220 Sm                      as area                         (Brief="Shell Side Cross Flow Area",Default=0.05,Lower=10e-6);
     260Jr                      as positive                             (Brief="Shell Side Jr Factor",Lower=10e-6);
     261Jl                      as positive                             (Brief="Shell Side Jl Factor",Lower=10e-6);
     262Jb                      as positive                             (Brief="Shell Side Jb Factor",Lower=10e-6);
     263Jc                      as positive                             (Brief="Shell Side Jc Factor",Lower=10e-6);
     264Js                      as positive                             (Brief="Shell Side Js Factor",Lower=10e-6);
     265Jtotal          as positive                             (Brief="Shell Side Jtotal Factor",Lower=10e-6);
     266Sm              as area                                 (Brief="Shell Side Cross Flow Area",Default=0.05,Lower=10e-6);
    221267
    222268end
    223269
    224270Model Baffles_Main
    225 #=====================================================================
    226 #       Baffles Spacing
    227 #=====================================================================
    228 VARIABLES
    229 Ls                      as length               (Brief="Central Baffle Spacing",Lower=1e-8);
     271       
     272ATTRIBUTES
     273        Pallete = false;
     274        Brief = "write some information";
     275        Info =
     276        "write some information";
     277       
     278VARIABLES
     279Ls              as length               (Brief="Central Baffle Spacing",Lower=1e-8);
    230280Lsi             as length               (Brief="Inlet Baffle Spacing",Lower=1e-8);
    231281Lso             as length               (Brief="Outlet Baffle Spacing",Lower=1e-8);
    … …  
    234284
    235285Model Main_Resistances
    236 #=====================================================================
    237 #       Resistances
    238 #===================================================================== 
     286       
     287ATTRIBUTES
     288        Pallete = false;
     289        Brief = "write some information";
     290        Info =
     291        "write some information";
     292       
    239293VARIABLES
    240294
    241295Rtube   as positive     (Brief="Tube Resistance",Unit="m^2*K/kW",Lower=1e-6);
    242 Rwall   as positive     (Brief="Wall Resistance",Unit="m^2*K/kW",Lower=1e-6);
    243 Rshell  as positive     (Brief="Shell Resistance",Unit="m^2*K/kW",Lower=1e-6);
    244 Rfi             as positive     (Brief="Inside Fouling Resistance",Unit="m^2*K/kW",Default=1e-6,Lower=0);
     296Rwall           as positive     (Brief="Wall Resistance",Unit="m^2*K/kW",Lower=1e-6);
     297Rshell          as positive     (Brief="Shell Resistance",Unit="m^2*K/kW",Lower=1e-6);
     298Rfi                     as positive     (Brief="Inside Fouling Resistance",Unit="m^2*K/kW",Default=1e-6,Lower=0);
    245299Rfo             as positive     (Brief="Outside Fouling Resistance",Unit="m^2*K/kW",Default=1e-6,Lower=0);
    246300
    … …  
    248302
    249303Model Details_Main
    250 #=====================================================================
    251 #       Heat Exchanger Thermal Details
    252 #===================================================================== 
    253 VARIABLES
    254 A               as area                         (Brief="Exchange Surface Area");
    255 Q               as power                        (Brief="Heat Transfer", Default=7000, Lower=1e-6, Upper=1e10);
    256 Uc              as heat_trans_coeff (Brief="Overall Heat Transfer Coefficient Clean",Default=1,Lower=1e-6,Upper=1e10);
    257 Ud              as heat_trans_coeff (Brief="Overall Heat Transfer Coefficient Dirty",Default=1,Lower=1e-6,Upper=1e10);
    258 Ch      as positive                     (Brief="Hot Stream Heat Capacity",Lower=1e-3,Default=1e3,Unit="W/K");
    259 Cc      as positive                     (Brief="Cold Stream Heat Capacity",Lower=1e-3,Default=1e3,Unit="W/K");
    260 Cr      as positive             (Brief="Heat Capacity Ratio",Default=0.5,Lower=1e-6);
    261 Cmin    as positive             (Brief="Minimum Heat Capacity",Lower=1e-10,Default=1e3,Unit="W/K");
    262 Cmax    as positive             (Brief="Maximum Heat Capacity",Lower=1e-10,Default=1e3,Unit="W/K");
    263 NTU             as positive                     (Brief="Number of Units Transference",Default=0.05,Lower=1e-10);
     304       
     305ATTRIBUTES
     306        Pallete = false;
     307        Brief = "write some information";
     308        Info =
     309        "write some information";
     310       
     311VARIABLES
     312A               as area                                 (Brief="Exchange Surface Area");
     313Q               as power                                (Brief="Heat Transfer", Default=7000, Lower=1e-6, Upper=1e10);
     314Uc      as heat_trans_coeff (Brief="Overall Heat Transfer Coefficient Clean",Default=1,Lower=1e-6,Upper=1e10);
     315Ud      as heat_trans_coeff (Brief="Overall Heat Transfer Coefficient Dirty",Default=1,Lower=1e-6,Upper=1e10);
     316Ch      as positive                             (Brief="Hot Stream Heat Capacity",Lower=1e-3,Default=1e3,Unit="W/K");
     317Cc      as positive                             (Brief="Cold Stream Heat Capacity",Lower=1e-3,Default=1e3,Unit="W/K");
     318Cr      as positive                             (Brief="Heat Capacity Ratio",Default=0.5,Lower=1e-6);
     319Cmin  as positive                               (Brief="Minimum Heat Capacity",Lower=1e-10,Default=1e3,Unit="W/K");
     320Cmax as positive                                (Brief="Maximum Heat Capacity",Lower=1e-10,Default=1e3,Unit="W/K");
     321NTU     as positive                             (Brief="Number of Units Transference",Default=0.05,Lower=1e-10);
    264322
    265323EQUATIONS
    … …  
    270328
    271329Model Tube_Side_Main
    272 #=====================================================================
    273 #       Tube Side Main Variables
    274 #===================================================================== 
    275 VARIABLES
    276 PressureDrop    as Tube_Pdrop;                  #Tube Side Pressure Drop
    277 HeatTransfer    as Tube_Heat_Transfer;  #Tube Side Heat Transfer
     330
     331ATTRIBUTES
     332        Pallete = false;
     333        Brief = "write some information";
     334        Info =
     335        "write some information";
     336       
     337VARIABLES
     338PressureDrop    as Tube_Pdrop                   (Brief="Tube Side Pressure Drop");
     339HeatTransfer    as Tube_Heat_Transfer (Brief="Tube Side Heat Transfer");
    278340
    279341end
    280342
    281343Model Shell_Side_Main
    282 #=====================================================================
    283 #       Shell Side Main Variables
    284 #===================================================================== 
    285 VARIABLES
    286 PressureDrop    as Shell_Pdrop;                 # Shell Side Pressure Drop
    287 HeatTransfer    as Shell_Heat_Transfer; # Shell Side Heat Transfer
     344       
     345ATTRIBUTES
     346        Pallete = false;
     347        Brief = "write some information";
     348        Info =
     349        "write some information";
     350       
     351VARIABLES
     352PressureDrop    as Shell_Pdrop                           (Brief="Shell Side Pressure Drop");
     353HeatTransfer    as Shell_Heat_Transfer  (Brief= "Shell Side Heat Transfer");
    288354
    289355end
    290356
    291357Model Basic_Pdrop
    292 #=====================================================================
    293 #       Pressure Drop
    294 #===================================================================== 
     358       
     359ATTRIBUTES
     360        Pallete = false;
     361        Brief = "write some information";
     362        Info =
     363        "write some information";
     364       
    295365VARIABLES
    296366Pdrop   as press_delta  (Brief="Pressure Drop",Default=0.01, Lower=0);
    … …  
    300370
    301371Model Main_Pdrop
    302 #=====================================================================
    303 #       Pressure Drop block
    304 #===================================================================== 
    305 VARIABLES
    306 Hot     as Basic_Pdrop;# Hot Stream
    307 Cold    as Basic_Pdrop;# Cold Stream
     372       
     373ATTRIBUTES
     374        Pallete = false;
     375        Brief = "write some information";
     376        Info =
     377        "write some information";
     378       
     379VARIABLES
     380Hot     as Basic_Pdrop (Brief="Hot Stream");
     381Cold    as Basic_Pdrop (Brief="Cold Stream");
    308382
    309383end     
    310384
    311385Model DoublePipe_HeatTransfer
    312 #=====================================================================
    313 #       Double Pipe Heat Transfer Block
    314 #===================================================================== 
     386       
     387ATTRIBUTES
     388        Pallete = false;
     389        Brief = "write some information";
     390        Info =
     391        "write some information";
     392       
    315393PARAMETERS
    316 As              as area                         (Brief="Cross Sectional Area for Flow",Default=0.05,Lower=1e-8);
    317 Dh      as length                       (Brief="Hydraulic Diameter of Pipe for Heat Transfer",Lower=1e-8);
    318 
    319 VARIABLES
    320 Re              as positive                     (Brief="Reynolds Number",Default=100,Lower=1);
     394As              as area         (Brief="Cross Sectional Area for Flow",Default=0.05,Lower=1e-8);
     395Dh      as length       (Brief="Hydraulic Diameter of Pipe for Heat Transfer",Lower=1e-8);
     396
     397VARIABLES
     398Re              as positive                             (Brief="Reynolds Number",Default=100,Lower=1);
    321399hcoeff  as heat_trans_coeff (Brief="Film Coefficient",Default=1,Lower=1e-12, Upper=1e6);
    322 PR              as positive                     (Brief="Prandtl Number",Default=0.5,Lower=1e-8);
    323 Phi     as positive                     (Brief="Phi Correction",Default=1,Lower=1e-3);
    324 Vmean   as velocity                     (Brief="Tube Velocity",Lower=1e-8);
     400PR              as positive                             (Brief="Prandtl Number",Default=0.5,Lower=1e-8);
     401Phi             as positive                             (Brief="Phi Correction",Default=1,Lower=1e-3);
     402Vmean   as velocity                             (Brief="Tube Velocity",Lower=1e-8);
    325403
    326404end
    327405
    328406Model DoublePipe_PressureDrop
    329 #=====================================================================
    330 #       #       Double Pipe Pressure Drop Block
    331 #===================================================================== 
     407       
     408ATTRIBUTES
     409        Pallete = false;
     410        Brief = "write some information";
     411        Info =
     412        "write some information";
     413       
    332414PARAMETERS
    333415Dh      as length               (Brief="Hydraulic Diameter of Pipe for Pressure Drop",Lower=1e-6);
    … …  
    336418Pdrop   as press_delta  (Brief="Pressure Drop",Default=0.01, Lower=1e-10);
    337419fi      as fricfactor   (Brief="Friction Factor", Default=0.05, Lower=1e-10, Upper=2000);
    338 Re              as positive             (Brief="Reynolds Number",Default=100,Lower=1);
     420Re      as positive             (Brief="Reynolds Number",Default=100,Lower=1);
    339421
    340422end     
    341423
    342424Model Main_DoublePipe
    343 #=====================================================================
    344 #       Double Pipe Main Variables
    345 #===================================================================== 
    346 VARIABLES
    347 HeatTransfer as DoublePipe_HeatTransfer;
    348 PressureDrop as DoublePipe_PressureDrop;
    349 
    350 end
     425       
     426ATTRIBUTES
     427        Pallete = false;
     428        Brief = "write some information";
     429        Info =
     430        "write some information";
     431       
     432VARIABLES
     433HeatTransfer as DoublePipe_HeatTransfer (Brief="Double Pipe Heat Transfer");
     434PressureDrop as DoublePipe_PressureDrop (Brief="Double Pipe Pressure Drop");
     435
     436end

  • branches/newlanguage/eml/heat_exchangers/HeatExchangerDetailed.mso

    r132 r135  
    2525
    2626Model HeatExchangerDetailed_Basic
    27        
     27
     28ATTRIBUTES
     29        Pallete = false;
     30        Brief = "write some information";
     31        Info =
     32        "write some information";
     33
    2834PARAMETERS
    2935
    30 outer PP                as Plugin       (Brief="External Physical Properties");
     36outer PP                as Plugin               (Brief="External Physical Properties");
    3137outer NComp     as Integer      (Brief="Number of Components");
    32         HE              as Plugin       (Brief="STHE Calculations",File="heatex");
    33         M(NComp)        as molweight    (Brief="Component Mol Weight");
     38                HE              as Plugin               (Brief="STHE Calculations",File="heatex");
     39                M(NComp)  as molweight  (Brief="Component Mol Weight");
    3440       
    3541VARIABLES
    3642
    37 in  Inlet               as Inlet_Main_Stream;   
    38 out Outlet              as Outlet_Main_Stream; 
    39         Properties      as Main_Properties;             
    40         Details                 as Details_Main;
    41         Tubes                   as Tube_Side_Main;     
    42         Shell                   as Shell_Side_Main;
    43         Resistances     as Main_Resistances;
    44         Baffles         as Baffles_Main;
     43in      Inlet                   as Inlet_Main_Stream;   
     44out     Outlet                  as Outlet_Main_Stream; 
     45                Properties              as Main_Properties;             
     46                Details                 as Details_Main;
     47                Tubes                           as Tube_Side_Main;     
     48                Shell                           as Shell_Side_Main;
     49                Resistances     as Main_Resistances;
     50                Baffles                 as Baffles_Main;
    4551
    4652SET
     53
    4754        M   = PP.MolecularWeight();
    4855
    … …  
    5057
    5158#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    52 #                                               Properties                                                                      #
     59#                                               Properties                                                                                                                                                                     
    5360#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    5461
    … …  
    341348end
    342349
    343 
    344 Model Heatex_Detailed           as HeatExchangerDetailed_Basic
    345 
     350Model Heatex_Detailed          as HeatExchangerDetailed_Basic
     351
     352ATTRIBUTES
     353        Pallete = false;
     354        Brief = "write some information";
     355        Info =
     356        "write some information";
     357       
    346358PARAMETERS
    347359
    348 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    349 #                               Basic  Parameters                                                                       #
    350 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    351 outer PP                as Plugin       (Brief="External Physical Properties");
    352 side        as Integer          (Brief="Fluid Alocation Flag",Lower=0,Upper=1);
    353 Pi                      as constant     (Brief="Pi Number",Default=3.14159265);
    354 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    355 #                               Shell Geometrical Parameters                                            #
    356 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    357 Tpass                   as Integer              (Brief="Number of Tube Passes",Lower=1);
    358 Nss                             as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
    359 Dishell                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
    360 Donozzle_Shell  as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
    361 Dinozzle_Shell  as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
    362 Aonozzle_Shell  as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
    363 Ainozzle_Shell  as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
    364 Aeonozzle_Shell as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
    365 Aeinozzle_Shell as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
    366 Hinozzle_Shell  as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
    367 Honozzle_Shell  as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
    368 Lcf                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
    369 
    370 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    371 #                               Tubes Geometrical Parameters                                            #
    372 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    373 Ntt                       as Integer            (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
    374 Pattern       as Integer                (Brief="Tube Layout Characteristic Angle",Lower=30);
    375 Ltube             as length                     (Brief="Effective Tube Length",Lower=0.1);
    376 pitch             as length                     (Brief="Tube Pitch",Lower=1e-8);
    377 Kwall             as conductivity       (Brief="Tube Wall Material Thermal Conductivity");
    378 Dotube            as length                     (Brief="Tube Outside Diameter",Lower=10e-6);
    379 Ditube            as length                     (Brief="Tube Inside Diameter",Lower=10e-6);
    380 Donozzle_Tube as length                 (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
    381 Dinozzle_Tube as length                 (Brief="Tube Inlet Nozzle Diameter",Lower=10e-6);
    382 Aonozzle_Tube as area                   (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
    383 Ainozzle_Tube as area                   (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
    384 Kinlet_Tube   as positive               (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
    385 Koutlet_Tube  as positive               (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
    386 
    387 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    388 #                               Baffles Geometrical Parameters                                          #
    389 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    390 Bc     as Integer (Brief="Baffle Cut",Default=25,Lower=25);
    391 Nb     as Real    (Brief="Number of Baffles",Lower=1);
    392 Lcd    as length  (Brief="Baffle-to-Shell Clearance",Lower=10e-8);
    393 Ltd        as length  (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
     360outer PP                as Plugin                (Brief="External Physical Properties");
     361                side        as Integer           (Brief="Fluid Alocation Flag",Lower=0,Upper=1);
     362                Pi                      as constant     (Brief="Pi Number",Default=3.14159265);
     363#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     364#                               Shell Geometrical Parameters                                           
     365#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     366Tpass                                   as Integer              (Brief="Number of Tube Passes",Lower=1);
     367Nss                                     as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
     368Dishell                                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
     369Donozzle_Shell          as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
     370Dinozzle_Shell          as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
     371Aonozzle_Shell          as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
     372Ainozzle_Shell          as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
     373Aeonozzle_Shell         as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
     374Aeinozzle_Shell         as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
     375Hinozzle_Shell          as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
     376Honozzle_Shell          as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
     377Lcf                                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
     378
     379#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     380#                               Tubes Geometrical Parameters                                           
     381#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     382Ntt                                     as Integer                      (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
     383Pattern                 as Integer                      (Brief="Tube Layout Characteristic Angle",Lower=30);
     384Ltube                                   as length                       (Brief="Effective Tube Length",Lower=0.1);
     385pitch                           as length                       (Brief="Tube Pitch",Lower=1e-8);
     386Kwall                                   as conductivity         (Brief="Tube Wall Material Thermal Conductivity");
     387Dotube                                  as length                       (Brief="Tube Outside Diameter",Lower=10e-6);
     388Ditube                          as length                       (Brief="Tube Inside Diameter",Lower=10e-6);
     389Donozzle_Tube   as length                       (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
     390Dinozzle_Tube   as length                       (Brief="Tube Inlet Nozzle Diameter",Lower=10e-6);
     391Aonozzle_Tube   as area                         (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
     392Ainozzle_Tube   as area                         (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
     393Kinlet_Tube             as positive                     (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
     394Koutlet_Tube    as positive                     (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
     395
     396#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     397#                               Baffles Geometrical Parameters                                         
     398#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     399Bc      as Integer      (Brief="Baffle Cut",Default=25,Lower=25);
     400Nb      as Real         (Brief="Number of Baffles",Lower=1);
     401Lcd     as length       (Brief="Baffle-to-Shell Clearance",Lower=10e-8);
     402Ltd             as length       (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
    394403
    395404SET
    396405
    397406#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    398 #             Set Parameters for heatex Calculation                                     #
    399 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    400         Pi                              = 3.14159265;
    401         HE.Tpass                        = Tpass;
    402         HE.Nss                          = Nss;
    403         HE.Ntt                          = Ntt;
    404         HE.Pattern                      = Pattern;
    405         HE.Bc                           = Bc;
     407#             Set Parameters for heatex Calculation                                     
     408#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     409        Pi                                              = 3.14159265;
     410        HE.Tpass                                = Tpass;
     411        HE.Nss                                  = Nss;
     412        HE.Ntt                                  = Ntt;
     413        HE.Pattern                              = Pattern;
     414        HE.Bc                                   = Bc;
    406415        HE.Donozzle_Shell       = Donozzle_Shell;
    407416        HE.Dinozzle_Shell       = Dinozzle_Shell;
    … …  
    410419        HE.Donozzle_Tube        = Donozzle_Tube;
    411420        HE.Dinozzle_Tube        = Dinozzle_Tube;
    412         HE.Nb                       = Nb;
    413         HE.Dishell                      = Dishell;             
    414         HE.Lcf                          = Lcf; 
    415         HE.Ltube                        = Ltube;       
    416         HE.pitch                        = pitch;               
     421        HE.Nb                           = Nb;
     422        HE.Dishell                              = Dishell;             
     423        HE.Lcf                                  = Lcf; 
     424        HE.Ltube                                = Ltube;       
     425        HE.pitch                                = pitch;               
    417426        HE.Dotube                       = Dotube;       
    418         HE.Ditube                       = Ditube;       
    419         HE.Lcd                          = Lcd;
    420         HE.Ltd                          = Ltd;
    421         side                            = HE.FluidAlocation();
     427        HE.Ditube                               = Ditube;       
     428        HE.Lcd                                  = Lcd;
     429        HE.Ltd                                  = Ltd;
     430        side                                            = HE.FluidAlocation();
    422431       
    423432#"Tube Side Inlet Nozzle Area"
    … …  
    440449       
    441450#"Shell Outlet Escape Area Under Nozzle"
    442         Aeonozzle_Shell = Pi*Donozzle_Shell*Honozzle_Shell + 0.6*Aonozzle_Shell*(1-Dotube/pitch);
     451        Aeonozzle_Shell = Pi*Donozzle_Shell*Honozzle_Shell + 0.6*Aonozzle_Shell*(1-(Dotube/pitch));
    443452       
    444453#"Shell Inlet Escape Area Under Nozzle"
    445         Aeinozzle_Shell = Pi*Dinozzle_Shell*Hinozzle_Shell + 0.6*Ainozzle_Shell*(1-Dotube/pitch);
     454        Aeinozzle_Shell = Pi*Dinozzle_Shell*Hinozzle_Shell + 0.6*Ainozzle_Shell*(1-(Dotube/pitch));
    446455       
    447456       
    … …  
    449458
    450459#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    451 #                               Heat Transfer Correction Factors                                        #
     460#                               Heat Transfer Correction Factors                                       
    452461#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    453462"Ji Factor"
    … …  
    470479
    471480#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    472 #                               Pressure Drop and Velocities                                    #
     481#                               Pressure Drop and Velocities                                   
    473482#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    474483
    … …  
    549558
    550559#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    551 #                               Nozzles rho-V^2                                                                 #
     560#                               Nozzles rho-V^2                                                                 
    552561#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    553562
    … …  
    573582
    574583#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    575 #                               Phi correction                                                                  #
     584#                               Phi correction                                                                 
    576585#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    577586
    … …  
    597606
    598607#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#                                                                                                                                   #
    599 #                               Heat Transfer                                                                           #                                                                                                                                       #
     608#                               Heat Transfer                                                                           
    600609#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    601610
    … …  
    690699end
    691700
    692 Model Heatex_Detailed_NTU               as Heatex_Detailed
     701Model Heatex_Detailed_NTU       as Heatex_Detailed
     702
     703ATTRIBUTES
     704        Pallete = false;
     705        Brief = "write some information";
     706        Info =
     707        "write some information";
    693708       
    694709VARIABLES
    … …  
    702717end
    703718
    704 Model Heatex_Detailed_LMTD              as Heatex_Detailed
     719Model Heatex_Detailed_LMTD as Heatex_Detailed
     720
     721ATTRIBUTES
     722        Pallete = false;
     723        Brief = "write some information";
     724        Info =
     725        "write some information";
    705726       
    706727VARIABLES
    707728
    708 DT0     as temp_delta   (Brief="Temperature Difference at Inlet",Lower=1);
     729DT0             as temp_delta   (Brief="Temperature Difference at Inlet",Lower=1);
    709730DTL             as temp_delta   (Brief="Temperature Difference at Outlet",Lower=1);
    710 LMTD    as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=1);
    711 Fc              as positive             (Brief="LMTD Correction Factor",Lower=0.4);
     731LMTD            as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=1);
     732Fc                      as positive             (Brief="LMTD Correction Factor",Lower=0.4);
    712733MTD             as temp_delta   (Brief="Mean Temperature Difference",Lower=1);
    713734
    … …  
    747768
    748769Model E_Shell_NTU_Det                   as Heatex_Detailed_NTU
     770
     771ATTRIBUTES
     772        Pallete = true;
     773        Brief = "Shell and Tubes Heat Exchanger with 1 shell pass - NTU Method";
     774        Info =
     775        "write some information";
     776       
    749777#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    750778#       Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method
    … …  
    802830
    803831Model F_Shell_NTU_Det                   as Heatex_Detailed_NTU
    804 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    805 #       Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method
    806 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     832
     833ATTRIBUTES
     834        Pallete = true;
     835        Brief = "Shell and Tubes Heat Exchanger with 2 shell pass - NTU Method";
     836        Info =
     837        "write some information";
     838
    807839VARIABLES
    808840
    … …  
    863895end
    864896
    865 Model Multipass_NTU_Det         
    866 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    867 #       Shell and Tubes Heat Exchanger In Series with 1 shell pass - LMTD Method
    868 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     897Model Multipass_NTU_Det
     898       
     899ATTRIBUTES
     900        Pallete = true;
     901        Brief = "Shell and Tubes Heat Exchanger In Series with 1 shell pass - NTU Method";
     902        Info =
     903        "write some information";
     904
    869905PARAMETERS
    870906
    871         Nshell          as Integer              (Brief="N Shell in Series",Default=2);
    872 outer PP                        as Plugin       (Brief="External Physical Properties");
    873         HE                      as Plugin       (Brief="heatex Calculations", File="heatex");
    874         side        as Integer          (Brief="Fluid Alocation",Lower=0,Upper=1);
    875         Pi                      as constant     (Brief="Pi Number",Default=3.14159265);
     907                Nshell          as Integer              (Brief="N Shell in Series",Default=2);
     908outer PP                        as Plugin               (Brief="External Physical Properties");
     909                HE                      as Plugin               (Brief="heatex Calculations", File="heatex");
     910                side            as Integer              (Brief="Fluid Alocation",Lower=0,Upper=1);
     911                Pi                              as constant    (Brief="Pi Number",Default=3.14159265);
    876912
    877913#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    878914#       Shell Geometrical Parameters
    879915#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    880 Tpass                   as Integer              (Brief="Number of Tube Passes",Lower=1);
    881 Nss                             as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
    882 Dishell                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
    883 Donozzle_Shell  as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
    884 Dinozzle_Shell  as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
    885 Hinozzle_Shell  as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
    886 Honozzle_Shell  as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
    887 Aonozzle_Shell  as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
    888 Ainozzle_Shell  as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
    889 Aeonozzle_Shell as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
    890 Aeinozzle_Shell as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
    891 Lcf                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
     916Tpass                                   as Integer              (Brief="Number of Tube Passes",Lower=1);
     917Nss                                     as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
     918Dishell                                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
     919Donozzle_Shell          as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
     920Dinozzle_Shell          as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
     921Hinozzle_Shell          as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
     922Honozzle_Shell          as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
     923Aonozzle_Shell          as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
     924Ainozzle_Shell          as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
     925Aeonozzle_Shell         as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
     926Aeinozzle_Shell         as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
     927Lcf                                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
    892928#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    893929#       Tubes Geometrical Parameters
    894930#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    895 Ntt                             as Integer              (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
    896 Pattern         as Integer              (Brief="Tube Layout Characteristic Angle",Lower=30);
    897 Ltube                   as length               (Brief="Effective Tube Length",Lower=0.1);
    898 pitch                   as length               (Brief="Tube Pitch",Lower=1e-8);
    899 Kwall                   as conductivity (Brief="Tube Wall Material Thermal Conductivity");
    900 Dotube                  as length               (Brief="Tube Outside Diameter",Lower=10e-6);
    901 Ditube                  as length               (Brief="Tube Inside Diameter",Lower=10e-6);
    902 Donozzle_Tube   as length               (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
    903 Dinozzle_Tube   as length               (Brief="Tube Inlett Nozzle Diameter",Lower=10e-6);
    904 Aonozzle_Tube   as area                 (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
    905 Ainozzle_Tube   as area                 (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
    906 Kinlet_Tube     as positive             (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
    907 Koutlet_Tube    as positive             (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
     931Ntt                                     as Integer                      (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
     932Pattern                         as Integer                      (Brief="Tube Layout Characteristic Angle",Lower=30);
     933Ltube                                   as length                       (Brief="Effective Tube Length",Lower=0.1);
     934pitch                           as length                       (Brief="Tube Pitch",Lower=1e-8);
     935Kwall                                   as conductivity         (Brief="Tube Wall Material Thermal Conductivity");
     936Dotube                                  as length                       (Brief="Tube Outside Diameter",Lower=10e-6);
     937Ditube                                  as length                       (Brief="Tube Inside Diameter",Lower=10e-6);
     938Donozzle_Tube   as length                       (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
     939Dinozzle_Tube   as length                       (Brief="Tube Inlett Nozzle Diameter",Lower=10e-6);
     940Aonozzle_Tube   as area                         (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
     941Ainozzle_Tube   as area                         (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
     942Kinlet_Tube             as positive                     (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
     943Koutlet_Tube    as positive                     (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
    908944
    909945#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    … …  
    913949Nb              as Real                 (Brief="Number of Baffles",Lower=1);
    914950Lcd                     as length               (Brief="Baffle-to-Shell Clearance",Lower=10e-8);
    915 Ltd                             as length               (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
     951Ltd                     as length               (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
    916952#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    917953VARIABLES
    918954
    919 Eft(Nshell)       as positive (Brief="Effectiveness",Default=0.05,Lower=1e-8);
    920 Unity(Nshell) as HeatExchangerDetailed_Basic;# "Shell in Series"
     955Eft(Nshell)       as positive                                                           (Brief="Effectiveness",Default=0.05,Lower=1e-8);
     956Unity(Nshell) as HeatExchangerDetailed_Basic    (Brief="Shell in Series");
    921957
    922958SET
    … …  
    924960#  Set Parameters for heatex Calculation
    925961#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    926         Pi                              = 3.14159265;
    927         HE.Tpass                        = Tpass;
    928         HE.Nss                          = Nss;
    929         HE.Ntt                          = Ntt;
    930         HE.Pattern                      = Pattern;
    931         HE.Bc                           = Bc;
     962        Pi                                              = 3.14159265;
     963        HE.Tpass                                = Tpass;
     964        HE.Nss                                  = Nss;
     965        HE.Ntt                                  = Ntt;
     966        HE.Pattern                              = Pattern;
     967        HE.Bc                                   = Bc;
    932968        HE.Donozzle_Shell       = Donozzle_Shell;
    933969        HE.Dinozzle_Shell       = Dinozzle_Shell;
    … …  
    936972        HE.Donozzle_Tube        = Donozzle_Tube;
    937973        HE.Dinozzle_Tube        = Dinozzle_Tube;
    938         HE.Nb                       = Nb;
    939         HE.Dishell                      = Dishell;             
    940         HE.Lcf                          = Lcf; 
    941         HE.Ltube                        = Ltube;       
    942         HE.pitch                        = pitch;               
     974        HE.Nb                           = Nb;
     975        HE.Dishell                              = Dishell;             
     976        HE.Lcf                                  = Lcf; 
     977        HE.Ltube                                = Ltube;       
     978        HE.pitch                                = pitch;               
    943979        HE.Dotube                       = Dotube;       
    944         HE.Ditube                       = Ditube;       
    945         HE.Lcd                          = Lcd;
    946         HE.Ltd                          = Ltd; 
    947         side                            = HE.FluidAlocation();
     980        HE.Ditube                               = Ditube;       
     981        HE.Lcd                                  = Lcd;
     982        HE.Ltd                                  = Ltd; 
     983        side                                            = HE.FluidAlocation();
    948984       
    949985#"Tube Side Inlet Nozzle Area"
    … …  
    9741010
    9751011Unity([1:Nshell-1]).Outlet.Hot  to Unity([2:Nshell]).Inlet.Hot;
    976 Unity([2:Nshell]).Outlet.Cold   to Unity([1:Nshell-1]).Inlet.Cold;
     1012Unity([2:Nshell]).Outlet.Cold     to Unity([1:Nshell-1]).Inlet.Cold;
    9771013
    9781014EQUATIONS
    … …  
    12631299end
    12641300
    1265 Model E_Shell_LMTD_Det                  as Heatex_Detailed_LMTD
    1266 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1267 #       Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method
    1268 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     1301Model E_Shell_LMTD_Det          as Heatex_Detailed_LMTD
     1302
     1303ATTRIBUTES
     1304        Pallete = true;
     1305        Brief = "Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method";
     1306        Info =
     1307        "write some information";
     1308
    12691309EQUATIONS
    12701310
    … …  
    13211361end
    13221362
    1323 
    1324 
    1325 end
    1326 
    1327 Model F_Shell_LMTD_Det                  as Heatex_Detailed_LMTD
    1328 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1329 #       Shell and Tubes Heat Exchanger with 2 shell pass - LMTD Method
    1330 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     1363end
     1364
     1365Model F_Shell_LMTD_Det          as Heatex_Detailed_LMTD
     1366
     1367ATTRIBUTES
     1368        Pallete = true;
     1369        Brief = "Shell and Tubes Heat Exchanger with 2 shell pass - LMTD Method";
     1370        Info =
     1371        "write some information";
    13311372
    13321373EQUATIONS
    … …  
    13861427end
    13871428
    1388 Model Multipass_LMTD_Det         
    1389 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1390 #       Shell and Tubes Heat Exchanger In Series with 1 shell pass - LMTD Method
    1391 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     1429Model Multipass_LMTD_Det
     1430       
     1431ATTRIBUTES
     1432        Pallete = true;
     1433        Brief = "Shell and Tubes Heat Exchanger In Series with 1 shell pass - LMTD Method";
     1434        Info =
     1435        "write some information";
     1436
    13921437PARAMETERS
    13931438
    1394 Nshell          as Integer              (Brief="N Shell in Series",Default=2);
    1395         HE              as Plugin       (Brief="STHE Calculations",File="heatex");
    1396 outer PP                as Plugin       (Brief="External Physical Properties");
    1397 side        as Integer          (Brief="Fluid Alocation",Lower=0,Upper=1);
    1398 Pi                      as constant    (Brief="Pi Number",Default=3.14159265);
     1439                Nshell  as Integer       (Brief="N Shell in Series",Default=2);
     1440                HE              as Plugin        (Brief="STHE Calculations",File="heatex");
     1441outer PP                as Plugin        (Brief="External Physical Properties");
     1442                side        as Integer   (Brief="Fluid Alocation",Lower=0,Upper=1);
     1443                Pi                      as constant (Brief="Pi Number",Default=3.14159265);
    13991444
    14001445#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    14011446#       Shell Geometrical Parameters
    14021447#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1403 Tpass                   as Integer              (Brief="Number of Tube Passes",Lower=1);
    1404 Nss                             as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
    1405 Dishell                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
    1406 Donozzle_Shell  as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
    1407 Dinozzle_Shell  as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
    1408 Hinozzle_Shell  as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
    1409 Honozzle_Shell  as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
    1410 Aonozzle_Shell  as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
    1411 Ainozzle_Shell  as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
    1412 Aeonozzle_Shell as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
    1413 Aeinozzle_Shell as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
    1414 Lcf                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
     1448Tpass                                   as Integer              (Brief="Number of Tube Passes",Lower=1);
     1449Nss                                     as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
     1450Dishell                                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
     1451Donozzle_Shell          as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
     1452Dinozzle_Shell          as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
     1453Hinozzle_Shell          as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
     1454Honozzle_Shell          as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
     1455Aonozzle_Shell          as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
     1456Ainozzle_Shell          as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
     1457Aeonozzle_Shell         as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
     1458Aeinozzle_Shell         as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
     1459Lcf                                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
    14151460#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    14161461#       Tubes Geometrical Parameters
    14171462#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1418 Ntt                             as Integer              (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
    1419 Pattern         as Integer              (Brief="Tube Layout Characteristic Angle",Lower=30);
    1420 Ltube                   as length               (Brief="Effective Tube Length",Lower=0.1);
    1421 pitch                   as length               (Brief="Tube Pitch",Lower=1e-8);
    1422 Kwall                   as conductivity (Brief="Tube Wall Material Thermal Conductivity");
    1423 Dotube                  as length               (Brief="Tube Outside Diameter",Lower=10e-6);
    1424 Ditube                  as length               (Brief="Tube Inside Diameter",Lower=10e-6);
    1425 Donozzle_Tube   as length               (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
    1426 Dinozzle_Tube   as length               (Brief="Tube Inlett Nozzle Diameter",Lower=10e-6);
    1427 Aonozzle_Tube   as area                 (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
    1428 Ainozzle_Tube   as area                 (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
    1429 Kinlet_Tube     as positive             (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
    1430 Koutlet_Tube    as positive             (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
     1463Ntt                                     as Integer                      (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
     1464Pattern                         as Integer                      (Brief="Tube Layout Characteristic Angle",Lower=30);
     1465Ltube                                   as length                       (Brief="Effective Tube Length",Lower=0.1);
     1466pitch                           as length                       (Brief="Tube Pitch",Lower=1e-8);
     1467Kwall                                   as conductivity         (Brief="Tube Wall Material Thermal Conductivity");
     1468Dotube                                  as length                       (Brief="Tube Outside Diameter",Lower=10e-6);
     1469Ditube                                  as length                       (Brief="Tube Inside Diameter",Lower=10e-6);
     1470Donozzle_Tube   as length                       (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
     1471Dinozzle_Tube   as length                       (Brief="Tube Inlett Nozzle Diameter",Lower=10e-6);
     1472Aonozzle_Tube   as area                         (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
     1473Ainozzle_Tube   as area                         (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
     1474Kinlet_Tube             as positive                     (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
     1475Koutlet_Tube    as positive                     (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
    14311476
    14321477#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    … …  
    14361481Nb              as Real                 (Brief="Number of Baffles",Lower=1);
    14371482Lcd                     as length               (Brief="Baffle-to-Shell Clearance",Lower=10e-8);
    1438 Ltd                             as length               (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
     1483Ltd                     as length               (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
    14391484#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    14401485VARIABLES
    14411486
    1442 LMTD(Nshell)            as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=5);
    1443 Fc(Nshell)                      as positive             (Brief="LMTD Correction Factor",Lower=0.5);
    1444 MTD(Nshell)                     as temp_delta   (Brief="Mean Temperature Difference",Lower=5);
    1445 Unity(Nshell)           as HeatExchangerDetailed_Basic;
     1487LMTD(Nshell)    as temp_delta                                                    (Brief="Logarithmic Mean Temperature Difference",Lower=5);
     1488Fc(Nshell)              as positive                                                              (Brief="LMTD Correction Factor",Lower=0.5);
     1489MTD(Nshell)     as temp_delta                                                    (Brief="Mean Temperature Difference",Lower=5);
     1490Unity(Nshell)   as HeatExchangerDetailed_Basic  (Brief="Shell in Series");
    14461491
    14471492SET
    … …  
    14491494#  Set Parameters for heatex Calculation
    14501495#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1451         Pi                              = 3.14159265;
    1452         HE.Tpass                        = Tpass;
    1453         HE.Nss                          = Nss;
    1454         HE.Ntt                          = Ntt;
    1455         HE.Pattern                      = Pattern;
    1456         HE.Bc                           = Bc;
     1496        Pi                                              = 3.14159265;
     1497        HE.Tpass                                = Tpass;
     1498        HE.Nss                                  = Nss;
     1499        HE.Ntt                                  = Ntt;
     1500        HE.Pattern                              = Pattern;
     1501        HE.Bc                                   = Bc;
    14571502        HE.Donozzle_Shell       = Donozzle_Shell;
    14581503        HE.Dinozzle_Shell       = Dinozzle_Shell;
    … …  
    14611506        HE.Donozzle_Tube        = Donozzle_Tube;
    14621507        HE.Dinozzle_Tube        = Dinozzle_Tube;
    1463         HE.Nb                       = Nb;
    1464         HE.Dishell                      = Dishell;             
    1465         HE.Lcf                          = Lcf; 
    1466         HE.Ltube                        = Ltube;       
    1467         HE.pitch                        = pitch;               
     1508        HE.Nb                           = Nb;
     1509        HE.Dishell                              = Dishell;             
     1510        HE.Lcf                                  = Lcf; 
     1511        HE.Ltube                                = Ltube;       
     1512        HE.pitch                                = pitch;               
    14681513        HE.Dotube                       = Dotube;       
    1469         HE.Ditube                       = Ditube;       
    1470         HE.Lcd                          = Lcd;
    1471         HE.Ltd                          = Ltd; 
    1472         side                            = HE.FluidAlocation();
     1514        HE.Ditube                               = Ditube;       
     1515        HE.Lcd                                  = Lcd;
     1516        HE.Ltd                                  = Ltd; 
     1517        side                                            = HE.FluidAlocation();
    14731518       
    14741519#"Tube Side Inlet Nozzle Area"
    … …  
    17741819        Unity(i).Shell.PressureDrop.PdEndZones  = HE.DeltaPendZones(Unity(i).Shell.HeatTransfer.Re,Unity(i).Baffles.Ls,Unity(i).Baffles.Lso,Unity(i).Baffles.Lsi,Unity(i).Properties.Cold.Inlet.Fw,Unity(i).Shell.HeatTransfer.Phi,Unity(i).Properties.Cold.Average.rho);
    17751820
    1776 
    1777 end
    1778 
     1821end
    17791822
    17801823"Exchange Surface Area"

  • branches/newlanguage/eml/heat_exchangers/Mheatex.mso

    r131 r135  
    3434
    3535Model Inlet_Main_Stream         
    36 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    37 #       Inlet Streams
    38 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     36
     37ATTRIBUTES
     38        Pallete = false;
     39        Brief = "Inlet material streams for Hot and Cold side";
     40        Info =
     41        "write some information";
     42       
    3943PARAMETERS
    4044
    … …  
    4448VARIABLES
    4549
    46         Hot  (Nhot)     as stream;# Inlet Hot Streams
    47         Cold (Ncold)    as stream;# Inlet Cold Streams
     50        Hot  (Nhot)     as stream (Brief="Inlet Hot Streams");
     51        Cold (Ncold)    as stream (Brief="Inlet Cold Streams");
    4852       
    4953end
    5054
    5155Model Outlet_Main_Stream       
    52 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    53 #       Outlet Streams
    54 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     56
     57ATTRIBUTES
     58        Pallete = false;
     59        Brief = "Outlet material streams for Hot and Cold side";
     60        Info =
     61        "write some information";
     62       
    5563PARAMETERS
    5664
    57         Ncold   as Integer      (Brief="Number of Inlet Cold Streams",Lower=1);
    58         Nhot    as Integer      (Brief="Number of Inlet Hot Streams",Lower=1);
     65        Ncold   as Integer      (Brief="Number of Outlet Cold Streams",Lower=1);
     66        Nhot    as Integer      (Brief="Number of Outlet Hot Streams",Lower=1);
    5967       
    6068VARIABLES
    61 
    62         Hot  (Nhot)     as liquid_stream;# Outlet Hot Streams
    63         Cold (Ncold)    as liquid_stream;# Outlet Cold Streams
     69# Must be streamPH
     70        Hot  (Nhot)     as liquid_stream (Brief="Outlet Hot Streams");
     71        Cold (Ncold)    as liquid_stream (Brief="Outlet Cold Streams");
    6472       
    6573end
    6674
    6775Model Mheatex
    68 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    69 #       Multistream Heat Exchanger Basic Calculation
    70 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     76       
     77ATTRIBUTES
     78        Pallete = false;
     79        Brief = "Multistream heat exchangers";
     80        Info =
     81        "Heat Transfer between multiple hot and cold streams";
     82       
    7183PARAMETERS
    7284
    7385outer PP                as Plugin       (Brief="Physical Properties");
    74 outer   NComp   as Integer              (Brief="Number of Components");
    75 #       HE              as Plugin       (Brief="Cold Box Calculations",File="heatex");
    76         Side    as Integer              (Brief="Flow Direction",Lower=0,Upper=1);
    77         Ncold   as Integer              (Brief="Number of Inlet Cold Streams",Lower=1);
    78         Nhot    as Integer              (Brief="Number of Inlet Hot Streams",Lower=1);
     86outer   NComp   as Integer      (Brief="Number of Components");
     87        HE                      as Plugin       (Brief="Cold Box Calculations",File="heatex");
     88        Side                    as Integer      (Brief="Flow Direction",Lower=0,Upper=1);
     89        Ncold                   as Integer      (Brief="Number of Inlet Cold Streams",Lower=1);
     90        Nhot                    as Integer      (Brief="Number of Inlet Hot Streams",Lower=1);
    7991       
    8092VARIABLES
    8193
    82 in  Inlet       as Inlet_Main_Stream;           # Inlet Hot Streams
    83 out Outlet      as Outlet_Main_Stream;          # Outlet Hot Streams
     94in      Inlet   as Inlet_Main_Stream    (Brief="Inlet Streams");               
     95out     Outlet  as Outlet_Main_Stream (Brief="Outlet Streams");
    8496
    85         Q       as power                (Brief="Heat Transfer");
    86         LMTD    as temp_delta   (Brief="Logarithmic Mean Temperature Difference");
    87         UA      as positive     (Unit="W/K");
    88         DT0     as temp_delta   (Brief="Temperature Difference at Inlet",Lower=1);
     97        Q               as power                (Brief="Heat Transfer");
     98        LMTD            as temp_delta   (Brief="Logarithmic Mean Temperature Difference");
     99        UA              as positive             (Brief="UA product",Unit="W/K");
     100        DT0             as temp_delta   (Brief="Temperature Difference at Inlet",Lower=1);
    89101        DTL             as temp_delta   (Brief="Temperature Difference at Outlet",Lower=1);
    90102       
    … …  
    92104
    93105# Flow Direction
    94 #       Side = HE.FlowDir();
     106        Side = HE.FlowDir();
    95107
    96108# Inlet Ncold Parameters
    … …  
    120132        Outlet.Cold.z = Inlet.Cold.z;
    121133       
    122 
    123 
    124 for i in [1:Nhot]
    125 
    126 "Vapourisation Fraction Hot Stream"
    127         Outlet.Hot(i).v = PP.VapourFraction(Outlet.Hot(i).T,Outlet.Hot(i).P,Outlet.Hot(i).z);           
    128        
    129 end     
    130 
    131 
    132 for j in [1:Ncold]
    133        
    134 "Vapourisation Fraction Cold Stream"
    135         Outlet.Cold(j).v = PP.VapourFraction(Outlet.Cold(j).T,Outlet.Cold(j).P,Outlet.Cold(j).z);
    136        
    137 end
    138        
    139 
    140134"Heat Duty Hot Stream"
    141135        Q =  sum(Inlet.Hot.F*(Inlet.Hot.h- Outlet.Hot.h));

  • branches/newlanguage/eml/heat_exchangers/heater.mso

    r133 r135  
    5959end
    6060
    61 #"Outlet Vapourisation Fraction"
    62         #Outlet.v = PP.VapourFraction(Outlet.T,Outlet.P,Outlet.z);
    63 
    64 #"Vapor fraction Outlet Stream"
    65 #       Vfrac = Outlet.v;
     61"Vapor fraction Outlet Stream"
     62        Vfrac = Outlet.v;
    6663
    6764"Liquid fraction Outlet Stream"

  • branches/newlanguage/sample/heat_exchangers/Eshell_Detailed_LMTD.mso

    r110 r135  
    5656
    5757#   LMTD Correction Factor
    58         exchanger.HE.LMTDcorrection     = "Fakeri";
    59 #       exchanger.HE.LMTDcorrection     = "Bowmann";
     58        exchanger.HE.LMTDcorrection     = "Bowmann";
    6059
    6160#   Heat Transfer Correlation

  • branches/newlanguage/sample/heat_exchangers/Mheatex_sample2.mso

    r131 r135  
    1 using "Mheatex";
     1
     2using "heat_exchangers/Mheatex";
    23
    34FlowSheet MHeater
    4        
     5
     6PARAMETERS
     7
     8        PP                      as Plugin       (File="vrpp");
     9        NComp           as Integer      (Brief="Number Components");
     10
    511DEVICES
    612
    … …  
    915        streamhot1              as source;
    1016        streamhot2              as source;
    11         streamcold2             as source;
     17        streamcold2     as source;
    1218       
    1319CONNECTIONS
    14 
    1520        streamcold1.Outlet      to Mheater.Inlet.Cold(1);
    1621        streamhot1.Outlet       to Mheater.Inlet.Hot(1);
    … …  
    1823        streamcold2.Outlet      to Mheater.Inlet.Cold(2);
    1924       
    20 PARAMETERS
    21 
    22         PP                      as Plugin       (File="vrpp");
    23         NComp           as Integer              (Brief="Number Components");
    24         Ncold           as Integer              (Brief="Number of Inlet Cold Streams");
    25         Nhot            as Integer              (Brief="Number of Inlet Hot Streams");
    26        
    2725SET
    2826
    29         PP.LiquidModel  = "PR";
     27        PP.LiquidModel          = "PR";
    3028        PP.VapourModel  = "PR";
    3129        PP.Components   = ["water","methanol","benzene", "toluene"];
    32         NComp                   = PP.NumberOfComponents;
    33         Mheater.Nhot            = 2;
    34     Mheater.Ncold               = 2;
     30        NComp                           = PP.NumberOfComponents;
     31        Mheater.Nhot      = 2;
     32    Mheater.Ncold     = 2;
    3533       
    3634SPECIFY
    … …  
    4139        streamcold1.Outlet.P            = 1     * "atm";
    4240        streamcold1.Outlet.T            = 278   * "K";
    43         streamcold1.Outlet.v            = 0;
    44    streamcold1.Outlet.z                 = [1,0,0,0];
     41    streamcold1.Outlet.z                = [1,0,0,0];
    4542       
    4643        streamcold2.Outlet.F            = 50   * "kmol/h";
    4744        streamcold2.Outlet.P            = 1     * "atm";
    4845        streamcold2.Outlet.T            = 298   * "K";
    49         streamcold2.Outlet.v            = 0;
    5046    streamcold2.Outlet.z                = [1,0,0,0];
    5147
    … …  
    5652        streamhot1.Outlet.P             = 1     * "atm";
    5753        streamhot1.Outlet.T             = 330   * "K";
    58         streamhot1.Outlet.v             = 0;
    5954    streamhot1.Outlet.z                 = [0,1,0,0];
    6055       
    … …  
    6257        streamhot2.Outlet.P             = 1     * "atm";
    6358        streamhot2.Outlet.T             = 340   * "K";
    64         streamhot2.Outlet.v             = 0;
    6559    streamhot2.Outlet.z                 = [0,0,0.75,0.25];
    6660       
    … …  
    7771        Mheater.Outlet.Hot(1).P         = 1 * "atm";
    7872        Mheater.Outlet.Hot(2).P         = 1 * "atm";
    79         Mheater.Outlet.Cold(1).P        = 1 * "atm";
    80         Mheater.Outlet.Cold(2).P        = 1 * "atm";
     73        Mheater.Outlet.Cold(1).P   = 1 * "atm";
     74        Mheater.Outlet.Cold(2).P   = 1 * "atm";
    8175       
    8276OPTIONS
Note: See TracChangeset for help on using the changeset viewer.