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 | |
---|
26 | using "heat_exchangers/PHE"; |
---|
27 | |
---|
28 | FlowSheet Plate_and_Frame |
---|
29 | |
---|
30 | PARAMETERS |
---|
31 | PP as Plugin (Type ="PP", LiquidModel = "PR", VapourModel = "PR", |
---|
32 | Components = ["water"]); |
---|
33 | NComp as Integer; |
---|
34 | |
---|
35 | DEVICES |
---|
36 | |
---|
37 | exchanger as PHE; |
---|
38 | InletHot as source; |
---|
39 | InletCold as source; |
---|
40 | |
---|
41 | CONNECTIONS |
---|
42 | |
---|
43 | InletHot.Outlet to exchanger.InletHot; |
---|
44 | InletCold.Outlet to exchanger.InletCold; |
---|
45 | |
---|
46 | SET |
---|
47 | |
---|
48 | NComp = PP.NumberOfComponents; |
---|
49 | |
---|
50 | exchanger.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 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
69 | exchanger.Rfc= 3.4e-5*'m^2*K/W'; |
---|
70 | exchanger.Rfh = 9e-6*'m^2*K/W'; |
---|
71 | |
---|
72 | SPECIFY |
---|
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 | |
---|
89 | OPTIONS |
---|
90 | |
---|
91 | Dynamic = false; |
---|
92 | GuessFile = "GuessPHE"; |
---|
93 | |
---|
94 | end |
---|
95 | |
---|