source: trunk/sample/heat_exchangers/NTU_Method.mso @ 149

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

updated samples and testing new heat exchangers models

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 4.1 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 model E_Shell_NTU_Det
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: NTU_Method.mso 149 2007-02-05 11:31:00Z bicca $
24*--------------------------------------------------------------------*#
25using "heat_exchangers/HeatExchangerDetailed.mso";
26
27 FlowSheet NTU_Method
28
29       
30DEVICES
31
32        exchanger       as E_Shell_NTU_Det;
33        streamhot       as streamTP;
34        streamcold      as streamTP;
35
36CONNECTIONS
37
38        streamhot                               to exchanger.Inlet.Hot;
39        streamcold                              to exchanger.Inlet.Cold;
40       
41PARAMETERS
42
43        PP                      as CalcObject   (File="vrpp");
44        NComp           as Integer;
45       
46SET
47#===============================================================
48#   Components - State Equation - Correlations
49#===============================================================
50       
51        PP.LiquidModel          = "PR";
52        PP.VapourModel          = "PR";
53        PP.Components           = ["water"];
54        NComp                           = PP.NumberOfComponents;
55        exchanger.HE.HotSide          = "Shell";
56       
57#       exchanger.HE.TurbulentFlow     = "Petukhov";
58        exchanger.HE.TurbulentFlow     = "SiederTate";
59       
60#=====================================================================
61#       Shell Geometrical Parameters
62#=====================================================================   
63exchanger.Tpass                 = 2;
64exchanger.Dishell       = 1.2   *"m";
65exchanger.Lcf           = 0.007 *"m";
66exchanger.Nss           = 3;
67
68
69#=====================================================================
70#       Tubes Geometrical Parameters
71#=====================================================================
72exchanger.Ntt           = 360;
73exchanger.Pattern       = 30;
74exchanger.pitch         = 0.03048       *"m";
75exchanger.Ltube         = 5.3  *"m";
76exchanger.Ditube        = 0.01397  *"m";
77exchanger.Dotube        = 0.025146      *"m";
78exchanger.Kwall                 = 0.5588  *"W/m/K";
79
80#=====================================================================
81#       Baffles Geometrical Parameters
82#=====================================================================
83exchanger.Lcd           = 5.5e-3        *"m";
84exchanger.Bc            = 25;
85exchanger.Ltd           = 5e-4          *"m";
86exchanger.Nb                    = 5;
87exchanger.Donozzle_Shell    = 0.15405   *"m";
88exchanger.Dinozzle_Shell    = 0.15405   *"m";
89exchanger.Honozzle_Shell    = 0.0225    *"m";
90exchanger.Hinozzle_Shell    = 0.0225    *"m";
91exchanger.Donozzle_Tube     = 0.15405   *"m";
92exchanger.Dinozzle_Tube         = 0.15405       *"m";
93
94SPECIFY
95#============================================
96#   Hot Streams
97#============================================
98        streamhot.F                                     = 100    * "kmol/h";
99        streamhot.T                                     = 419    * "K";
100        streamhot.P                                     = 1     * "atm";
101        streamhot.z                                     = [1];
102
103#============================================
104#   Cold Streams
105#============================================   
106        streamcold.F                                    = 50   * "kmol/h";
107        streamcold.P                                    = 1     * "atm";
108        streamcold.T                                    = 363   * "K";
109    streamcold.z                                        = [1];
110#=====================================================================
111#       Baffles Spacing
112#=====================================================================
113       
114        exchanger.Baffles.Ls            = 1     *"m";
115        exchanger.Baffles.Lsi           = 1     *"m";
116#=====================================================================
117#       Fouling
118#=====================================================================
119
120        exchanger.Resistances.Rfi = 0*"m^2*K/kW";
121        exchanger.Resistances.Rfo = 0*"m^2*K/kW";
122       
123
124OPTIONS
125#============================================
126#   Simulation Options
127#============================================
128 mode                   = "steady";
129
130end
Note: See TracBrowser for help on using the repository browser.