source: trunk/sample/heat_exchangers/Sample_Mheatex.mso @ 384

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

updated heat exchangers samples and models
File size: 5.4 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 with Multistream Heat Exchanger - counter and cocurrent flow
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: sample_Mheatex.mso 135 2007-01-25 20:00:26Z bicca $
24*--------------------------------------------------------------------*#
25using "heat_exchangers/Mheatex";
26
27FlowSheet Mheatex_cocurrent
28       
29DEVICES
30
31        Mheater         as Mheatex;
32
33        streamhot1              as source;
34        streamcold1     as source;
35        streamcold2     as source;
36       
37PARAMETERS
38
39        PP                      as Plugin       (Type="PP", LiquidModel= "PR", VapourModel      = "PR",
40                                                                                Components = ["water","methanol","benzene","toluene"]);
41        NComp           as Integer      (Brief="Number Components");
42       
43SET
44
45        NComp   = PP.NumberOfComponents;
46       
47        Mheater.Nhot          = 1;
48    Mheater.Ncold         = 2;
49       
50        Mheater.FlowDirection  = "cocurrent";
51       
52CONNECTIONS
53
54        streamcold1.Outlet      to Mheater.InletCold(1);
55        streamhot1.Outlet       to Mheater.InletHot(1);
56        streamcold2.Outlet      to Mheater.InletCold(2);
57       
58SPECIFY
59#=====================================================================
60#       Correction Factor
61#=====================================================================
62        Mheater.Method.Fc   = 1;
63
64#=====================================================================
65#       Cold Streams
66#=====================================================================
67        streamcold1.Outlet.F            = 500   * 'kmol/h';
68        streamcold1.Outlet.P            = 1     * 'atm';
69        streamcold1.Outlet.T            = 293   * 'K';
70        streamcold1.Outlet.z            = [1,0,0,0];
71
72        streamcold2.Outlet.F            = 50   * 'kmol/h';
73        streamcold2.Outlet.P            = 1     * 'atm';
74        streamcold2.Outlet.T            = 315   * 'K';
75    streamcold2.Outlet.z                = [0,0.1,0.65,0.25];
76
77#=====================================================================
78#       Hot Streams
79#=====================================================================
80        streamhot1.Outlet.F             = 100* 'kmol/h';
81        streamhot1.Outlet.P             = 1     * 'atm';
82        streamhot1.Outlet.T             = 353   * 'K';
83    streamhot1.Outlet.z                         = [1,0,0,0];
84
85#=====================================================================
86#       Temperature Outlet
87#===================================================================== 
88        Mheater.OutletHot(1).T          = 340*'K';
89        Mheater.OutletCold(2).T    = 330*'K';
90       
91#=====================================================================
92#       Pressure Outlet
93#=====================================================================
94        Mheater.OutletHot(1).P          = 1 * 'atm';
95        Mheater.OutletCold(1).P   = 1 * 'atm';
96        Mheater.OutletCold(2).P   = 1 * 'atm';
97       
98OPTIONS
99        Dynamic     = false;
100        GuessFile    = "GuessMheatex";
101
102end     
103
104FlowSheet Mheatex_counter
105       
106DEVICES
107
108        Mheater         as Mheatex;
109       
110        streamhot1              as source;
111        streamcold1     as source;
112        streamcold2     as source;
113       
114PARAMETERS
115
116        PP                      as Plugin       (Type="PP", LiquidModel= "PR", VapourModel      = "PR",
117                                                                                Components = ["water","methanol","benzene","toluene"]);
118        NComp           as Integer      (Brief="Number Components");
119       
120SET
121
122        NComp                           = PP.NumberOfComponents;
123       
124        Mheater.Nhot          = 1;
125    Mheater.Ncold         = 2;
126       
127        Mheater.FlowDirection  = "counter";
128       
129CONNECTIONS
130
131        streamcold1.Outlet      to Mheater.InletCold(1);
132        streamhot1.Outlet       to Mheater.InletHot(1);
133        streamcold2.Outlet      to Mheater.InletCold(2);
134       
135SPECIFY
136
137#=====================================================================
138#       Correction Factor
139#=====================================================================
140        Mheater.Method.Fc   = 1;
141
142#=====================================================================
143#       Cold Streams
144#=====================================================================
145        streamcold1.Outlet.F            = 500   * 'kmol/h';
146        streamcold1.Outlet.P            = 1     * 'atm';
147        streamcold1.Outlet.T            = 293   * 'K';
148        streamcold1.Outlet.z            = [1,0,0,0];
149
150        streamcold2.Outlet.F            = 50   * 'kmol/h';
151        streamcold2.Outlet.P            = 1     * 'atm';
152        streamcold2.Outlet.T            = 315   * 'K';
153    streamcold2.Outlet.z                = [0,0.1,0.65,0.25];
154
155#=====================================================================
156#       Hot Streams
157#=====================================================================
158        streamhot1.Outlet.F             = 100* 'kmol/h';
159        streamhot1.Outlet.P             = 1     * 'atm';
160        streamhot1.Outlet.T             = 353   * 'K';
161    streamhot1.Outlet.z                         = [1,0,0,0];
162
163#=====================================================================
164#       Temperature Outlet
165#===================================================================== 
166        Mheater.OutletHot(1).T  = 340*'K';
167        Mheater.OutletCold(2).T    = 330*'K';
168       
169#=====================================================================
170#       Pressure Outlet
171#=====================================================================
172        Mheater.OutletHot(1).P          = 1 * 'atm';
173        Mheater.OutletCold(1).P   = 1 * 'atm';
174        Mheater.OutletCold(2).P   = 1 * 'atm';
175
176OPTIONS
177
178        Dynamic     = false;
179        GuessFile    = "GuessMheatex";
180       
181end
182       
Note: See TracBrowser for help on using the repository browser.