source: mso/sample/optimization/flash_opt.mso @ 70

Last change on this file since 70 was 33, checked in by Argimiro Resende Secchi, 17 years ago

clean up.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.1 KB
Line 
1using "stage_separators/flash";
2
3# exemplo baseado nos dados do artigo do Gani 1985.
4FlowSheet FlashSteadyTest
5        PARAMETERS
6        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
7        NComp   as Integer;
8
9        VARIABLES
10        Q       as heat_rate (Brief="Heat supplied");
11        leves as fraction;
12       
13        SET
14        PP.Components = ["1,3-butadiene", "isobutene", "n-pentane", "1-pentene", "1-hexene", "benzene"];
15        PP.LiquidModel = "PR";
16        PP.VapourModel = "PR";
17        NComp = PP.NumberOfComponents;
18       
19        DEVICES
20        fl as flash_Steady;
21        s1 as stream_therm;
22       
23        CONNECTIONS
24        s1 to fl.Inlet;
25        Q to fl.Q;
26       
27        EQUATIONS
28        leves = fl.OutletV.z(1)+fl.OutletV.z(2);
29       
30        SPECIFY
31        s1.F = 496.3 * "kmol/h";
32        s1.T = 338 * "K";
33        s1.P = 507.1 * "kPa";
34        s1.v = 0.1380;
35        s1.z = [0.2379,0.3082,0.09959,0.1373,0.08872,0.1283];
36       
37        fl.OutletL.P = 2.5 * "atm";
38
39        #Q = 0 * "kJ/h";
40        fl.OutletL.T = 315.06 * "K";
41       
42        OPTIONS
43        mode = "steady";
44end
45
46#*
47 * Maximização da pureza dos leves no topo do flash.
48 * Achou : 0.83 frente a 0.79 da simulação do FlowSheet
49 *#
50Optimization FlashOpt1 as FlashSteadyTest
51        MAXIMIZE
52        leves;
53       
54        FREE
55        fl.OutletL.T;
56       
57        EQUATIONS
58        fl.OutletL.T < 315 * "K";
59        fl.OutletL.T > 300 * "K";
60
61        OPTIONS
62        mode = "steady";
63end
64
Note: See TracBrowser for help on using the repository browser.