source: trunk/sample/heat_exchangers/Sample_PHE.mso @ 494

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

added PHE diagram and updated Heat Exchangers models, icon

File size: 2.8 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 Plate Heat Exchanger
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm Demo (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: Sample_PHE.mso 157 2007-02-07 13:44:17Z rafael $
24*--------------------------------------------------------------------*#
25
26using "heat_exchangers/PHE";
27
28FlowSheet Plate_and_Frame
29
30PARAMETERS
31        PP                      as Plugin (Type ="PP", LiquidModel = "PR", VapourModel = "PR",
32                                                                        Components = ["water"]);
33        NComp           as Integer;
34       
35DEVICES
36
37        exchanger as PHE;
38        InletHot        as source;
39        InletCold   as source;
40
41CONNECTIONS
42
43        InletHot.Outlet                 to exchanger.InletHot;
44        InletCold.Outlet                        to exchanger.InletCold;
45
46SET
47
48NComp   = PP.NumberOfComponents;
49
50exchanger.SideOne = "cold";
51
52#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
53# PHE Geometrical Parameters and Alocation
54#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
55        exchanger.ChevronAngle  =       "A60_Deg";
56        exchanger.Nplates                               = 129;
57        exchanger.NpassHot                      = 4;
58        exchanger.NpassCold                     = 2;
59        exchanger.Dports                                = 15*'cm';
60        exchanger.PhiFactor                     = 1.17;
61        exchanger.Lv                                                    = 155*'cm';
62        exchanger.Lw                                            = 70*'cm';
63        exchanger.pitch                                 = 3.7*'mm';
64        exchanger.pt                                                    = 0.70*'mm';
65        exchanger.Kwall                                 = 17 *'W/m/K';
66#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
67#       Fouling
68#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
69exchanger.Rfc= 3.4e-5*'m^2*K/W';
70exchanger.Rfh = 9e-6*'m^2*K/W';
71
72SPECIFY
73#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
74#               Hot Stream
75#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
76        InletHot.Fw                     = 21                    * 'kg/s';
77        InletHot.Outlet.T       = (87+273.15)   * 'K';
78        InletHot.Outlet.P       = 2                     * 'atm';
79        InletHot.Outlet.z       = [1];
80       
81#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
82#       Cold Stream
83#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
84        InletCold.Fw                            = 62.5                          * 'kg/s';
85        InletCold.Outlet.P              = 2                     * 'atm';
86        InletCold.Outlet.T              = (20+273.15)   * 'K';
87    InletCold.Outlet.z          = [1];
88
89OPTIONS
90
91Dynamic  = false;
92GuessFile = "GuessPHE";
93
94end
95
Note: See TracBrowser for help on using the repository browser.