1 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
2 | # Double Pipe Heat Exchanger |
---|
3 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
4 | using "heat_exchangers/DoublePipe.mso"; |
---|
5 | |
---|
6 | FlowSheet Double_Pipe |
---|
7 | |
---|
8 | DEVICES |
---|
9 | |
---|
10 | exchanger as DoublePipe_NTU; |
---|
11 | streamhot as streamTP; |
---|
12 | streamcold as streamTP; |
---|
13 | |
---|
14 | CONNECTIONS |
---|
15 | |
---|
16 | streamhot to exchanger.Inlet.Hot; |
---|
17 | streamcold to exchanger.Inlet.Cold; |
---|
18 | |
---|
19 | PARAMETERS |
---|
20 | |
---|
21 | PP as CalcObject (File="vrpp"); |
---|
22 | NComp as Integer; |
---|
23 | |
---|
24 | SET |
---|
25 | |
---|
26 | PP.LiquidModel = "PR"; |
---|
27 | PP.VapourModel = "PR"; |
---|
28 | PP.Components = ["n-hexane","water"]; |
---|
29 | NComp = PP.NumberOfComponents; |
---|
30 | |
---|
31 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
32 | # Options |
---|
33 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
34 | |
---|
35 | exchanger.HE.FlowDirection = "Counter"; |
---|
36 | exchanger.HE.TurbulentFlow = "SiederTate"; |
---|
37 | |
---|
38 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
39 | # Double Pipe Geometrical Parameters and Alocation |
---|
40 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
41 | |
---|
42 | exchanger.HE.HotSide = "Inner"; |
---|
43 | exchanger.DoInner = 0.04826*"m"; |
---|
44 | exchanger.DiInner = 0.04089*"m"; |
---|
45 | exchanger.DiOuter = 0.07793*"m"; |
---|
46 | exchanger.Kwall = 0.057 *"kW/m/K"; |
---|
47 | exchanger.Lpipe = 3*"m"; |
---|
48 | |
---|
49 | SPECIFY |
---|
50 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
51 | # Hot Stream |
---|
52 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
53 | |
---|
54 | streamhot.F = 10 * "kmol/h"; |
---|
55 | streamhot.T = (68+273.15) * "K"; |
---|
56 | streamhot.P = 5.4 * "bar"; |
---|
57 | streamhot.z = [1,0]; |
---|
58 | |
---|
59 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
60 | # Cold Stream |
---|
61 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
62 | |
---|
63 | streamcold.F = 5 * "kmol/h"; |
---|
64 | streamcold.P = 5.1 * "bar"; |
---|
65 | streamcold.T = (23+273.15) * "K"; |
---|
66 | streamcold.z = [0,1]; |
---|
67 | |
---|
68 | OPTIONS |
---|
69 | mode = "steady"; |
---|
70 | |
---|
71 | end |
---|
72 | |
---|