source: branches/gui/sample/heat_exchangers/DPHE_diagram.mso

Last change on this file was 749, checked in by gerson bicca, 14 years ago

added samples in mso version

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