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

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

fixed problem with UOM
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.LMTDcorrection = "Fakeri";
109        exchanger.ShellType             = "Fshell";
110       
111
112CONNECTIONS
113
114        streamhot.Outlet        to exchanger.InletHot;
115        streamcold.Outlet       to exchanger.InletCold;
116
117        exchanger.OutletHot  to OutHot.Inlet;
118        exchanger.OutletCold to OutCold.Inlet;
119
120SPECIFY
121
122exchanger.Details.Ud                                            = 210*'W/(m^2*K)';
123exchanger.Details.Uc                                            = 210*'W/(m^2*K)';
124
125exchanger.HotSide.PressureDrop.Pdrop    = 0.1*'kPa';
126exchanger.ColdSide.PressureDrop.Pdrop           = 0.1*'kPa';
127
128streamhot.Outlet.F              = 36    * 'kmol/h';
129streamhot.Outlet.T              = 363.15   * 'K';
130streamhot.Outlet.P              = 120   * 'kPa';
131streamhot.Outlet.z              = [1,0,0];
132
133streamcold.Outlet.F             = 10 * 'kmol/h';
134streamcold.Outlet.P             = 120 * 'kPa';
135streamcold.Outlet.T             = 303.15 * 'K';
136streamcold.Outlet.z             = [0.1,0.7, 0.2];
137
138exchanger.Details.A     = 15*'m^2';
139       
140OPTIONS
141
142 Dynamic        = false;
143 GuessFile   = "GuessShellandTubes";
144
145end
Note: See TracBrowser for help on using the repository browser.