source: branches/gui/sample/costs/sample_HeatExchangerSimplified_cost.mso @ 802

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

more updates
File size: 6.9 KB
RevLine 
[565]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.A                                      = 139.35*'m^2';
70        exchanger.U                                      = 0.75*'W/(m^2*K)';
71       
72        exchanger.PdropHotSide  = 0*'atm';
73        exchanger.PdropColdSide = 0*'atm';
74       
[581]75        streamhot.F                                     = 1000    * 'kmol/h';
76        streamhot.T                                     = 450     * 'K';
77        streamhot.P                                     = 1.5     * 'atm';
78        streamhot.Composition                                   = [1];
[565]79
[581]80        streamcold.F                                    = 500   * 'kmol/h';
81        streamcold.P                                    = 1     * 'atm';
82        streamcold.T                                    = 315   * 'K';
83    streamcold.Composition                                      = [1];
[565]84       
85       
86OPTIONS
87
88 Dynamic = false;
89
90end
91
92
93FlowSheet sample_HeatExchanger_NTU_cost
94       
95DEVICES
96
97        exchanger       as HeatExchanger_NTU_cost;
98        streamhot       as source;
99        streamcold      as source;
100
101CONNECTIONS
102
103        streamhot.Outlet        to exchanger.InletHot;
104        streamcold.Outlet       to exchanger.InletCold;
105       
106PARAMETERS
107        PP                      as Plugin       (Type="PP",LiquidModel    = "RK",VapourModel   = "RK",
108                                                                                Components      = ["water"]);
109        NComp           as Integer;
110       
111SET
112
113
114        NComp                           = PP.NumberOfComponents;
115       
116        exchanger.ExchangerType       = "Counter Flow";
117
118        # costs
119        exchanger.Material = "Stainless steel 316";
120       
121        exchanger.Cost(1,:) = [8.202,0.01506,0.06811];
122        exchanger.Cost(2,:) = [-0.9003,0.0906,0];
123        exchanger.Cost(3,:) = [1.35,0,0];
124        exchanger.Cost(4,:) = [-0.7844,0.0830,0];
125        exchanger.Cost(5,:) = [0.8955,0.04981,0];
126        exchanger.Cost(6,:) = [1.2002,0.07140,0];
127        exchanger.Cost(7,:) = [1.4272,0.12088,0];
128        exchanger.Cost(8,:) = [0.8608,0.23296,0];
129
130SPECIFY
131
132        exchanger.A                                      = 65.031*'m^2';
133        exchanger.U                                      = 0.75*'W/(m^2*K)';
134       
135        exchanger.PdropHotSide  = 0*'atm';
136        exchanger.PdropColdSide = 0*'atm';
137       
[581]138        streamhot.F                                     = 1000    * 'kmol/h';
139        streamhot.T                                     = 450     * 'K';
140        streamhot.P                                     = 1.5     * 'atm';
141        streamhot.Composition                                   = [1];
[565]142
[581]143        streamcold.F                                    = 500   * 'kmol/h';
144        streamcold.P                                    = 1     * 'atm';
145        streamcold.T                                    = 315   * 'K';
146    streamcold.Composition                                      = [1];
[565]147       
148OPTIONS
149
150Dynamic = false;
151GuessFile = "GuessSimplified";
152
153end
154
155
156FlowSheet sample_Shell_and_tubes_LMTD_cost
157
158PARAMETERS
159
160                PP              as Plugin (Brief="Physical Properties",Type="PP",LiquidModel = "PR",VapourModel = "PR",
161                                                                Components      = ["water","n-butane", "benzene" ]);
162        NComp   as Integer;
163       
164DEVICES
165
166        exchanger        as Shell_and_tubes_LMTD_cost;
167        streamhot        as source;
168        streamcold   as source;
169        OutCold      as sink;
170        OutHot       as sink;
171
172SET
173
174        NComp                           = PP.NumberOfComponents;
175
176        exchanger.LMTDcorrection = "Bowmann";
177       
178        # costs
179        exchanger.Material = "Stainless steel 316";
180       
181        exchanger.Cost(1,:) = [8.202,0.01506,0.06811];
182        exchanger.Cost(2,:) = [-0.9003,0.0906,0];
183        exchanger.Cost(3,:) = [1.35,0,0];
184        exchanger.Cost(4,:) = [-0.7844,0.0830,0];
185        exchanger.Cost(5,:) = [0.8955,0.04981,0];
186        exchanger.Cost(6,:) = [1.2002,0.07140,0];
187        exchanger.Cost(7,:) = [1.4272,0.12088,0];
188        exchanger.Cost(8,:) = [0.8608,0.23296,0];
189
190
191CONNECTIONS
192
193        streamhot.Outlet        to exchanger.InletHot;
194        streamcold.Outlet       to exchanger.InletCold;
195
196        exchanger.OutletHot  to OutHot.Inlet;
197        exchanger.OutletCold to OutCold.Inlet;
198
199SPECIFY
200
201exchanger.U                                             = 210*'W/(m^2*K)';
202
203exchanger.PdropHotSide  = 0.1*'kPa';
204exchanger.PdropColdSide         = 0.1*'kPa';
205
[581]206streamhot.F             = 36    * 'kmol/h';
207streamhot.T             = 363.15   * 'K';
208streamhot.P             = 120   * 'kPa';
209streamhot.Composition           = [1,0,0];
[565]210
[581]211streamcold.F            = 10 * 'kmol/h';
212streamcold.P            = 120 * 'kPa';
213streamcold.T            = 303.15 * 'K';
214streamcold.Composition          = [0.1,0.7, 0.2];
[565]215
216exchanger.A     = 15*'m^2';
217       
218OPTIONS
219
220 Dynamic        = false;
221
222end
223
224
225FlowSheet sample_Shell_and_tubes_NTU_cost
226
227PARAMETERS
228
229        PP              as Plugin (Brief="Physical Properties",Type="PP",LiquidModel = "PR",VapourModel = "PR",
230                                                                Components      = ["water","n-butane", "benzene" ]);
231        NComp   as Integer;
232       
233DEVICES
234
235        exchanger        as Shell_and_tubes_NTU_cost;
236        streamhot        as source;
237        streamcold  as source;
238        OutCold      as sink;
239        OutHot       as sink;
240
241SET
242
243        NComp                           = PP.NumberOfComponents;
244
245        # costs
246        exchanger.Material = "Stainless steel 316";
247       
248        exchanger.Cost(1,:) = [8.202,0.01506,0.06811];
249        exchanger.Cost(2,:) = [-0.9003,0.0906,0];
250        exchanger.Cost(3,:) = [1.35,0,0];
251        exchanger.Cost(4,:) = [-0.7844,0.0830,0];
252        exchanger.Cost(5,:) = [0.8955,0.04981,0];
253        exchanger.Cost(6,:) = [1.2002,0.07140,0];
254        exchanger.Cost(7,:) = [1.4272,0.12088,0];
255        exchanger.Cost(8,:) = [0.8608,0.23296,0];
256
257CONNECTIONS
258
259        streamhot.Outlet        to exchanger.InletHot;
260        streamcold.Outlet       to exchanger.InletCold;
261
262        exchanger.OutletHot  to OutHot.Inlet;
263        exchanger.OutletCold to OutCold.Inlet;
264
265SPECIFY
266
267exchanger.U                                             = 210*'W/(m^2*K)';
268
269
270exchanger.PdropHotSide  = 0.1*'kPa';
271exchanger.PdropColdSide         = 0.1*'kPa';
272
[581]273streamhot.F             = 36    * 'kmol/h';
274streamhot.T             = 363.15   * 'K';
275streamhot.P             = 120   * 'kPa';
276streamhot.Composition           = [1,0,0];
[565]277
[581]278streamcold.F            = 10 * 'kmol/h';
279streamcold.P            = 120 * 'kPa';
280streamcold.T            = 303.15 * 'K';
281streamcold.Composition          = [0.1,0.7, 0.2];
[565]282
283exchanger.A     = 15*'m^2';
284       
285OPTIONS
286
287 Dynamic        = false;
288
289end
Note: See TracBrowser for help on using the repository browser.