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

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

Initial import of the library

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1005 bytes
RevLine 
[1]1using "stage_separators/reboiler";
2
3FlowSheet reboiler_Test
4        PARAMETERS
5        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
6        NComp   as Integer;
7
8        VARIABLES
9        Q       as heat_rate (Brief="Heat supplied");
10
11        SET
12        PP.Components = [ "isobutane", "n-pentane"];
13        PP.LiquidModel = "PR";
14        PP.VapourModel = "PR";
15        NComp = PP.NumberOfComponents;
16       
17        DEVICES
18        r1 as reboiler;
19        feed as stream_therm;
20        s1 as stream_therm;
21
22        CONNECTIONS
23        feed to r1.Inlet;
24        s1 to r1.InletL;
25        Q to r1.Q;
26       
27        SPECIFY
28        feed.F = 0 * "kmol/h";
29        feed.T = 328 * "K";
30        feed.P = 180 * "kPa";
31        feed.z = [0.5, 0.5];
32        feed.v = 0;
33
34        s1.P = 185 * "kPa";
35        s1.T = 327.7 * "K";
36        s1.F = 180 * "kmol/h";
37        s1.z = [0.006061, 0.9939];
38        s1.v = 0.0;
39       
40        r1.OutletL.F = 28.4 * "kmol/h";
41        r1.OutletV.F = 151.6 * "kmol/h";
42
43        Q = 3.7743e6 * "kJ/h";
44
45        SET
46        r1.V = 2 * "m^3";
47        r1.Across = 1 * "m^2";
48       
49        INITIAL
50        r1.OutletL.T = 320 *"K";
51        r1.Level = 1 * "m";
52        r1.OutletL.z(2) = 0.9;
53       
54        OPTIONS
55        relativeAccuracy = 1e-5;
56        outputLevel = "high";
57       
58        time = [0:20:1000];
59end
Note: See TracBrowser for help on using the repository browser.