source: mso/sample/stage_separators/sample_flash.mso @ 35

Last change on this file since 35 was 35, checked in by Argimiro Resende Secchi, 16 years ago

Using streamTP.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.8 KB
Line 
1using "stage_separators/flash";
2
3# exemplo baseado nos dados do artigo do Gani 1985.
4FlowSheet flash_Test
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       
12        SET
13        PP.Components = ["1,3-butadiene", "isobutene", "n-pentane", "1-pentene", "1-hexene", "benzene"];
14        PP.LiquidModel = "PR";
15        PP.VapourModel = "PR";
16        NComp = PP.NumberOfComponents;
17       
18        DEVICES
19        fl as flash;
20        s1 as streamTP;
21       
22        CONNECTIONS
23        s1 to fl.Inlet;
24        Q to fl.Q;
25       
26        SPECIFY
27        s1.F = 496.3 * "kmol/h";
28        s1.T = 338 * "K";
29        s1.P = 507.1 * "kPa";
30        #s1.v = 0.1380;
31        s1.z = [0.2379,0.3082,0.09959,0.1373,0.08872,0.1283];
32
33        fl.OutletV.F = 68.5 * "kmol/h";
34        fl.OutletL.F = 400*sqrt(fl.Level/"m") * "kmol/h";
35
36        Q = 1 * "kJ/h";
37       
38        SET
39        fl.V = 2000 * "m^3";
40        fl.Across = 1 * "m^2";
41       
42        INITIAL
43        fl.OutletL.T = 330 *"K";
44        fl.Level = 1 * "m";
45        fl.OutletL.z(1) = 0.1;
46        fl.OutletL.z(2) = 0.1;
47        fl.OutletL.z(3) = 0.1;
48        fl.OutletL.z(4) = 0.1;
49        fl.OutletL.z(5) = 0.1;
50       
51        OPTIONS
52        relativeAccuracy = 1e-6;
53        time = [0:100:10000];
54end
55
56# exemplo baseado nos dados do artigo do Gani 1985.
57FlowSheet flashSteady_Test
58        PARAMETERS
59        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
60        NComp   as Integer;
61
62        VARIABLES
63        Q       as heat_rate (Brief="Heat supplied");
64       
65        SET
66        PP.Components = ["1,3-butadiene", "isobutene", "n-pentane", "1-pentene", "1-hexene", "benzene"];
67        PP.LiquidModel = "PR";
68        PP.VapourModel = "PR";
69        NComp = PP.NumberOfComponents;
70       
71        DEVICES
72        fl as flash_Steady;
73        s1 as streamTP;
74       
75        CONNECTIONS
76        s1 to fl.Inlet;
77        Q to fl.Q;
78       
79       
80        SPECIFY
81        s1.F = 496.3 * "kmol/h";
82        s1.T = 338 * "K";
83        s1.P = 507.1 * "kPa";
84        #s1.v = 0.1380;
85        s1.z = [0.2379,0.3082,0.09959,0.1373,0.08872,0.1283];
86       
87        fl.OutletL.P = 2.5 * "atm";
88
89        #Q = 0 * "kJ/h";
90        fl.OutletL.T = 315.06 * "K";
91       
92        OPTIONS
93        mode = "steady";
94end
Note: See TracBrowser for help on using the repository browser.