source: mso/sample/heat_exchangers/Mheater_project.mso @ 100

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

updated

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 3.6 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 Cocurrent Multistream Heat Exchanger
17*
18*       cold1 in ------->########-------->cold1 out
19*       cold2 in -------># HEX  #-------->cold2 out
20*       Hot1 in  ------->#      #-------->Hot1 out
21*       Hot2 in  ------->########-------->Hot2 out
22*       
23*--------------------------------------------------------------------
24*
25* This sample file needs VRTherm (www.vrtech.com.br) to run.
26*
27*----------------------------------------------------------------------
28* Author: Gerson B. Bicca
29* $Id: Mheater_project.mso 100 2007-01-09 14:15:56Z bicca $
30*--------------------------------------------------------------------*#
31using "heat_exchangers/Mheatex";
32
33FlowSheet MHeater_Project
34       
35DEVICES
36
37        Mheater                 as Mheatex;
38        streamcold1     as stream_therm;
39        streamhot1              as stream_therm;
40        streamhot2              as stream_therm;
41        streamcold2             as stream_therm;
42       
43CONNECTIONS
44
45        streamcold1     to Mheater.Inlet.Cold(1);
46        streamhot1      to Mheater.Inlet.Hot(1);
47        streamhot2      to Mheater.Inlet.Hot(2);
48        streamcold2     to Mheater.Inlet.Cold(2);
49       
50PARAMETERS
51
52        PP                      as CalcObject   (File="vrpp");
53        NComp           as Integer              (Brief="Number Components");
54        Ncold           as Integer              (Brief="Number of Inlet Cold Streams");
55        Nhot            as Integer              (Brief="Number of Inlet Hot Streams");
56       
57SET
58
59        PP.LiquidModel  = "RK";
60        PP.VapourModel  = "RK";
61        PP.Components   = ["water","methanol","benzene"];
62        NComp                   = PP.NumberOfComponents;
63        Mheater.Nhot            = 2;
64    Mheater.Ncold               = 2;
65        Mheater.HE.FlowDirection      = "Counter";
66       
67SPECIFY
68#=====================================================================
69#       Cold Streams
70#=====================================================================
71        streamcold1.F           = 500   * "kmol/h";
72        streamcold1.P           = 1     * "atm";
73        streamcold1.T           = 278   * "K";
74        streamcold1.v           = 0;
75    streamcold1.z               = [1,0,0];
76       
77        streamcold2.F           = 50   * "kmol/h";
78        streamcold2.P           = 1     * "atm";
79        streamcold2.T           = 298   * "K";
80        streamcold2.v           = 0;
81    streamcold2.z               = [1,0,0];
82
83#=====================================================================
84#       Hot Streams 
85#=====================================================================
86        streamhot1.F            = 100* "kmol/h";
87        streamhot1.P            = 1     * "atm";
88        streamhot1.T            = 330   * "K";
89        streamhot1.v            = 0;
90    streamhot1.z                = [0,1,0];
91       
92        streamhot2.F            = 100* "kmol/h";
93        streamhot2.P            = 1     * "atm";
94        streamhot2.T            = 313   * "K";
95        streamhot2.v            = 0;
96    streamhot2.z                = [0,0,1];
97       
98#=====================================================================
99#       Temperature Outlet
100#===================================================================== 
101        Mheater.Outlet.Hot(1).T         = 308*"K";
102        Mheater.Outlet.Hot(2).T         = 303*"K";
103        Mheater.Outlet.Cold(2).T        = 299*"K";
104
105#=====================================================================
106#       Pressure Outlet
107#=====================================================================
108        Mheater.Outlet.Hot(1).P         = 1 * "atm";
109        Mheater.Outlet.Hot(2).P         = 1 * "atm";
110        Mheater.Outlet.Cold(1).P        = 1 * "atm";
111        Mheater.Outlet.Cold(2).P        = 1 * "atm";
112       
113OPTIONS
114 
115        mode                    = "steady";
116        relativeAccuracy        = 1e-8;
117       
118end
119
Note: See TracBrowser for help on using the repository browser.