source: mso/sample/heat_exchangers/Sample_DoublePipe.mso @ 110

Last change on this file since 110 was 110, checked in by gerson bicca, 15 years ago

modified some equations

  • Property svn:keywords set to Id
File size: 2.9 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
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.mso 110 2007-01-12 18:44:02Z bicca $
24*--------------------------------------------------------------------*#
25
26using "heat_exchangers/DoublePipe.mso";
27
28FlowSheet Double_Pipe
29       
30DEVICES
31
32        exchanger       as DoublePipe_LMTD;
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
48PP.LiquidModel          = "PR";
49PP.VapourModel          = "PR";
50PP.Components           = ["n-hexane","water"];
51NComp                           = PP.NumberOfComponents;
52
53#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
54#   Options
55#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
56
57exchanger.HE.FlowDirection  = "Counter";
58exchanger.HE.TurbulentFlow  = "SiederTate";
59       
60#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
61# Double Pipe Geometrical Parameters and Alocation
62#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
63
64exchanger.HE.HotSide    =       "Inner";
65exchanger.DoInner               =       0.04826*"m";
66exchanger.DiInner               =       0.04089*"m";
67exchanger.DiOuter               =       0.07793*"m";
68exchanger.Kwall                 =       0.057 *"kW/m/K";
69exchanger.Lpipe                 =       3*"m";
70
71SPECIFY
72#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
73#               Hot Stream
74#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
75        streamhot.F = 10                        * "kmol/h";
76        streamhot.T = (68+273.15)   * "K";
77        streamhot.P = 5.4                       * "bar";
78        streamhot.z = [1,0];
79       
80#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
81#       Cold Stream
82#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
83        streamcold.F = 5                        * "kmol/h";
84        streamcold.P = 5.1              * "bar";
85        streamcold.T = (23+273.15)      * "K";
86    streamcold.z = [0,1];
87#=====================================================================
88#       Fouling
89#=====================================================================
90exchanger.Resistances.Rfi = 0.0018*"m^2*K/kW";
91exchanger.Resistances.Rfo = 0.0021*"m^2*K/kW";
92
93OPTIONS
94
95mode = "steady";
96
97end
98
Note: See TracBrowser for help on using the repository browser.