source: trunk/sample/heat_exchangers/DPHE_diagram.mso @ 992

Last change on this file since 992 was 992, checked in by Argimiro Resende Secchi, 6 years ago

fixing some examples

File size: 2.7 KB
Line 
1#*----------------------------------------------
2* FlowSheet generated automaticaly by EMSO-GUI
3*----------------------------------------------*#
4
5using "heat_exchangers/DoublePipe";
6
7FlowSheet DPHE_diagram
8        PARAMETERS
9        PP as Plugin(Brief="Physical Properties",
10                Type="PP",
11                Components = ["aniline","water"],
12                LiquidModel = "PR",
13                VapourModel = "PR"
14        );
15        NComp as Integer;
16        SET
17        NComp = PP.NumberOfComponents;
18
19        DEVICES
20        DoublePipe_LMTD_1 as DoublePipe_LMTD;
21
22        SET
23        DoublePipe_LMTD_1.InnerLaminarCorrelation = "Schlunder";
24        DoublePipe_LMTD_1.InnerTransitionCorrelation = "Gnielinski";
25        DoublePipe_LMTD_1.InnerTurbulentCorrelation = "SiederTate";
26        DoublePipe_LMTD_1.OuterLaminarCorrelation = "Schlunder";
27        DoublePipe_LMTD_1.OuterTransitionCorrelation = "Gnielinski";
28        DoublePipe_LMTD_1.OuterTurbulentCorrelation = "SiederTate";
29        DoublePipe_LMTD_1.CalculationApproach = "Simplified";
30        DoublePipe_LMTD_1.Qestimated = 1 * 'kW';
31        DoublePipe_LMTD_1.Geometry.DoInner = 0.04826 * 'm';
32        DoublePipe_LMTD_1.Geometry.DiInner = 0.04089 * 'm';
33        DoublePipe_LMTD_1.Geometry.DiOuter = 0.07793 * 'm';
34        DoublePipe_LMTD_1.Geometry.Lpipe = 3 * 'm';
35        DoublePipe_LMTD_1.Geometry.Kwall = 0.057 * 'kW/m/K';
36        DoublePipe_LMTD_1.Geometry.Rfi = 0.0018 * 'm^2*K/kW';
37        DoublePipe_LMTD_1.Geometry.Rfo = 0.0021 * 'm^2*K/kW';
38        DoublePipe_LMTD_1.FlowDirection = "counter";
39
40        SPECIFY
41
42        INITIAL
43
44        GUESS
45        DoublePipe_LMTD_1.OutletInner.T = 377 * 'K';
46
47        DEVICES
48        simple_sink_1 as simple_sink;
49
50        SET
51
52        SPECIFY
53
54        INITIAL
55
56        GUESS
57
58        DEVICES
59        simple_sink_2 as simple_sink;
60
61        SET
62
63        SPECIFY
64
65        INITIAL
66
67        GUESS
68
69        DEVICES
70        source_1 as source;
71
72        SET
73        source_1.CompositionBasis = "Molar";
74        source_1.ValidPhases = "Vapour-Liquid";
75
76        SPECIFY
77        source_1.Composition(1) = 0;
78        source_1.Composition(2) = 1;
79        source_1.F = 3 * 'kmol/h';
80        source_1.T = 330 * 'K';
81        source_1.P = 5 * 'bar';
82
83        INITIAL
84
85        GUESS
86
87        DEVICES
88        source_2 as source;
89
90        SET
91        source_2.ValidPhases = "Vapour-Liquid";
92
93        SPECIFY
94        source_2.Composition(1) = 1;
95        source_2.Composition(2) = 0;
96        source_2.F = 1 * 'kmol/h';
97        source_2.T = 373.15 * 'K';
98        source_2.P = 5.7 * 'bar';
99
100        INITIAL
101
102        GUESS
103
104        CONNECTIONS
105        DoublePipe_LMTD_1.OutletOuter to simple_sink_1.Inlet;
106        DoublePipe_LMTD_1.OutletInner to simple_sink_2.Inlet;
107        source_1.Outlet to DoublePipe_LMTD_1.InletOuter;
108        source_2.Outlet to DoublePipe_LMTD_1.InletInner;
109
110        OPTIONS
111        Dynamic = false;
112        Integration = "original";
113        NLASolver(
114                File = "nlasolver",
115                RelativeAccuracy = 1e-3,
116                AbsoluteAccuracy = 1e-6,
117                MaxIterations = 100
118        );
119        DAESolver(
120                File = "sundials",
121                RelativeAccuracy = 1e-3,
122                AbsoluteAccuracy = 1e-6,
123                EventAccuracy = 1e-2
124        );
125end
Note: See TracBrowser for help on using the repository browser.