source: mso/sample/heat_exchangers/Eshell_Detailed_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.3 KB
Line 
1
2#===============================================================
3#   Heat Exchanger TEMA E Shell - LMTD Method
4#  converge após várias tentativas
5#===============================================================
6
7using "Heat_exchangers/HeatExchangerDetailed.mso";
8
9FlowSheet Exchanger_E_shell_Detailed_LMTD
10       
11DEVICES
12
13        exchanger               as E_Shell_LMTD_Det;
14        streamhot_in    as streamTP;
15        streamcold_in   as streamTP;
16       
17CONNECTIONS
18
19        streamhot_in    to exchanger.Inlet.Hot;
20        streamcold_in   to exchanger.Inlet.Cold;
21       
22PARAMETERS
23
24        PP                      as CalcObject   (File="vrpp");
25        NComp           as Integer;
26
27SET
28#===============================================================
29#   Heat Exchanger Options
30#===============================================================       
31        PP.Components           = ["water"];
32        PP.LiquidModel          = "RK";
33        PP.VapourModel          = "RK";
34        NComp                           = PP.NumberOfComponents;
35       
36        exchanger.HE.HotSide            = "Shell";
37
38#   LMTD Correction Factor
39        exchanger.HE.LMTDcorrection     = "Fakeri";
40#       exchanger.HE.LMTDcorrection     = "Bowmann";
41
42#   Heat Transfer Correlation
43#       exchanger.HE.LaminarFlow                = "Schlunder";
44#       exchanger.HE.TurbulentFlow              = "SiederTate";
45#       exchanger.HE.TransitionFlow     = "GnielinskiII";
46
47#=====================================================================
48#       Shell Geometrical Parameters
49#=====================================================================       
50exchanger.Tpass                         = 4;
51exchanger.Dishell               = 0.75  *"m";
52exchanger.Lcf                   = 0.043  *"m";
53exchanger.Nss                   = 1;
54exchanger.Donozzle_Shell    = 0.1937    *"m";
55exchanger.Dinozzle_Shell    = 0.1937    *"m";
56exchanger.Honozzle_Shell    = 0.0225    *"m";
57exchanger.Hinozzle_Shell    = 0.02155   *"m";
58
59#=====================================================================
60#       Tubes Geometrical Parameters
61#=====================================================================
62exchanger.Ntt                   = 500;
63exchanger.Pattern               = 30;
64exchanger.pitch                 = 0.0254        *"m";
65exchanger.Ltube                 = 5.5   *"m";
66exchanger.Ditube                = 0.013395  *"m";
67exchanger.Dotube                = 0.015875      *"m";
68exchanger.Kwall                         = 0.57          *"kW/m/K";
69exchanger.Donozzle_Tube     = 0.203     *"m";
70exchanger.Dinozzle_Tube         = 0.203         *"m";
71#=====================================================================
72#       Baffles Geometrical Parameters
73#=====================================================================
74exchanger.Lcd           = 0.0047        *"m";
75exchanger.Bc            = 25;
76exchanger.Ltd           = 0.00039  *"m";
77exchanger.Nb                    = 6;
78
79SPECIFY
80#============================================
81#   Hot Stream
82#============================================
83        streamhot_in.F  = 40    * "mol/s";
84        streamhot_in.T  = 400* "K";
85        streamhot_in.z  = [1]     ;
86        streamhot_in.P  = 740     * "kPa";
87#============================================
88#   Cold Stream
89#============================================   
90        streamcold_in.F  = 75                   * "mol/s";
91        streamcold_in.T  = 333   * "K";
92        streamcold_in.z  = [1];
93        streamcold_in.P  = 2210*"kPa";
94#=====================================================================
95#       Baffle Spacing
96#=====================================================================
97        exchanger.Baffles.Ls    = 0.622  *"m";
98        exchanger.Baffles.Lsi   = 0.807  *"m";
99
100OPTIONS
101
102 mode = "steady";
103
104end
Note: See TracBrowser for help on using the repository browser.