source: trunk/sample/heat_exchangers/Sample_STHE.mso @ 976

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

added samples in mso version

File size: 2.7 KB
Line 
1#*----------------------------------------------
2* FlowSheet generated automaticaly by EMSO-GUI
3*----------------------------------------------*#
4
5using "heat_exchangers/HeatExchangerDetailed";
6using "streams";
7
8FlowSheet Sample_STHE
9        PARAMETERS
10        PP as Plugin(Brief="Physical Properties",
11                Type="PP",
12                Components = ["benzene","toluene"],
13                LiquidModel = "PR",
14                VapourModel = "PR"
15        );
16        NComp as Integer;
17        SET
18        NComp = PP.NumberOfComponents;
19
20        DEVICES
21        Sthe as ShellandTubes_LMTD;
22
23        SET
24        Sthe.ShellType = "Eshell";
25        Sthe.Pattern = "Triangle";
26        Sthe.LaminarCorrelation = "Schlunder";
27        Sthe.TransitionCorrelation = "Gnielinski";
28        Sthe.TurbulentCorrelation = "SiederTate";
29        Sthe.Tubes.NumberOfTubes = 500;
30        Sthe.Tubes.Tubepasses = 2;
31        Sthe.Tubes.TubeLength = 5.5 * 'm';
32        Sthe.Tubes.TubePitch = 0.0254 * 'm';
33        Sthe.Tubes.Kwall = 0.057 * 'kW/m/K';
34        Sthe.Tubes.TubeOD = 0.01587 * 'm';
35        Sthe.Tubes.TubeID = 0.013395 * 'm';
36        Sthe.Tubes.Fouling = 0 * 'm^2*K/kW';
37        Sthe.Tubes.InletNozzleID = 203 * 'mm';
38        Sthe.Tubes.OutletNozzleID = 203 * 'mm';
39        Sthe.Shell.ShellID = 0.75 * 'm';
40        Sthe.Shell.Fouling = 0 * 'm^2*K/kW';
41        Sthe.Shell.InletNozzleID = 193 * 'mm';
42        Sthe.Shell.OutletNozzleID = 193 * 'mm';
43        Sthe.Baffles.BaffleCut = 25;
44        Sthe.Baffles.NumberOfBaffles = 6;
45        Sthe.Clearances.SealStrip = 1;
46        Sthe.Clearances.Hinozzle_Shell = 0.02155 * 'm';
47        Sthe.Clearances.Honozzle_Shell = 0.0225 * 'm';
48        Sthe.Clearances.BundleToShell = 0.043 * 'm';
49        Sthe.Clearances.BaffleToShell = 0.00039 * 'm';
50        Sthe.Clearances.TubeToBaffle = 0.0047 * 'm';
51        Sthe.LMTDcorrection = "User Specified";
52        Sthe.FLMTDcorrection = 0.85;
53
54        SPECIFY
55        Sthe.Baffles.Inlet_Spacing = 870 * 'mm';
56        Sthe.Baffles.Central_Spacing = 622 * 'mm';
57
58        INITIAL
59
60        GUESS
61
62        DEVICES
63        Hot_in as simple_source;
64
65        SET
66
67        SPECIFY
68        Hot_in.MolarComposition(1) = 1;
69        Hot_in.MolarComposition(2) = 0;
70        Hot_in.F = 40 * 'mol/h';
71        Hot_in.T = 393 * 'K';
72        Hot_in.P = 740 * 'kPa';
73
74        INITIAL
75
76        GUESS
77
78        DEVICES
79        Cold_in as simple_source;
80
81        SET
82
83        SPECIFY
84        Cold_in.MolarComposition(1) = 0;
85        Cold_in.MolarComposition(2) = 1;
86        Cold_in.F = 122 * 'mol/h';
87        Cold_in.T = 333.15 * 'K';
88        Cold_in.P = 2210 * 'kPa';
89
90        INITIAL
91
92        GUESS
93
94        DEVICES
95        Hot_out as simple_sink;
96
97        SET
98
99        SPECIFY
100
101        INITIAL
102
103        GUESS
104
105        DEVICES
106        Cold_out as simple_sink;
107
108        SET
109
110        SPECIFY
111
112        INITIAL
113
114        GUESS
115
116        CONNECTIONS
117        Hot_in.Outlet to Sthe.InletShell;
118        Cold_in.Outlet to Sthe.InletTube;
119        Sthe.OutletShell to Hot_out.Inlet;
120        Sthe.OutletTube to Cold_out.Inlet;
121
122        OPTIONS
123        Dynamic = false;
124        Integration = "original";
125        NLASolver(
126                File = "sundials",
127                RelativeAccuracy = 1e-3,
128                AbsoluteAccuracy = 1e-6,
129                MaxIterations = 100
130        );
131        DAESolver(
132                File = "sundials",
133                RelativeAccuracy = 1e-3,
134                AbsoluteAccuracy = 1e-6,
135                EventAccuracy = 1e-2
136        );
137end
Note: See TracBrowser for help on using the repository browser.