source: branches/newlanguage/sample/stage_separators/sample_reboiler.mso @ 208

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

Fix more sample problems to new language.

  • 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 208 2007-03-15 05:18:39Z arge $
24*--------------------------------------------------------------------*#
25using "stage_separators/reboiler";
26
27FlowSheet reboiler_Test
28        PARAMETERS
29        PP      as Plugin(Brief="Physical Properties",File="vrpp");
30        NComp   as Integer;
31
32        VARIABLES
33        Q       as heat_rate (Brief="Heat supplied");
34
35        SET
36        PP.Components = [ "isobutane", "benzene"];
37        PP.LiquidModel = "PR";
38        PP.VapourModel = "PR";
39        NComp = PP.NumberOfComponents;
40       
41        DEVICES
42        r1 as reboiler;
43        feed as stream;
44        s1 as source;
45
46        CONNECTIONS
47        feed to r1.Inlet;
48        s1.Outlet to r1.InletL;
49        Q to r1.Q;
50       
51        SPECIFY
52        feed.F = 0 * 'kmol/h';
53        feed.T = 328 * 'K';
54        feed.P = 180 * 'kPa';
55        feed.z = [0.5, 0.5];
56        feed.v = 0;
57        feed.h = 0 * 'kJ/kmol';
58
59        s1.Outlet.P = 185 * 'kPa';
60        s1.Outlet.T = 327.7 * 'K';
61        s1.Outlet.F = 180 * 'kmol/h';
62        s1.Outlet.z = [0.006061, 0.9939];
63       
64        r1.OutletL.F = 68.4 * 'kmol/h';
65        r1.OutletV.F = 111.6 * 'kmol/h';
66
67        Q = 3.7743e6 * 'kJ/h';
68
69        SET
70        r1.V = 2 * 'm^3';
71        r1.Across = 1 * 'm^2';
72       
73        INITIAL
74        r1.OutletL.T = 320 *'K';
75        r1.Level = 1 * 'm';
76        r1.OutletL.z(2) = 0.9;
77       
78        OPTIONS
79        RelativeAccuracy = 1e-5;
80        TimeEnd = 1000;
81        TimeStep = 20;
82end
83
84
85FlowSheet reboilerSteady_Test
86        PARAMETERS
87        PP      as Plugin(Brief="Physical Properties",File="vrpp");
88        NComp   as Integer;
89
90        VARIABLES
91        Q       as heat_rate (Brief="Heat supplied");
92
93        SET
94        PP.Components = [ "isobutane", "benzene"];
95        PP.LiquidModel = "PR";
96        PP.VapourModel = "PR";
97        NComp = PP.NumberOfComponents;
98       
99        DEVICES
100        r1 as reboilerSteady;
101        s1 as source;
102
103        CONNECTIONS
104        s1.Outlet to r1.InletL;
105        Q to r1.Q;
106       
107        SPECIFY
108        s1.Outlet.P = 185 * 'kPa';
109        s1.Outlet.T = 327.7 * 'K';
110        s1.Outlet.F = 180 * 'kmol/h';
111        s1.Outlet.z = [0.006061, 0.9939];
112       
113#       Q = 3.7743e6 * 'kJ/h';
114        r1.OutletV.T = 350 * 'K';
115
116        SET
117        r1.DP = 10 * 'kPa';
118       
119        OPTIONS
120        RelativeAccuracy = 1e-5;
121        Dynamic = false;
122end
Note: See TracBrowser for help on using the repository browser.