source: branches/gui/sample/stage_separators/sample_reboiler.mso @ 580

Last change on this file since 580 was 580, checked in by gerson bicca, 14 years ago

still more updates

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.6 KB
Line 
1#*-------------------------------------------------------------------
2* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
3*
4* This LIBRARY is free software; you can distribute it and/or modify
5* it under the therms of the ALSOC FREE LICENSE as available at
6* http://www.enq.ufrgs.br/alsoc.
7*
8* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
9* from http://www.rps.eng.br Copyright (C) 2002-2004.
10* All rights reserved.
11*
12* EMSO is distributed under the therms of the ALSOC LICENSE as
13* available at http://www.enq.ufrgs.br/alsoc.
14*
15*--------------------------------------------------------------------
16* Sample file for reboilers model
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Paula B. Staudt
23* $Id: sample_reboiler.mso 580 2008-07-26 19:34:58Z bicca $
24*--------------------------------------------------------------------*#
25using "stage_separators/reboiler";
26
27FlowSheet reboiler_Test
28        PARAMETERS
29        PP      as Plugin(Brief="Physical Properties",
30                Type="PP",
31                Components = [ "isobutane", "benzene"],
32                LiquidModel = "PR",
33                VapourModel = "PR"
34        );
35        NComp   as Integer;
36
37        VARIABLES
38        Q       as energy_source (Brief="Heat supplied");
39
40        SET
41        NComp = PP.NumberOfComponents;
42       
43        DEVICES
44        r1 as reboiler;
45        feed as stream;
46        s1 as source;
47
48        CONNECTIONS
49        feed to r1.Inlet;
50        s1.Outlet to r1.InletL;
51        Q.OutletQ to r1.InletQ;
52       
53        SPECIFY
54        feed.F = 0 * 'kmol/h';
55        feed.T = 328 * 'K';
56        feed.P = 180 * 'kPa';
57        feed.z = [0.5, 0.5];
58        feed.v = 0;
59        feed.h = 0 * 'kJ/kmol';
60
61        s1.P = 185 * 'kPa';
62        s1.T = 327.7 * 'K';
63        s1.F = 180 * 'kmol/h';
64        s1.Composition = [0.006061, 0.9939];
65       
66        r1.OutletL.F = 68.4 * 'kmol/h';
67        r1.OutletV.F = 111.6 * 'kmol/h';
68
69        Q.OutletQ = 3.7743e6 * 'kJ/h';
70
71        SET
72        r1.V = 2 * 'm^3';
73        r1.Across = 1 * 'm^2';
74       
75        INITIAL
76        r1.OutletL.T = 320 *'K';
77        r1.Level = 1 * 'm';
78        r1.OutletL.z(2) = 0.9;
79       
80        OPTIONS
81        TimeEnd = 1000;
82        TimeStep = 20;
83end
84
85
86FlowSheet reboilerSteady_Test
87        PARAMETERS
88        PP      as Plugin(Brief="Physical Properties",
89                Type="PP",
90                Components = [ "isobutane", "benzene"],
91                LiquidModel = "PR",
92                VapourModel = "PR"
93        );
94        NComp   as Integer;
95
96        VARIABLES
97        Q       as energy_source (Brief="Heat supplied");
98
99        SET
100        NComp = PP.NumberOfComponents;
101       
102        DEVICES
103        r1 as reboilerSteady;
104        s1 as source;
105
106        CONNECTIONS
107        s1.Outlet to r1.InletL;
108        Q.OutletQ to r1.InletQ;
109       
110        SPECIFY
111        s1.P = 185 * 'kPa';
112        s1.T = 327.7 * 'K';
113        s1.F = 180 * 'kmol/h';
114        s1.Composition = [0.006061, 0.9939];
115       
116#       Q.OutletQ.Q = 3.7743e6 * 'kJ/h';
117        r1.OutletV.T = 350 * 'K';
118
119        SET
120        r1.DP = 10 * 'kPa';
121       
122        OPTIONS
123        Dynamic = false;
124end
Note: See TracBrowser for help on using the repository browser.