source: trunk/sample/stage_separators/sample_reboiler.mso @ 114

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

Updated stage_separators sample files header

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.5 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 86 2006-12-08 20:58:15Z paula $
24*--------------------------------------------------------------------*#
25using "stage_separators/reboiler";
26
27FlowSheet reboiler_Test
28        PARAMETERS
29        PP      as CalcObject(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_therm;
44        s1 as stream_therm;
45
46        CONNECTIONS
47        feed to r1.Inlet;
48        s1 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
58        s1.P = 185 * "kPa";
59        s1.T = 327.7 * "K";
60        s1.F = 180 * "kmol/h";
61        s1.z = [0.006061, 0.9939];
62        s1.v = 0.0;
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       
81        time = [0:20:1000];
82end
83
84
85FlowSheet reboilerSteady_Test
86        PARAMETERS
87        PP      as CalcObject(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 stream_therm;
102
103        CONNECTIONS
104        s1 to r1.InletL;
105        Q to r1.Q;
106       
107        SPECIFY
108        s1.P = 185 * "kPa";
109        s1.T = 327.7 * "K";
110        s1.F = 180 * "kmol/h";
111        s1.z = [0.006061, 0.9939];
112        s1.v = 0.0;
113       
114#       Q = 3.7743e6 * "kJ/h";
115        r1.OutletV.T = 350 * "K";
116
117        SET
118        r1.DP = 10 * "kPa";
119       
120        OPTIONS
121        relativeAccuracy = 1e-5;
122        mode = "steady";
123end
Note: See TracBrowser for help on using the repository browser.