source: branches/eml_v9/sample/costs/sample_HeatExchangerDetailed_cost.mso @ 963

Last change on this file since 963 was 856, checked in by Argimiro Resende Secchi, 13 years ago

Fixing examples.

File size: 8.8 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.Tubes.Tubepasses                      = 2;
63exchanger.Shell.ShellID                 = 0.75  *'m';
64exchanger.Clearances.BundleToShell                      = 0.043  *'m';
65exchanger.Clearances.SealStrip                  = 2;
66exchanger.Shell.InletNozzleID    = 0.1937       *'m';
67exchanger.Shell.OutletNozzleID    = 0.1937      *'m';
68exchanger.Clearances.Honozzle_Shell    = 0.0225         *'m';
69exchanger.Clearances.Hinozzle_Shell    = 0.02155        *'m';
70#=====================================================================
71#       Tubes Geometrical Parameters
72#=====================================================================
73exchanger.Tubes.NumberOfTubes                   = 500;
74exchanger.Pattern                       = "Triangle";
75exchanger.Tubes.TubePitch                       = 0.0254        *'m';
76exchanger.Tubes.TubeLength                      = 5.5           *'m';
77exchanger.Tubes.TubeID                  = 0.013395  *'m';
78exchanger.Tubes.TubeOD                  = 0.015875  *'m';
79exchanger.Tubes.Kwall                           = 0.057         *'kW/m/K';
80exchanger.Tubes.InletNozzleID    = 0.203        *'m';
81exchanger.Tubes.OutletNozzleID          = 0.203         *'m';
82#=====================================================================
83#       Baffles Geometrical Parameters
84#=====================================================================
85exchanger.Clearances.BaffleToShell              = 0.0047        *'m';
86exchanger.Baffles.BaffleCut             = 30;
87exchanger.Clearances.TubeToBaffle       = 0.00039  *'m';
88exchanger.Baffles.NumberOfBaffles               = 6;
89
90#=====================================================================
91#       Fouling
92#=====================================================================
93exchanger.Tubes.Fouling = 0.001*'m^2*K/kW';
94exchanger.Shell.Fouling = 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.F  = 80    * 'mol/s';
113        streamhot_in.T  = 373* 'K';
114        streamhot_in.Composition        = [1]     ;
115        streamhot_in.P  = 740     * 'kPa';
116#============================================
117#   Cold Stream
118#============================================   
119        streamcold_in.F  = 75   * 'mol/s';
120        streamcold_in.T  = 333  * 'K';
121        streamcold_in.Composition  = [1];
122        streamcold_in.P  = 2210*'kPa';
123#=====================================================================
124#       Baffle Spacing
125#=====================================================================
126        exchanger.Baffles.Central_Spacing        = 0.622  *'m';
127        exchanger.Baffles.Inlet_Spacing= 0.807  *'m';
128
129OPTIONS
130
131Dynamic = false;
132GuessFile = "GuessDetailed";
133end
134
135
136FlowSheet sample_ShellandTubes_LMTD_cost
137       
138DEVICES
139
140        exchanger       as ShellandTubes_LMTD_cost;
141        streamhot_in    as source;
142        streamcold_in   as source;
143       
144CONNECTIONS
145
146        streamhot_in.Outlet             to exchanger.InletShell;
147        streamcold_in.Outlet            to exchanger.InletTube;
148       
149PARAMETERS
150
151        PP      as Plugin       (Type ="PP" ,Components         = ["water"],LiquidModel = "PR", VapourModel     = "PR");
152        NComp           as Integer;
153       
154SET
155#===============================================================
156#   Heat Exchanger Options
157#===============================================================       
158       
159        NComp                           = PP.NumberOfComponents;
160       
161        exchanger.ShellType  = "Eshell";
162       
163exchanger.LMTDcorrection  = "Bowmann";
164
165#   Heat Transfer Correlation
166        exchanger.LaminarCorrelation            = "Schlunder";
167        exchanger.TurbulentCorrelation  = "SiederTate";
168        exchanger.TransitionCorrelation         = "Gnielinski";
169
170#=====================================================================
171#       Shell Geometrical Parameters
172#=====================================================================       
173exchanger.Tubes.Tubepasses                      = 2;
174exchanger.Shell.ShellID                 = 0.75  *'m';
175exchanger.Clearances.BundleToShell                      = 0.043  *'m';
176exchanger.Clearances.SealStrip                  = 2;
177exchanger.Shell.InletNozzleID    = 0.1937       *'m';
178exchanger.Shell.OutletNozzleID    = 0.1937      *'m';
179exchanger.Clearances.Honozzle_Shell    = 0.0225         *'m';
180exchanger.Clearances.Hinozzle_Shell    = 0.02155        *'m';
181#=====================================================================
182#       Tubes Geometrical Parameters
183#=====================================================================
184exchanger.Tubes.NumberOfTubes                   = 500;
185exchanger.Pattern                       = "Triangle";
186exchanger.Tubes.TubePitch                       = 0.0254        *'m';
187exchanger.Tubes.TubeLength                      = 5.5           *'m';
188exchanger.Tubes.TubeID                  = 0.013395  *'m';
189exchanger.Tubes.TubeOD                  = 0.015875  *'m';
190exchanger.Tubes.Kwall                           = 0.057         *'kW/m/K';
191exchanger.Tubes.InletNozzleID    = 0.203        *'m';
192exchanger.Tubes.OutletNozzleID          = 0.203         *'m';
193#=====================================================================
194#       Baffles Geometrical Parameters
195#=====================================================================
196exchanger.Clearances.BaffleToShell              = 0.0047        *'m';
197exchanger.Baffles.BaffleCut             = 30;
198exchanger.Clearances.TubeToBaffle       = 0.00039  *'m';
199exchanger.Baffles.NumberOfBaffles               = 6;
200
201#=====================================================================
202#       Fouling
203#=====================================================================
204exchanger.Tubes.Fouling = 0.001*'m^2*K/kW';
205exchanger.Shell.Fouling = 0.001*'m^2*K/kW';
206
207# costs
208exchanger.Material = "Stainless steel 316";
209
210exchanger.Cost(1,:) = [8.202,0.01506,0.06811];
211exchanger.Cost(2,:) = [-0.9003,0.0906,0];
212exchanger.Cost(3,:) = [1.35,0,0];
213exchanger.Cost(4,:) = [-0.7844,0.0830,0];
214exchanger.Cost(5,:) = [0.8955,0.04981,0];
215exchanger.Cost(6,:) = [1.2002,0.07140,0];
216exchanger.Cost(7,:) = [1.4272,0.12088,0];
217exchanger.Cost(8,:) = [0.8608,0.23296,0];
218       
219SPECIFY
220#============================================
221#   Hot Stream
222#============================================
223        streamhot_in.F  = 80   * 'mol/s';
224        streamhot_in.T  = 373* 'K';
225        streamhot_in.Composition        = [1]     ;
226        streamhot_in.P  = 740     * 'kPa';
227#============================================
228#   Cold Stream
229#============================================   
230        streamcold_in.F  = 75  * 'mol/s';
231        streamcold_in.T  = 333  * 'K';
232        streamcold_in.Composition  = [1];
233        streamcold_in.P  = 2210*'kPa';
234#=====================================================================
235#       Baffle Spacing
236#=====================================================================
237        exchanger.Baffles.Central_Spacing        = 0.622  *'m';
238        exchanger.Baffles.Inlet_Spacing= 0.807  *'m';
239       
240OPTIONS
241
242Dynamic = false;
243NLASolver(RelativeAccuracy = 1e-6);
244GuessFile = "GuessDetailed";
245end
246
247
Note: See TracBrowser for help on using the repository browser.