source: trunk/sample/heat_exchangers/Sample_Mheatex.mso

Last change on this file was 985, checked in by Argimiro Resende Secchi, 7 years ago
File size: 5.5 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.F           = 500   * 'kmol/h';
68        streamcold1.P           = 1     * 'atm';
69        streamcold1.T           = 293   * 'K';
70        streamcold1.Composition = [1,0,0,0];
71
72        streamcold2.F           = 50   * 'kmol/h';
73        streamcold2.P           = 1     * 'atm';
74        streamcold2.T           = 315   * 'K';
75    streamcold2.Composition     = [0,0.1,0.65,0.25];
76
77#=====================================================================
78#       Hot Streams
79#=====================================================================
80        streamhot1.F            = 100* 'kmol/h';
81        streamhot1.P            = 1     * 'atm';
82        streamhot1.T            = 353   * 'K';
83    streamhot1.Composition                      = [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";
101end     
102
103FlowSheet Mheatex_counter
104       
105DEVICES
106
107        Mheater         as Mheatex;
108       
109        streamhot1              as source;
110        streamcold1     as source;
111        streamcold2     as source;
112       
113PARAMETERS
114
115        PP                      as Plugin       (Type="PP", LiquidModel= "RK", VapourModel      = "Ideal",
116                                                                                Components = ["water","methanol","benzene","toluene"]);
117        NComp           as Integer      (Brief="Number Components");
118       
119SET
120
121        NComp                           = PP.NumberOfComponents;
122       
123        Mheater.Nhot          = 1;
124    Mheater.Ncold         = 2;
125       
126        Mheater.FlowDirection  = "counter";
127       
128CONNECTIONS
129
130        streamcold1.Outlet      to Mheater.InletCold(1);
131        streamhot1.Outlet       to Mheater.InletHot(1);
132        streamcold2.Outlet      to Mheater.InletCold(2);
133       
134SPECIFY
135
136#=====================================================================
137#       Correction Factor
138#=====================================================================
139        Mheater.Method.Fc   = 1;
140
141#=====================================================================
142#       Cold Streams
143#=====================================================================
144        streamcold1.F           = 500   * 'kmol/h';
145        streamcold1.P           = 1     * 'atm';
146        streamcold1.T           = 293   * 'K';
147        streamcold1.Composition                 = [1,0,0,0];
148
149        streamcold2.F           = 50   * 'kmol/h';
150        streamcold2.P           = 1     * 'atm';
151        streamcold2.T           = 315   * 'K';
152    streamcold2.Composition             = [0,0.1,0.65,0.25];
153
154#=====================================================================
155#       Hot Streams
156#=====================================================================
157        streamhot1.F            = 100* 'kmol/h';
158        streamhot1.P            = 1     * 'atm';
159        streamhot1.T            = 353   * 'K';
160    streamhot1.Composition      = [1,0,0,0];
161
162#=====================================================================
163#       Temperature Outlet
164#===================================================================== 
165        Mheater.OutletHot(1).T  = 340*'K';
166        Mheater.OutletCold(2).T    = 330*'K';
167       
168#=====================================================================
169#       Pressure Outlet
170#=====================================================================
171        Mheater.OutletHot(1).P          = 1 * 'atm';
172        Mheater.OutletCold(1).P   = 1 * 'atm';
173        Mheater.OutletCold(2).P   = 1 * 'atm';
174
175OPTIONS
176
177        Dynamic     = false;
178        #GuessFile = "GuessMheatex";
179end
180       
Note: See TracBrowser for help on using the repository browser.