source: branches/newlanguage/sample/heat_exchangers/Sample_DoublePipe.mso @ 139

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

updated models for the new language

  • Property svn:keywords set to Id
File size: 3.0 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 139 2007-01-29 15:50:41Z bicca $
24*--------------------------------------------------------------------*#
25
26using "heat_exchangers/DoublePipe.mso";
27
28FlowSheet Double_Pipe
29
30PARAMETERS
31
32        PP                      as Plugin (File="vrpp");
33        NComp           as Integer;
34       
35DEVICES
36
37        exchanger       as DoublePipe_LMTD;
38        streamhot       as source;
39        streamcold      as source;
40
41CONNECTIONS
42
43        streamhot.Outlet        to exchanger.Inlet.Hot;
44        streamcold.Outlet       to exchanger.Inlet.Cold;
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.Outlet.F = 10                         * "kmol/h";
76        streamhot.Outlet.T = (68+273.15)   * "K";
77        streamhot.Outlet.P = 5.4                        * "bar";
78        streamhot.Outlet.z = [1,0];
79       
80#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
81#       Cold Stream
82#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
83        streamcold.Outlet.F = 5                         * "kmol/h";
84        streamcold.Outlet.P = 5.1               * "bar";
85        streamcold.Outlet.T = (23+273.15)       * "K";
86    streamcold.Outlet.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
95Dynamic = false;
96
97end
98
Note: See TracBrowser for help on using the repository browser.