source: trunk/sample/stage_separators/sample_flashPH.mso @ 321

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

Fix Pallete of streams.mso and add flashPH as another model of flash for devices.

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 model flashPHSteady and flashPHSteadyA
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Rafael de P. Soares and Paula B. Staudt
23* $Id: sample_flashPH.mso 289 2007-06-20 15:07:08Z rafael $
24*--------------------------------------------------------------------*#
25
26using "stage_separators/flash";
27
28FlowSheet FlashPHTest
29        PARAMETERS
30        PP      as Plugin(Brief="Physical Properties",
31                Type="PP",
32                Components = ["methane", "isobutene", "benzene"],
33                LiquidModel = "IdealLiquid",
34                VapourModel = "Ideal"
35        );
36        NComp   as Integer;
37
38        SET
39        NComp = PP.NumberOfComponents;
40       
41        DEVICES
42        fl as FlashPHSteady;
43        s1 as source;
44        Q  as energy_source (Brief="Heat supplied");
45       
46        CONNECTIONS
47        s1.Outlet to fl.Inlet;
48        Q.OutletQ to fl.InletQ;
49       
50        SPECIFY
51        s1.Outlet.F = 496.3 * 'kmol/h';
52        s1.Outlet.T = 338 * 'K';
53        s1.Outlet.P = 507.1 * 'kPa';
54        s1.Outlet.z = [0.1, 0.7,0.2];
55       
56        fl.OutletL.P = 2.5 * 'atm';
57
58        Q.OutletQ.Q = 0 * 'kJ/h';
59        #fl.OutletL.T = 315.06 * 'K';
60       
61        OPTIONS
62        Dynamic = false;
63end
64
65FlowSheet FlashPHTestA
66        PARAMETERS
67        PP      as Plugin(Brief="Physical Properties",
68                Type="PP",
69                Components = ["methane", "isobutene", "benzene"],
70                LiquidModel = "IdealLiquid",
71                VapourModel = "Ideal"
72        );
73        NComp   as Integer;
74
75        SET
76        NComp = PP.NumberOfComponents;
77       
78        DEVICES
79        fl as FlashPHSteadyA;
80        s1 as source;
81        Q  as energy_source (Brief="Heat supplied");
82       
83        CONNECTIONS
84        s1.Outlet to fl.Inlet;
85        Q.OutletQ to fl.InletQ;
86       
87        SPECIFY
88        s1.Outlet.F = 496.3 * 'kmol/h';
89        s1.Outlet.T = 338 * 'K';
90        s1.Outlet.P = 507.1 * 'kPa';
91        s1.Outlet.z = [0.1, 0.7,0.2];
92       
93        fl.OutletL.P = 2.5 * 'atm';
94
95        Q.OutletQ.Q = 0 * 'kJ/h';
96        #fl.OutletL.T = 315.06 * 'K';
97       
98        OPTIONS
99        Dynamic = false;
100end
101
Note: See TracBrowser for help on using the repository browser.