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

Last change on this file since 1 was 1, checked in by Rafael de Pelegrini Soares, 16 years ago

Initial import of the library

  • 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 stream_therm;
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        outputLevel = "medium";
54        time = [0:100:10000];
55end
56
57# exemplo baseado nos dados do artigo do Gani 1985.
58FlowSheet flashSteady_Test
59        PARAMETERS
60        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
61        NComp   as Integer;
62
63        VARIABLES
64        Q       as heat_rate (Brief="Heat supplied");
65       
66        SET
67        PP.Components = ["1,3-butadiene", "isobutene", "n-pentane", "1-pentene", "1-hexene", "benzene"];
68        PP.LiquidModel = "PR";
69        PP.VapourModel = "PR";
70        NComp = PP.NumberOfComponents;
71       
72        DEVICES
73        fl as flash_Steady;
74        s1 as stream_therm;
75       
76        CONNECTIONS
77        s1 to fl.Inlet;
78        Q to fl.Q;
79       
80       
81        SPECIFY
82        s1.F = 496.3 * "kmol/h";
83        s1.T = 338 * "K";
84        s1.P = 507.1 * "kPa";
85        s1.v = 0.1380;
86        s1.z = [0.2379,0.3082,0.09959,0.1373,0.08872,0.1283];
87       
88        fl.OutletL.P = 2.5 * "atm";
89
90        #Q = 0 * "kJ/h";
91        fl.OutletL.T = 315.06 * "K";
92       
93        OPTIONS
94        mode = "steady";
95        outputLevel = "medium";
96end
Note: See TracBrowser for help on using the repository browser.