source: trunk/sample/heat_exchangers/Sample_DoublePipe_series.mso

Last change on this file was 985, checked in by Argimiro Resende Secchi, 6 years ago
File size: 5.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 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_Series.mso Z bicca $
24*--------------------------------------------------------------------*#
25
26using "heat_exchangers/DoublePipe.mso";
27
28FlowSheet SeriesOfPipes
29
30PARAMETERS
31        PP                      as Plugin (Type ="PP", LiquidModel = "PR", VapourModel = "PR",
32                                                                        Components = ["n-hexane","water"]);
33        NComp           as Integer;
34       
35DEVICES
36
37        exchanger1      as DoublePipe_NTU;
38        exchanger2      as DoublePipe_LMTD;
39        exchanger3      as DoublePipe_NTU;
40       
41        InletHot        as simple_source;
42        InletCold       as simple_source;
43        OutletHot       as simple_sink;
44        OutletCold      as simple_sink;
45       
46       
47CONNECTIONS
48
49        InletHot.Outlet                                 to exchanger1.InletOuter;
50        InletCold.Outlet                                        to exchanger3.InletInner;
51       
52        exchanger3.OutletInner  to exchanger2.InletInner;
53        exchanger1.OutletOuter  to exchanger2.InletOuter;
54       
55        exchanger2.OutletInner  to exchanger1.InletInner;
56        exchanger2.OutletOuter  to exchanger3.InletOuter;
57       
58        exchanger1.OutletInner  to OutletCold.Inlet;
59        exchanger3.OutletOuter  to OutletHot.Inlet;
60       
61SET
62
63NComp   = PP.NumberOfComponents;
64
65#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
66#   Options for convergence
67#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
68
69exchanger1.CalculationApproach = "Simplified";
70exchanger1.Qestimated                   = 50*'kW';
71exchanger1.Eftestimated                 = 0.64;
72
73exchanger2.CalculationApproach = "Simplified";
74exchanger2.Qestimated                   = 40*'kW';
75
76exchanger3.CalculationApproach = "Simplified";
77exchanger3.Qestimated                    = 30*'kW';
78exchanger3.Eftestimated                  = 0.4;
79
80#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
81#   Options
82#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
83
84exchanger1.FlowDirection                                                        = "counter";
85exchanger1.InnerTurbulentCorrelation    = "SiederTate";
86exchanger1.OuterTurbulentCorrelation    = "SiederTate";
87exchanger1.OuterLaminarCorrelation      = "Schlunder";
88
89exchanger2.FlowDirection                                                        = "counter";
90exchanger2.InnerTurbulentCorrelation    = "SiederTate";
91exchanger2.OuterTurbulentCorrelation    = "SiederTate";
92exchanger2.OuterLaminarCorrelation      = "Schlunder";
93
94exchanger3.FlowDirection                                                        = "counter";
95exchanger3.InnerTurbulentCorrelation    = "SiederTate";
96exchanger3.OuterTurbulentCorrelation    = "SiederTate";
97exchanger3.OuterLaminarCorrelation      = "Schlunder";
98       
99#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
100# Double Pipe Geometrical Parameters and Alocation
101#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
102
103exchanger1.Geometry.DoInner     =       42.16*'mm';
104exchanger1.Geometry.DiInner             =       35.05*'mm';
105exchanger1.Geometry.DiOuter             =       52.50*'mm';
106exchanger1.Geometry.Kwall               = 0.057 *'kW/m/K';
107exchanger1.Geometry.Lpipe                       =       9*'m';
108
109exchanger2.Geometry.DoInner     =       42.16*'mm';
110exchanger2.Geometry.DiInner             =       35.05*'mm';
111exchanger2.Geometry.DiOuter             =       52.50*'mm';
112exchanger2.Geometry.Kwall               = 0.057 *'kW/m/K';
113exchanger2.Geometry.Lpipe                       =       9*'m';
114
115exchanger3.Geometry.DoInner     =       42.16*'mm';
116exchanger3.Geometry.DiInner             =       35.05*'mm';
117exchanger3.Geometry.DiOuter             =       52.50*'mm';
118exchanger3.Geometry.Kwall               = 0.057 *'kW/m/K';
119exchanger3.Geometry.Lpipe                       = 9*'m';
120
121#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
122#       Fouling
123#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
124exchanger1.Geometry.Rfi = 0.00217*'m^2*K/kW';
125exchanger1.Geometry.Rfo = 0.0008*'m^2*K/kW';
126
127exchanger2.Geometry.Rfi = 0.00217*'m^2*K/kW';
128exchanger2.Geometry.Rfo = 0.0008*'m^2*K/kW';
129
130exchanger3.Geometry.Rfi = 0.00217*'m^2*K/kW';
131exchanger3.Geometry.Rfo = 0.0008*'m^2*K/kW';
132
133SPECIFY
134#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
135#               Hot Stream
136#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
137        InletHot.F                      = 51                    * 'kmol/h';
138        InletHot.T      = (90+273.15)   * 'K';
139        InletHot.P      = 2                     * 'atm';
140        InletHot.MolarComposition       = [1,0];
141       
142#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
143#       Cold Stream
144#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
145        InletCold.F                     = 251                           * 'kmol/h';
146        InletCold.P = 2                 * 'atm';
147        InletCold.T = (33+273.15)       * 'K';
148    InletCold.MolarComposition = [0,1];
149       
150OPTIONS
151
152Dynamic  = false;
153GuessFile = "SeriesOfPipes";
154
155end
Note: See TracBrowser for help on using the repository browser.