source: branches/gui/sample/heat_exchangers/DPIncremental_diagram.mso @ 802

Last change on this file since 802 was 704, checked in by gerson bicca, 14 years ago

added samples mso
File size: 2.7 KB
Line 
1#*----------------------------------------------
2* FlowSheet generated automaticaly by EMSO-GUI
3*----------------------------------------------*#
4
5using "heat_exchangers/DoublePipeIncr";
6using "streams";
7
8FlowSheet DPIncremental_diagram
9        PARAMETERS
10        PP as Plugin(Brief="Physical Properties",
11                Type="PP",
12                Components = ["aniline","benzene"],
13                LiquidModel = "PR",
14                VapourModel = "PR"
15        );
16        NComp as Integer;
17        SET
18        NComp = PP.NumberOfComponents;
19
20        DEVICES
21        DoublePipeIncr_1 as DoublePipeIncr;
22
23        SET
24        DoublePipeIncr_1.N = 70;
25        DoublePipeIncr_1.CalculationApproach = "Simplified";
26        DoublePipeIncr_1.Qestimated = 40 * 'kW';
27        DoublePipeIncr_1.FlowDirection = "counter";
28        DoublePipeIncr_1.InnerLaminarCorrelation = "Schlunder";
29        DoublePipeIncr_1.InnerTransitionCorrelation = "Hausen";
30        DoublePipeIncr_1.InnerTurbulentCorrelation = "SiederTate";
31        DoublePipeIncr_1.OuterLaminarCorrelation = "Schlunder";
32        DoublePipeIncr_1.OuterTransitionCorrelation = "Hausen";
33        DoublePipeIncr_1.OuterTurbulentCorrelation = "SiederTate";
34        DoublePipeIncr_1.DoInner = 42.16 * 'mm';
35        DoublePipeIncr_1.DiInner = 35.05 * 'mm';
36        DoublePipeIncr_1.DiOuter = 52.50 * 'mm';
37        DoublePipeIncr_1.Lpipe = 9 * 'm';
38        DoublePipeIncr_1.Kwall = 0.057 * 'kW/m/K';
39        DoublePipeIncr_1.Rfi = 0.00018 * 'm^2*K/W';
40        DoublePipeIncr_1.Rfo = 0 * 'm^2*K/W';
41        DoublePipeIncr_1.Donozzle_Inner = 36.63 * 'mm';
42        DoublePipeIncr_1.Dinozzle_Inner = 36.63 * 'mm';
43        DoublePipeIncr_1.Donozzle_Outer = 42.72 * 'mm';
44        DoublePipeIncr_1.Dinozzle_Outer = 42.72 * 'mm';
45
46        SPECIFY
47
48        INITIAL
49
50        GUESS
51
52        DEVICES
53        simple_source_1 as simple_source;
54
55        SET
56
57        SPECIFY
58        simple_source_1.MolarComposition(1) = 0;
59        simple_source_1.MolarComposition(2) = 1;
60        simple_source_1.F = 58.0694 * 'kmol/h';
61        simple_source_1.T = 288.71 * 'K';
62        simple_source_1.P = 4.08275 * 'atm';
63
64        INITIAL
65
66        GUESS
67
68        DEVICES
69        simple_source_2 as simple_source;
70
71        SET
72
73        SPECIFY
74        simple_source_2.MolarComposition(1) = 1;
75        simple_source_2.MolarComposition(2) = 0;
76        simple_source_2.F = 47.2038 * 'kmol/h';
77        simple_source_2.T = 338.71 * 'K';
78        simple_source_2.P = 4.08275 * 'atm';
79
80        INITIAL
81
82        GUESS
83
84        DEVICES
85        simple_sink_1 as simple_sink;
86
87        SET
88
89        SPECIFY
90
91        INITIAL
92
93        GUESS
94
95        DEVICES
96        simple_sink_2 as simple_sink;
97
98        SET
99
100        SPECIFY
101
102        INITIAL
103
104        GUESS
105
106        CONNECTIONS
107        simple_source_1.Outlet to DoublePipeIncr_1.InletInner;
108        simple_source_2.Outlet to DoublePipeIncr_1.InletOuter;
109        DoublePipeIncr_1.OutletOuter to simple_sink_1.Inlet;
110        DoublePipeIncr_1.OutletInner to simple_sink_2.Inlet;
111
112        OPTIONS
113        Dynamic = false;
114        Integration = "original";
115        NLASolver(
116                File = "sundials",
117                RelativeAccuracy = 1e-3,
118                AbsoluteAccuracy = 1e-6,
119                MaxIterations = 100
120        );
121        DAESolver(
122                File = "sundials",
123                RelativeAccuracy = 1e-3,
124                AbsoluteAccuracy = 1e-6,
125                EventAccuracy = 1e-2
126        );
127end
Note: See TracBrowser for help on using the repository browser.