source: branches/newlanguage/sample/heat_exchangers/sample_ShellandTubes.mso @ 188

Last change on this file since 188 was 186, checked in by gerson bicca, 17 years ago

modified LMTD correction factor option in shell and tubes sample
File size: 3.7 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 simplified 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_ShellandTubes.mso 100 2007-01-09 14:15:56Z bicca $
24*--------------------------------------------------------------------*#
25using "heat_exchangers/HeatExchangerSimplified";
26
27FlowSheet ShellandTubes_NTU
28
29PARAMETERS
30
31        PP              as Plugin (Brief="Physical Properties",File="vrpp");
32        NComp   as Integer;
33       
34DEVICES
35
36        exchanger        as Shell_and_Tubes_NTU;
37        streamhot        as source;
38        streamcold  as source;
39        OutCold      as sink;
40        OutHot       as sink;
41
42SET
43
44        PP.LiquidModel          = "PR";
45        PP.VapourModel          = "PR";
46        PP.Components   = ["water","n-butane", "benzene" ];
47        NComp                           = PP.NumberOfComponents;
48
49        exchanger.ShellType             = "Fshell";
50
51CONNECTIONS
52
53        streamhot.Outlet        to exchanger.InletHot;
54        streamcold.Outlet       to exchanger.InletCold;
55
56        exchanger.OutletHot  to OutHot.Inlet;
57        exchanger.OutletCold to OutCold.Inlet;
58
59SPECIFY
60
61exchanger.Details.Ud                                            = 210*'W/(m^2*K)';
62exchanger.Details.Uc                                            = 210*'W/(m^2*K)';
63
64exchanger.HotSide.PressureDrop.Pdrop    = 0.1*'kPa';
65exchanger.ColdSide.PressureDrop.Pdrop           = 0.1*'kPa';
66
67streamhot.Outlet.F              = 36    * 'kmol/h';
68streamhot.Outlet.T              = 363.15   * 'K';
69streamhot.Outlet.P              = 120   * 'kPa';
70streamhot.Outlet.z              = [1,0,0];
71
72streamcold.Outlet.F             = 10 * 'kmol/h';
73streamcold.Outlet.P             = 120 * 'kPa';
74streamcold.Outlet.T             = 303.15 * 'K';
75streamcold.Outlet.z             = [0.1,0.7, 0.2];
76
77exchanger.Details.A     = 15*'m^2';
78       
79OPTIONS
80
81 Dynamic        = false;
82
83end
84
85FlowSheet ShellandTubes_LMTD
86
87PARAMETERS
88
89        PP              as Plugin (Brief="Physical Properties",File="vrpp");
90        NComp   as Integer;
91       
92DEVICES
93
94        exchanger        as Shell_and_Tubes_LMTD;
95        streamhot        as source;
96        streamcold  as source;
97        OutCold      as sink;
98        OutHot       as sink;
99
100SET
101
102        PP.LiquidModel          = "PR";
103        PP.VapourModel          = "PR";
104        PP.Components   = ["water","n-butane", "benzene" ];
105        NComp                           = PP.NumberOfComponents;
106
107        exchanger.LMTDcorrection = "Bowmann";
108        exchanger.ShellType             = "Fshell";
109       
110
111CONNECTIONS
112
113        streamhot.Outlet        to exchanger.InletHot;
114        streamcold.Outlet       to exchanger.InletCold;
115
116        exchanger.OutletHot  to OutHot.Inlet;
117        exchanger.OutletCold to OutCold.Inlet;
118
119SPECIFY
120
121exchanger.Details.Ud                                            = 210*'W/(m^2*K)';
122exchanger.Details.Uc                                            = 210*'W/(m^2*K)';
123
124exchanger.HotSide.PressureDrop.Pdrop    = 0.1*'kPa';
125exchanger.ColdSide.PressureDrop.Pdrop           = 0.1*'kPa';
126
127streamhot.Outlet.F              = 36    * 'kmol/h';
128streamhot.Outlet.T              = 363.15   * 'K';
129streamhot.Outlet.P              = 120   * 'kPa';
130streamhot.Outlet.z              = [1,0,0];
131
132streamcold.Outlet.F             = 10 * 'kmol/h';
133streamcold.Outlet.P             = 120 * 'kPa';
134streamcold.Outlet.T             = 303.15 * 'K';
135streamcold.Outlet.z             = [0.1,0.7, 0.2];
136
137exchanger.Details.A     = 15*'m^2';
138       
139OPTIONS
140
141 Dynamic        = false;
142 GuessFile   = "GuessShellandTubes";
143
144end
Note: See TracBrowser for help on using the repository browser.