source: mso/sample/heat_exchangers/Eshell_Discretized_LMTD.mso @ 45

Last change on this file since 45 was 45, checked in by gerson bicca, 16 years ago

updated heat exchanger model

File size: 3.7 KB
Line 
1
2using "Heat_exchangers/HeatExchangerDiscretized.mso";
3
4       
5FlowSheet E_Shell_Discretized_LMTD
6       
7DEVICES
8#===============================================================
9#    Definições do equipamento e das correntes
10#===============================================================
11        exchanger               as E_Shell_LMTD_Disc;
12        streamhot_in    as stream_therm;
13        streamcold_in   as stream_therm;
14       
15CONNECTIONS
16#===============================================================
17#    Conexões do equipamento e das correntes
18#===============================================================
19        streamhot_in    to exchanger.Unity(1).Inlet.Hot;
20        streamcold_in   to exchanger.Unity(7).Inlet.Cold;
21       
22PARAMETERS
23#===============================================================
24#    Parâmetros
25#===============================================================
26        PP                      as CalcObject   (File="vrpp");
27        NComp           as Integer;
28       
29SET
30#===============================================================
31#    Fluidos e Alocação
32#===============================================================
33        PP.Components           = ["benzene","toluene"];
34        exchanger.HE.HotSide            = "Shell";
35        PP.LiquidModel          = "PR";
36        PP.VapourModel          = "PR";
37        NComp                           = PP.NumberOfComponents;
38       
39        exchanger.HE.LMTDcorrection     = "Fakeri";
40#       exchanger.HE.LaminarFlow        = "Schlunder";
41#       exchanger.HE.TurbulentFlow      = "SiederTate";
42#       exchanger.HE.TransitionFlow     = "GnielinskiII";
43#=====================================================================
44#       Parâmetros geométricos do casco
45#=====================================================================   
46exchanger.Tpass                         = 4;
47exchanger.Dishell               = 0.75                  *"m";
48exchanger.Lcf                   = 0.043  *"m";
49exchanger.Nss                   = 1;
50exchanger.Donozzle_Shell    = 0.1937    *"m";
51exchanger.Dinozzle_Shell    = 0.1937    *"m";
52exchanger.Honozzle_Shell    = 0.0225    *"m";
53exchanger.Hinozzle_Shell    = 0.02155   *"m";
54
55#=====================================================================
56#       Parâmetros geométricos dos tubos
57#=====================================================================
58exchanger.Ntt                   = 500;
59exchanger.Pattern               = 30;
60exchanger.pitch                 = 0.0254        *"m";
61exchanger.Ltube                 = 5.5   *"m";
62exchanger.Ditube                = 0.013395  *"m";
63exchanger.Dotube                = 0.015875      *"m";
64exchanger.Kwall                         = 0.57          *"kW/m/K";
65exchanger.Donozzle_Tube     = 0.203     *"m";
66exchanger.Dinozzle_Tube         = 0.203         *"m";
67#=====================================================================
68#       Parâmetros geométricos dos defletores
69#=====================================================================
70exchanger.Lcd           = 0.0047        *"m";
71exchanger.Bc            = 25;
72exchanger.Ltd           = 0.00039  *"m";
73exchanger.Nb                    = 6;
74
75SPECIFY
76#============================================
77#   Corrente Quente
78#============================================
79        streamhot_in.F  = 40    * "mol/s";
80        streamhot_in.T  = 393.15* "K";
81        streamhot_in.z  = [1,0]     ;
82        streamhot_in.v  = 0     ;
83        streamhot_in.P  = 740     * "kPa";
84#============================================
85#   Corrente Fria
86#============================================   
87        streamcold_in.F  = 122                  * "mol/s";
88        streamcold_in.T  = 333.15   * "K";
89        streamcold_in.z  = [0,1];
90        streamcold_in.v  = 0;
91        streamcold_in.P  = 2210*"kPa";
92#=====================================================================
93#       Espaçamento dos Defletores
94#=====================================================================
95        exchanger.Unity.Baffles.Ls      = 0.622         *"m";
96        exchanger.Unity.Baffles.Lsi     = 0.807  *"m";
97
98OPTIONS
99#============================================
100#   Simulation Options
101#============================================
102 mode                   = "steady";
103
104end
Note: See TracBrowser for help on using the repository browser.