source: trunk/sample/costs/sample_HeatExchangerDetailed_cost.mso @ 391

Last change on this file since 391 was 383, checked in by Argimiro Resende Secchi, 16 years ago

Adjust some examples.
File size: 8.3 KB
Line 
1#*-------------------------------------------------------------------
2* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
3*
4* This LIBRARY is free software; you can distribute it and/or modify
5* it under the therms of the ALSOC FREE LICENSE as available at
6* http://www.enq.ufrgs.br/alsoc.
7*
8* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
9* from http://www.rps.eng.br Copyright (C) 2002-2004.
10* All rights reserved.
11*
12* EMSO is distributed under the therms of the ALSOC LICENSE as
13* available at http://www.enq.ufrgs.br/alsoc.
14*
15*--------------------------------------------------------------------
16* Sample file for Detailed Shell and Tubes Heat Exchanger
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: sample_Detailed.mso 100 2007-01-09 14:15:56Z bicca $
24*--------------------------------------------------------------------*#
25using "costs/HeatExchangerDetailed_cost";
26
27FlowSheet sample_ShellandTubes_NTU_cost
28       
29DEVICES
30
31        exchanger       as ShellandTubes_NTU_cost;
32        streamhot_in    as source;
33        streamcold_in   as source;
34       
35CONNECTIONS
36
37        streamhot_in.Outlet             to exchanger.InletShell;
38        streamcold_in.Outlet            to exchanger.InletTube;
39       
40PARAMETERS
41
42        PP      as Plugin       (Type ="PP" ,Components         = ["water"],LiquidModel = "PR", VapourModel     = "PR");
43        NComp           as Integer;
44
45SET
46#===============================================================
47#   Heat Exchanger Options
48#===============================================================       
49       
50        NComp                           = PP.NumberOfComponents;
51       
52        exchanger.ShellType  = "Eshell";
53       
54#   Heat Transfer Correlation
55        exchanger.LaminarCorrelation            = "Schlunder";
56        exchanger.TurbulentCorrelation  = "SiederTate";
57        exchanger.TransitionCorrelation         = "Gnielinski";
58
59#=====================================================================
60#       Shell Geometrical Parameters
61#=====================================================================       
62exchanger.Tpass                 = 2;
63exchanger.Dishell               = 0.75  *'m';
64exchanger.Lcf                   = 0.043  *'m';
65exchanger.Nss                   = 2;
66exchanger.Donozzle_Shell    = 0.1937    *'m';
67exchanger.Dinozzle_Shell    = 0.1937    *'m';
68exchanger.Honozzle_Shell    = 0.0225    *'m';
69exchanger.Hinozzle_Shell    = 0.02155   *'m';
70#=====================================================================
71#       Tubes Geometrical Parameters
72#=====================================================================
73exchanger.Ntt                   = 500;
74exchanger.Pattern                       = "Triangle";
75exchanger.pitch                         = 0.0254        *'m';
76exchanger.Ltube                 = 5.5           *'m';
77exchanger.Ditube                = 0.013395  *'m';
78exchanger.Dotube                = 0.015875  *'m';
79exchanger.Kwall                         = 0.057         *'kW/m/K';
80exchanger.Donozzle_Tube     = 0.203     *'m';
81exchanger.Dinozzle_Tube         = 0.203         *'m';
82#=====================================================================
83#       Baffles Geometrical Parameters
84#=====================================================================
85exchanger.Lcd           = 0.0047        *'m';
86exchanger.Bc            = 30;
87exchanger.Ltd           = 0.00039  *'m';
88exchanger.Nb            = 6;
89
90#=====================================================================
91#       Fouling
92#=====================================================================
93exchanger.Rfi = 0.001*'m^2*K/kW';
94exchanger.Rfo = 0.001*'m^2*K/kW';
95
96# costs
97exchanger.Material = "Stainless steel 316";
98
99exchanger.Cost(1,:) = [8.202,0.01506,0.06811];
100exchanger.Cost(2,:) = [-0.9003,0.0906,0];
101exchanger.Cost(3,:) = [1.35,0,0];
102exchanger.Cost(4,:) = [-0.7844,0.0830,0];
103exchanger.Cost(5,:) = [0.8955,0.04981,0];
104exchanger.Cost(6,:) = [1.2002,0.07140,0];
105exchanger.Cost(7,:) = [1.4272,0.12088,0];
106exchanger.Cost(8,:) = [0.8608,0.23296,0];
107
108SPECIFY
109#============================================
110#   Hot Stream
111#============================================
112        streamhot_in.Outlet.F   = 40    * 'mol/s';
113        streamhot_in.Outlet.T   = 373* 'K';
114        streamhot_in.Outlet.z   = [1]     ;
115        streamhot_in.Outlet.P   = 740     * 'kPa';
116#============================================
117#   Cold Stream
118#============================================   
119        streamcold_in.Outlet.F  = 75   * 'mol/s';
120        streamcold_in.Outlet.T  = 333  * 'K';
121        streamcold_in.Outlet.z  = [1];
122        streamcold_in.Outlet.P  = 2210*'kPa';
123
124#=====================================================================
125#       Baffle Spacing
126#=====================================================================
127        exchanger.Baffles.Ls     = 0.622  *'m';
128        exchanger.Baffles.Lsi = 0.807  *'m';
129
130OPTIONS
131
132Dynamic = false;
133GuessFile = "GuessDetailed";
134end
135
136
137FlowSheet sample_ShellandTubes_LMTD_cost
138       
139DEVICES
140
141        exchanger       as ShellandTubes_LMTD_cost;
142        streamhot_in    as source;
143        streamcold_in   as source;
144       
145CONNECTIONS
146
147        streamhot_in.Outlet             to exchanger.InletShell;
148        streamcold_in.Outlet            to exchanger.InletTube;
149       
150PARAMETERS
151
152        PP      as Plugin       (Type ="PP" ,Components         = ["water"],LiquidModel = "PR", VapourModel     = "PR");
153        NComp           as Integer;
154       
155SET
156#===============================================================
157#   Heat Exchanger Options
158#===============================================================       
159       
160        NComp                           = PP.NumberOfComponents;
161       
162        exchanger.ShellType  = "Eshell";
163       
164exchanger.LMTDcorrection  = "Fakeri";
165
166#   Heat Transfer Correlation
167        exchanger.LaminarCorrelation            = "Schlunder";
168        exchanger.TurbulentCorrelation  = "SiederTate";
169        exchanger.TransitionCorrelation         = "Gnielinski";
170
171#=====================================================================
172#       Shell Geometrical Parameters
173#=====================================================================       
174exchanger.Tpass                 = 2;
175exchanger.Dishell               = 0.75  *'m';
176exchanger.Lcf                   = 0.043  *'m';
177exchanger.Nss                   = 2;
178exchanger.Donozzle_Shell    = 0.1937    *'m';
179exchanger.Dinozzle_Shell    = 0.1937    *'m';
180exchanger.Honozzle_Shell    = 0.0225    *'m';
181exchanger.Hinozzle_Shell    = 0.02155   *'m';
182#=====================================================================
183#       Tubes Geometrical Parameters
184#=====================================================================
185exchanger.Ntt                   = 500;
186exchanger.Pattern                       = "Triangle";
187exchanger.pitch                         = 0.0254        *'m';
188exchanger.Ltube                 = 5.5           *'m';
189exchanger.Ditube                = 0.013395  *'m';
190exchanger.Dotube                = 0.015875 *'m';
191exchanger.Kwall                         = 0.057         *'kW/m/K';
192exchanger.Donozzle_Tube     = 0.203     *'m';
193exchanger.Dinozzle_Tube         = 0.203         *'m';
194#=====================================================================
195#       Baffles Geometrical Parameters
196#=====================================================================
197exchanger.Lcd           = 0.0047        *'m';
198exchanger.Bc            = 30;
199exchanger.Ltd           = 0.00039  *'m';
200exchanger.Nb            = 6;
201
202#=====================================================================
203#       Fouling
204#=====================================================================
205exchanger.Rfi = 0.001*'m^2*K/kW';
206exchanger.Rfo = 0.001*'m^2*K/kW';
207
208# costs
209exchanger.Material = "Stainless steel 316";
210
211exchanger.Cost(1,:) = [8.202,0.01506,0.06811];
212exchanger.Cost(2,:) = [-0.9003,0.0906,0];
213exchanger.Cost(3,:) = [1.35,0,0];
214exchanger.Cost(4,:) = [-0.7844,0.0830,0];
215exchanger.Cost(5,:) = [0.8955,0.04981,0];
216exchanger.Cost(6,:) = [1.2002,0.07140,0];
217exchanger.Cost(7,:) = [1.4272,0.12088,0];
218exchanger.Cost(8,:) = [0.8608,0.23296,0];
219       
220SPECIFY
221#============================================
222#   Hot Stream
223#============================================
224        streamhot_in.Outlet.F   = 40   * 'mol/s';
225        streamhot_in.Outlet.T   = 373* 'K';
226        streamhot_in.Outlet.z   = [1]     ;
227        streamhot_in.Outlet.P   = 740     * 'kPa';
228#============================================
229#   Cold Stream
230#============================================   
231        streamcold_in.Outlet.F  = 75  * 'mol/s';
232        streamcold_in.Outlet.T  = 333  * 'K';
233        streamcold_in.Outlet.z  = [1];
234        streamcold_in.Outlet.P  = 2210*'kPa';
235#=====================================================================
236#       Baffle Spacing
237#=====================================================================
238        exchanger.Baffles.Ls     = 0.622  *'m';
239        exchanger.Baffles.Lsi = 0.807  *'m';
240
241OPTIONS
242
243Dynamic = false;
244NLASolver(RelativeAccuracy = 1e-6);
245GuessFile = "GuessDetailed";
246end
247
248
Note: See TracBrowser for help on using the repository browser.