[261] | 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"; |
---|
[386] | 51 | |
---|
[261] | 52 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 53 | # PHE Geometrical Parameters and Alocation |
---|
| 54 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
[387] | 55 | exchanger.ChevronAngle = "A60_Deg"; |
---|
[523] | 56 | exchanger.Geometry.Nplates = 129; |
---|
| 57 | exchanger.Geometry.NpassHot = 4; |
---|
| 58 | exchanger.Geometry.NpassCold = 2; |
---|
| 59 | exchanger.Geometry.Dports = 15*'cm'; |
---|
| 60 | exchanger.Geometry.PhiFactor = 1.17; |
---|
| 61 | exchanger.Geometry.Lv = 155*'cm'; |
---|
| 62 | exchanger.Geometry.Lw = 70*'cm'; |
---|
| 63 | exchanger.Geometry.pitch = 3.7*'mm'; |
---|
| 64 | exchanger.Geometry.pt = 0.70*'mm'; |
---|
| 65 | exchanger.Geometry.Kwall = 17 *'W/m/K'; |
---|
[261] | 66 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 67 | # Fouling |
---|
| 68 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
[523] | 69 | exchanger.Geometry.Rfc= 3.4e-5*'m^2*K/W'; |
---|
| 70 | exchanger.Geometry.Rfh = 9e-6*'m^2*K/W'; |
---|
[261] | 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]; |
---|
[384] | 88 | |
---|
[261] | 89 | OPTIONS |
---|
| 90 | |
---|
| 91 | Dynamic = false; |
---|
| 92 | GuessFile = "GuessPHE"; |
---|
| 93 | |
---|
| 94 | end |
---|
| 95 | |
---|