source: branches/newlanguage/sample/heat_exchangers/Sample_DoublePipe.mso @ 165

Last change on this file since 165 was 165, checked in by gerson bicca, 16 years ago

added heat exchangers samples and fixed path

File size: 5.4 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 a Double Pipe Heat Exchanger - NTU and LMTD Method
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: Sample_DoublePipe.mso 157 2007-02-07 13:44:17Z rafael $
24*--------------------------------------------------------------------*#
25
26using "heat_exchangers/DoublePipe.mso";
27
28FlowSheet LMTD_Method
29
30PARAMETERS
31        PP                      as Plugin (File="vrpp");
32        NComp           as Integer;
33       
34DEVICES
35
36        exchanger       as DoublePipe_LMTD;
37        InletHot        as source;
38        InletCold       as source;
39        OutletHot       as sink;
40        OutletCold      as sink;
41       
42       
43CONNECTIONS
44
45        InletHot.Outlet                 to exchanger.InletInner;
46        InletCold.Outlet                        to exchanger.InletOuter;
47        exchanger.OutletOuter   to OutletCold.Inlet;
48        exchanger.OutletInner   to OutletHot.Inlet;
49       
50SET
51
52PP.LiquidModel          = "PR";
53PP.VapourModel          = "PR";
54PP.Components           = ["n-hexane","water"];
55NComp                               = PP.NumberOfComponents;
56
57#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
58#   Options
59#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
60
61exchanger.FlowDirection                                         = "counter";
62exchanger.InnerTurbulentCorrelation     = "SiederTate";
63
64exchanger.OuterTurbulentCorrelation     = "SiederTate";
65exchanger.OuterLaminarCorrelation       = "Schlunder";
66       
67#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
68# Double Pipe Geometrical Parameters and Alocation
69#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
70
71exchanger.DoInner               =       0.04826*'m';
72exchanger.DiInner               =       0.04089*'m';
73exchanger.DiOuter               =       0.07793*'m';
74exchanger.Kwall                 =       0.057 *'kW/m/K';
75exchanger.Lpipe                 =       3*'m';
76
77#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
78#       Fouling
79#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
80exchanger.Rfi = 0.0018*'m^2*K/kW';
81exchanger.Rfo = 0.0021*'m^2*K/kW';
82
83SPECIFY
84#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
85#               Hot Stream
86#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
87        InletHot.Outlet.F = 10                          * 'kmol/h';
88        InletHot.Outlet.T = (68+273.15)   * 'K';
89        InletHot.Outlet.P = 5.4                         * 'bar';
90        InletHot.Outlet.z = [1,0];
91       
92#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
93#       Cold Stream
94#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
95        InletCold.Outlet.F = 5                          * 'kmol/h';
96        InletCold.Outlet.P = 5.1                * 'bar';
97        InletCold.Outlet.T = (23+273.15)        * 'K';
98    InletCold.Outlet.z = [0,1];
99       
100OPTIONS
101
102Dynamic  = false;
103GuessFile = "GuessPipe";
104
105end
106
107FlowSheet NTU_Method
108
109PARAMETERS
110
111        PP                      as Plugin (File="vrpp");
112        NComp           as Integer;
113       
114DEVICES
115
116        exchanger       as DoublePipe_NTU;
117        InletHot        as source;
118        InletCold       as source;
119        OutletHot       as sink;
120        OutletCold      as sink;
121       
122       
123CONNECTIONS
124
125        InletHot.Outlet                 to exchanger.InletInner;
126        InletCold.Outlet                        to exchanger.InletOuter;
127        exchanger.OutletOuter   to OutletCold.Inlet;
128        exchanger.OutletInner   to OutletHot.Inlet;
129       
130SET
131
132PP.LiquidModel          = "PR";
133PP.VapourModel          = "PR";
134PP.Components           = ["n-hexane","water"];
135NComp                               = PP.NumberOfComponents;
136
137#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
138#   Options
139#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
140
141exchanger.FlowDirection  = "counter";
142exchanger.InnerTurbulentCorrelation  = "SiederTate";
143
144exchanger.OuterTurbulentCorrelation  = "SiederTate";
145exchanger.OuterLaminarCorrelation     = "Schlunder";
146       
147#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
148# Double Pipe Geometrical Parameters and Alocation
149#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
150
151exchanger.DoInner               =       0.04826*'m';
152exchanger.DiInner               =       0.04089*'m';
153exchanger.DiOuter               =       0.07793*'m';
154exchanger.Kwall                 =       0.057 *'kW/m/K';
155exchanger.Lpipe                 =       3*'m';
156
157#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
158#       Fouling
159#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
160exchanger.Rfi = 0.0018*'m^2*K/kW';
161exchanger.Rfo = 0.0021*'m^2*K/kW';
162
163SPECIFY
164#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
165#               Hot Stream
166#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
167        InletHot.Outlet.F = 10                          * 'kmol/h';
168        InletHot.Outlet.T = (68+273.15)   * 'K';
169        InletHot.Outlet.P = 5.4                         * 'bar';
170        InletHot.Outlet.z = [1,0];
171       
172#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
173#       Cold Stream
174#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
175        InletCold.Outlet.F = 5                          * 'kmol/h';
176        InletCold.Outlet.P = 5.1                * 'bar';
177        InletCold.Outlet.T = (23+273.15)        * 'K';
178    InletCold.Outlet.z = [0,1];
179
180OPTIONS
181
182Dynamic = false;
183
184GuessFile = "GuessPipe";
185
186end
Note: See TracBrowser for help on using the repository browser.