1 | |
---|
2 | using "heat_exchangers/HeatExchangerDetailed.mso"; |
---|
3 | |
---|
4 | FlowSheet NTU_Method |
---|
5 | |
---|
6 | |
---|
7 | DEVICES |
---|
8 | |
---|
9 | exchanger as E_Shell_NTU_Det; |
---|
10 | streamhot as streamTP; |
---|
11 | streamcold as streamTP; |
---|
12 | |
---|
13 | CONNECTIONS |
---|
14 | |
---|
15 | streamhot to exchanger.Inlet.Hot; |
---|
16 | streamcold to exchanger.Inlet.Cold; |
---|
17 | |
---|
18 | PARAMETERS |
---|
19 | |
---|
20 | PP as CalcObject (File="vrpp"); |
---|
21 | NComp as Integer; |
---|
22 | |
---|
23 | SET |
---|
24 | #=============================================================== |
---|
25 | # Components - State Equation - Correlations |
---|
26 | #=============================================================== |
---|
27 | |
---|
28 | PP.LiquidModel = "RK"; |
---|
29 | PP.VapourModel = "RK"; |
---|
30 | PP.Components = ["water"]; |
---|
31 | NComp = PP.NumberOfComponents; |
---|
32 | exchanger.HE.HotSide = "Shell"; |
---|
33 | |
---|
34 | exchanger.HE.TurbulentFlow = "Petukhov"; |
---|
35 | # exchanger.HE.TurbulentFlow = "SiederTate"; |
---|
36 | |
---|
37 | #===================================================================== |
---|
38 | # Shell Geometrical Parameters |
---|
39 | #===================================================================== |
---|
40 | exchanger.Tpass = 2; |
---|
41 | exchanger.Dishell = 1.2 *"m"; |
---|
42 | exchanger.Lcf = 0.007 *"m"; |
---|
43 | exchanger.Nss = 3; |
---|
44 | |
---|
45 | |
---|
46 | #===================================================================== |
---|
47 | # Tubes Geometrical Parameters |
---|
48 | #===================================================================== |
---|
49 | exchanger.Ntt = 360; |
---|
50 | exchanger.Pattern = 30; |
---|
51 | exchanger.pitch = 0.03048 *"m"; |
---|
52 | exchanger.Ltube = 5.3 *"m"; |
---|
53 | exchanger.Ditube = 0.01397 *"m"; |
---|
54 | exchanger.Dotube = 0.025146 *"m"; |
---|
55 | exchanger.Kwall = 0.5588 *"W/m/K"; |
---|
56 | |
---|
57 | #===================================================================== |
---|
58 | # Baffles Geometrical Parameters |
---|
59 | #===================================================================== |
---|
60 | exchanger.Lcd = 5.5e-3 *"m"; |
---|
61 | exchanger.Bc = 25; |
---|
62 | exchanger.Ltd = 5e-4 *"m"; |
---|
63 | exchanger.Nb = 5; |
---|
64 | exchanger.Donozzle_Shell = 0.15405 *"m"; |
---|
65 | exchanger.Dinozzle_Shell = 0.15405 *"m"; |
---|
66 | exchanger.Honozzle_Shell = 0.0225 *"m"; |
---|
67 | exchanger.Hinozzle_Shell = 0.0225 *"m"; |
---|
68 | exchanger.Donozzle_Tube = 0.15405 *"m"; |
---|
69 | exchanger.Dinozzle_Tube = 0.15405 *"m"; |
---|
70 | |
---|
71 | SPECIFY |
---|
72 | #============================================ |
---|
73 | # Hot Streams |
---|
74 | #============================================ |
---|
75 | streamhot.F = 100 * "kmol/h"; |
---|
76 | streamhot.T = 419 * "K"; |
---|
77 | streamhot.P = 1 * "atm"; |
---|
78 | streamhot.z = [1]; |
---|
79 | |
---|
80 | #============================================ |
---|
81 | # Cold Streams |
---|
82 | #============================================ |
---|
83 | streamcold.F = 50 * "kmol/h"; |
---|
84 | streamcold.P = 1 * "atm"; |
---|
85 | streamcold.T = 363 * "K"; |
---|
86 | streamcold.z = [1]; |
---|
87 | #===================================================================== |
---|
88 | # Baffles Spacing |
---|
89 | #===================================================================== |
---|
90 | |
---|
91 | exchanger.Baffles.Ls = 1 *"m"; |
---|
92 | exchanger.Baffles.Lsi = 1 *"m"; |
---|
93 | |
---|
94 | |
---|
95 | OPTIONS |
---|
96 | #============================================ |
---|
97 | # Simulation Options |
---|
98 | #============================================ |
---|
99 | mode = "steady"; |
---|
100 | relativeAccuracy = 1e-8; |
---|
101 | |
---|
102 | end |
---|