source: mso/sample/stage_separators/sample_batch_dist.mso @ 33

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

clean up.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.0 KB
Line 
1using "stage_separators/batch_dist";
2
3
4FlowSheet TesteBatch
5       
6        PARAMETERS
7        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
8        NComp   as Integer;
9
10        SET
11        PP.Components = [ "isobutane", "n-pentane" ];
12        PP.LiquidModel = "PR";
13        PP.VapourModel = "PR";
14        NComp = PP.NumberOfComponents;
15       
16        DEVICES
17        batch   as Diff_Dist;
18        reflux  as stream_therm;
19        feed    as stream_therm;
20       
21        CONNECTIONS
22        reflux to batch.InletL;
23        feed to batch.Inlet;
24
25        EQUATIONS
26        if batch.Level > 1E-3 then
27                batch.OutletV.F = 150 * "kmol/h";
28                batch.Q = 3.7743e6 * "kJ/h";
29        else
30                batch.OutletV.F = 0 * "kmol/h";
31                batch.Q = 0 * "kJ/h";
32        end
33       
34        SPECIFY
35        reflux.F = 0 * "kmol/h";
36        reflux.T = 328 * "K";
37        reflux.P = 180 * "kPa";
38        reflux.z = [0.5, 0.5];
39        reflux.v = 0;
40       
41        feed.F = 0 * "kmol/h";
42        feed.T = 328 * "K";
43        feed.P = 180 * "kPa";
44        feed.z = [0.5, 0.5];
45        feed.v = 0;
46       
47        SET
48        batch.V = 3 * "m^3";
49        batch.Across = 1 * "m^2";
50       
51        INITIAL
52        batch.T = 298 *"K";
53        batch.Level = 2.5 * "m";
54        batch.x(2) = 0.2;
55       
56        OPTIONS
57        relativeAccuracy = 1e-5;
58       
59        time = [0:0.1:20]*"min";
60end
Note: See TracBrowser for help on using the repository browser.