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

Last change on this file since 69 was 37, checked in by Paula Bettio Staudt, 16 years ago

Fixed warning and error messages

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