source: branches/gui/sample/costs/sample_HeatExchangerDetailed_cost.mso @ 673

Last change on this file since 673 was 581, checked in by gerson bicca, 15 years ago

more updates
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
109SPECIFY
110#============================================
111#   Hot Stream
112#============================================
113        streamhot_in.F  = 40    * 'mol/s';
114        streamhot_in.T  = 373* 'K';
115        streamhot_in.Composition        = [1]     ;
116        streamhot_in.P  = 740     * 'kPa';
117#============================================
118#   Cold Stream
119#============================================   
120        streamcold_in.F  = 75   * 'mol/s';
121        streamcold_in.T  = 333  * 'K';
122        streamcold_in.Composition  = [1];
123        streamcold_in.P  = 2210*'kPa';
124#=====================================================================
125#       Baffle Spacing
126#=====================================================================
127        exchanger.Baffles.Central_Spacing        = 0.622  *'m';
128        exchanger.Baffles.Inlet_Spacing= 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  = "Bowmann";
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.Tubes.Tubepasses                      = 2;
175exchanger.Shell.ShellID                 = 0.75  *'m';
176exchanger.Clearances.BundleToShell                      = 0.043  *'m';
177exchanger.Clearances.SealStrip                  = 2;
178exchanger.Shell.InletNozzleID    = 0.1937       *'m';
179exchanger.Shell.OutletNozzleID    = 0.1937      *'m';
180exchanger.Clearances.Honozzle_Shell    = 0.0225         *'m';
181exchanger.Clearances.Hinozzle_Shell    = 0.02155        *'m';
182#=====================================================================
183#       Tubes Geometrical Parameters
184#=====================================================================
185exchanger.Tubes.NumberOfTubes                   = 500;
186exchanger.Pattern                       = "Triangle";
187exchanger.Tubes.TubePitch                       = 0.0254        *'m';
188exchanger.Tubes.TubeLength                      = 5.5           *'m';
189exchanger.Tubes.TubeID                  = 0.013395  *'m';
190exchanger.Tubes.TubeOD                  = 0.015875  *'m';
191exchanger.Tubes.Kwall                           = 0.057         *'kW/m/K';
192exchanger.Tubes.InletNozzleID    = 0.203        *'m';
193exchanger.Tubes.OutletNozzleID          = 0.203         *'m';
194#=====================================================================
195#       Baffles Geometrical Parameters
196#=====================================================================
197exchanger.Clearances.BaffleToShell              = 0.0047        *'m';
198exchanger.Baffles.BaffleCut             = 30;
199exchanger.Clearances.TubeToBaffle       = 0.00039  *'m';
200exchanger.Baffles.NumberOfBaffles               = 6;
201
202#=====================================================================
203#       Fouling
204#=====================================================================
205exchanger.Tubes.Fouling = 0.001*'m^2*K/kW';
206exchanger.Shell.Fouling = 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.F  = 40   * 'mol/s';
225        streamhot_in.T  = 373* 'K';
226        streamhot_in.Composition        = [1]     ;
227        streamhot_in.P  = 740     * 'kPa';
228#============================================
229#   Cold Stream
230#============================================   
231        streamcold_in.F  = 75  * 'mol/s';
232        streamcold_in.T  = 333  * 'K';
233        streamcold_in.Composition  = [1];
234        streamcold_in.P  = 2210*'kPa';
235#=====================================================================
236#       Baffle Spacing
237#=====================================================================
238        exchanger.Baffles.Central_Spacing        = 0.622  *'m';
239        exchanger.Baffles.Inlet_Spacing= 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.