source: trunk/sample/costs/sample_HeatExchangerSimplified_cost.mso @ 619

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

fixed heat exchanger cost model

File size: 7.2 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 models of HeatExchangerSimplified_cost
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Núbia do Carmo Ferreira
23* $Id: Sample_Simplified.mso 145 2007-01-30 18:20:00Z rafael $
24*--------------------------------------------------------------------*#
25
26using "costs/HeatExchangerSimplified_cost";
27
28
29FlowSheet sample_HeatExchanger_LMTD_cost
30
31DEVICES
32
33        exchanger       as HeatExchanger_LMTD_cost;
34        streamhot       as source;
35        streamcold      as source;
36
37
38CONNECTIONS
39
40        streamhot.Outlet        to exchanger.InletHot;
41        streamcold.Outlet       to exchanger.InletCold;
42       
43PARAMETERS
44        PP                      as Plugin       (Type="PP",LiquidModel    = "RK",VapourModel   = "RK",
45                                                                                Components      = ["water"]);
46        NComp           as Integer;
47
48SET
49
50        NComp                           = PP.NumberOfComponents;
51       
52        exchanger.ExchangerType       = "Counter Flow";
53
54        # costs
55        exchanger.Material = "Stainless steel 316";
56       
57        exchanger.Cost(1,:) = [8.202,0.01506,0.06811];
58        exchanger.Cost(2,:) = [-0.9003,0.0906,0];
59        exchanger.Cost(3,:) = [1.35,0,0];
60        exchanger.Cost(4,:) = [-0.7844,0.0830,0];
61        exchanger.Cost(5,:) = [0.8955,0.04981,0];
62        exchanger.Cost(6,:) = [1.2002,0.07140,0];
63        exchanger.Cost(7,:) = [1.4272,0.12088,0];
64        exchanger.Cost(8,:) = [0.8608,0.23296,0];
65       
66
67SPECIFY
68
69        exchanger.Details.A                                      = 139.35*'m^2';
70        exchanger.Details.Ud                                     = 0.75*'W/(m^2*K)';
71        exchanger.Details.Uc                                     = 0.75*'W/(m^2*K)';
72       
73        exchanger.HotSide.PressureDrop.Pdrop  = 0*'atm';
74        exchanger.ColdSide.PressureDrop.Pdrop = 0*'atm';
75       
76        streamhot.Outlet.F                                      = 1000    * 'kmol/h';
77        streamhot.Outlet.T                                      = 450     * 'K';
78        streamhot.Outlet.P                                      = 1.5     * 'atm';
79        streamhot.Outlet.z                                      = [1];
80
81        streamcold.Outlet.F                                     = 500   * 'kmol/h';
82        streamcold.Outlet.P                                     = 1     * 'atm';
83        streamcold.Outlet.T                                     = 315   * 'K';
84    streamcold.Outlet.z                                         = [1];
85       
86       
87OPTIONS
88
89 Dynamic = false;
90
91end
92
93
94FlowSheet sample_HeatExchanger_NTU_cost
95       
96DEVICES
97
98        exchanger       as HeatExchanger_NTU_cost;
99        streamhot       as source;
100        streamcold      as source;
101
102CONNECTIONS
103
104        streamhot.Outlet        to exchanger.InletHot;
105        streamcold.Outlet       to exchanger.InletCold;
106       
107PARAMETERS
108        PP                      as Plugin       (Type="PP",LiquidModel    = "RK",VapourModel   = "RK",
109                                                                                Components      = ["water"]);
110        NComp           as Integer;
111       
112SET
113
114
115        NComp                           = PP.NumberOfComponents;
116       
117        exchanger.ExchangerType       = "Counter Flow";
118
119        # costs
120        exchanger.Material = "Stainless steel 316";
121       
122        exchanger.Cost(1,:) = [8.202,0.01506,0.06811];
123        exchanger.Cost(2,:) = [-0.9003,0.0906,0];
124        exchanger.Cost(3,:) = [1.35,0,0];
125        exchanger.Cost(4,:) = [-0.7844,0.0830,0];
126        exchanger.Cost(5,:) = [0.8955,0.04981,0];
127        exchanger.Cost(6,:) = [1.2002,0.07140,0];
128        exchanger.Cost(7,:) = [1.4272,0.12088,0];
129        exchanger.Cost(8,:) = [0.8608,0.23296,0];
130
131SPECIFY
132
133        exchanger.Details.A                                      = 65.031*'m^2';
134        exchanger.Details.Ud                                     = 0.75*'W/(m^2*K)';
135        exchanger.Details.Uc                                     = 0.75*'W/(m^2*K)';
136       
137        exchanger.HotSide.PressureDrop.Pdrop  = 0*'atm';
138        exchanger.ColdSide.PressureDrop.Pdrop = 0*'atm';
139       
140        streamhot.Outlet.F                                      = 1000    * 'kmol/h';
141        streamhot.Outlet.T                                      = 450     * 'K';
142        streamhot.Outlet.P                                      = 1.5     * 'atm';
143        streamhot.Outlet.z                                      = [1];
144
145        streamcold.Outlet.F                                     = 500   * 'kmol/h';
146        streamcold.Outlet.P                                     = 1     * 'atm';
147        streamcold.Outlet.T                                     = 315   * 'K';
148    streamcold.Outlet.z                                         = [1];
149       
150OPTIONS
151
152Dynamic = false;
153GuessFile = "GuessSimplified";
154
155end
156
157
158FlowSheet sample_Shell_and_tubes_LMTD_cost
159
160PARAMETERS
161
162                PP              as Plugin (Brief="Physical Properties",Type="PP",LiquidModel = "PR",VapourModel = "PR",
163                                                                Components      = ["water","n-butane", "benzene" ]);
164        NComp   as Integer;
165       
166DEVICES
167
168        exchanger        as Shell_and_tubes_LMTD_cost;
169        streamhot        as source;
170        streamcold   as source;
171        OutCold      as sink;
172        OutHot       as sink;
173
174SET
175
176        NComp                           = PP.NumberOfComponents;
177
178        exchanger.LMTDcorrection = "Bowmann";
179       
180        # costs
181        exchanger.Material = "Stainless steel 316";
182       
183        exchanger.Cost(1,:) = [8.202,0.01506,0.06811];
184        exchanger.Cost(2,:) = [-0.9003,0.0906,0];
185        exchanger.Cost(3,:) = [1.35,0,0];
186        exchanger.Cost(4,:) = [-0.7844,0.0830,0];
187        exchanger.Cost(5,:) = [0.8955,0.04981,0];
188        exchanger.Cost(6,:) = [1.2002,0.07140,0];
189        exchanger.Cost(7,:) = [1.4272,0.12088,0];
190        exchanger.Cost(8,:) = [0.8608,0.23296,0];
191
192
193CONNECTIONS
194
195        streamhot.Outlet        to exchanger.InletHot;
196        streamcold.Outlet       to exchanger.InletCold;
197
198        exchanger.OutletHot  to OutHot.Inlet;
199        exchanger.OutletCold to OutCold.Inlet;
200
201SPECIFY
202
203exchanger.Details.Ud                                            = 210*'W/(m^2*K)';
204exchanger.Details.Uc                                            = 210*'W/(m^2*K)';
205
206exchanger.HotSide.PressureDrop.Pdrop    = 0.1*'kPa';
207exchanger.ColdSide.PressureDrop.Pdrop           = 0.1*'kPa';
208
209streamhot.Outlet.F              = 36    * 'kmol/h';
210streamhot.Outlet.T              = 363.15   * 'K';
211streamhot.Outlet.P              = 120   * 'kPa';
212streamhot.Outlet.z              = [1,0,0];
213
214streamcold.Outlet.F             = 10 * 'kmol/h';
215streamcold.Outlet.P             = 120 * 'kPa';
216streamcold.Outlet.T             = 303.15 * 'K';
217streamcold.Outlet.z             = [0.1,0.7, 0.2];
218
219exchanger.Details.A     = 15*'m^2';
220       
221OPTIONS
222
223 Dynamic        = false;
224 GuessFile   = "GuessShellandTubes";
225
226end
227
228
229FlowSheet sample_Shell_and_tubes_NTU_cost
230
231PARAMETERS
232
233        PP              as Plugin (Brief="Physical Properties",Type="PP",LiquidModel = "PR",VapourModel = "PR",
234                                                                Components      = ["water","n-butane", "benzene" ]);
235        NComp   as Integer;
236       
237DEVICES
238
239        exchanger        as Shell_and_tubes_NTU_cost;
240        streamhot        as source;
241        streamcold  as source;
242        OutCold      as sink;
243        OutHot       as sink;
244
245SET
246
247        NComp                           = PP.NumberOfComponents;
248
249        # costs
250        exchanger.Material = "Stainless steel 316";
251       
252        exchanger.Cost(1,:) = [8.202,0.01506,0.06811];
253        exchanger.Cost(2,:) = [-0.9003,0.0906,0];
254        exchanger.Cost(3,:) = [1.35,0,0];
255        exchanger.Cost(4,:) = [-0.7844,0.0830,0];
256        exchanger.Cost(5,:) = [0.8955,0.04981,0];
257        exchanger.Cost(6,:) = [1.2002,0.07140,0];
258        exchanger.Cost(7,:) = [1.4272,0.12088,0];
259        exchanger.Cost(8,:) = [0.8608,0.23296,0];
260
261CONNECTIONS
262
263        streamhot.Outlet        to exchanger.InletHot;
264        streamcold.Outlet       to exchanger.InletCold;
265
266        exchanger.OutletHot  to OutHot.Inlet;
267        exchanger.OutletCold to OutCold.Inlet;
268
269SPECIFY
270
271exchanger.Details.Ud                                            = 210*'W/(m^2*K)';
272exchanger.Details.Uc                                            = 210*'W/(m^2*K)';
273
274exchanger.HotSide.PressureDrop.Pdrop    = 0.1*'kPa';
275exchanger.ColdSide.PressureDrop.Pdrop           = 0.1*'kPa';
276
277streamhot.Outlet.F              = 36    * 'kmol/h';
278streamhot.Outlet.T              = 363.15   * 'K';
279streamhot.Outlet.P              = 120   * 'kPa';
280streamhot.Outlet.z              = [1,0,0];
281
282streamcold.Outlet.F             = 10 * 'kmol/h';
283streamcold.Outlet.P             = 120 * 'kPa';
284streamcold.Outlet.T             = 303.15 * 'K';
285streamcold.Outlet.z             = [0.1,0.7, 0.2];
286
287exchanger.Details.A     = 15*'m^2';
288       
289OPTIONS
290
291 Dynamic        = false;
292
293end
Note: See TracBrowser for help on using the repository browser.