source: branches/gui/sample/stage_separators/sample_tank.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.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 tanks 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_tank.mso 580 2008-07-26 19:34:58Z bicca $
24*--------------------------------------------------------------------*#
25using "stage_separators/tank";
26
27FlowSheet tank_Test
28        PARAMETERS
29        PP      as Plugin(Brief="Physical Properties",
30                Type="PP",
31                Components = ["methane", "isobutane", "benzene"],
32                LiquidModel = "PR",
33                VapourModel = "PR"
34        );
35        NComp   as Integer;
36        SET
37        NComp = PP.NumberOfComponents;
38       
39        VARIABLES
40        Qtank as energy_source (Brief="Heat rate supplied to tank");
41       
42        DEVICES
43        t as tank;
44        s as source;
45       
46        CONNECTIONS
47        s.Outlet to t.Inlet;
48        Qtank.OutletQ to t.InletQ;
49       
50        SPECIFY
51        s.P = 480 * 'kPa';
52        s.T = 310 * 'K';
53        s.F = 180 * 'kmol/h';
54        s.Composition = 1.0/NComp;
55#       s.v = 0.698;
56       
57        Qtank.OutletQ = 0 * 'J/s';
58        t.Outlet.F = 179 * 'kmol/h';
59       
60        SET
61        t.Across = 2.20 * 'm^2';
62       
63        INITIAL
64        t.Outlet.T = 305 *'K';
65        t.Level = 0.5 * 'm';
66        t.Outlet.z([1:2]) = 1.0/NComp;
67       
68        OPTIONS
69        TimeStep = 100;
70        TimeEnd = 1000;
71end
72
73FlowSheet tank_cylindrical_Test
74        PARAMETERS
75        PP      as Plugin(Brief="Physical Properties",
76                Type="PP",
77                Components = ["methane", "isobutane", "benzene"],
78                LiquidModel = "PR",
79                VapourModel = "PR"
80        );
81        NComp   as Integer;
82        SET
83        NComp = PP.NumberOfComponents;
84
85        VARIABLES
86        Qtank as energy_source (Brief="Heat rate supplied to tank");
87       
88        DEVICES
89        t as tank_cylindrical;
90        s as source;
91       
92        CONNECTIONS
93        s.Outlet to t.Inlet;
94        Qtank.OutletQ to t.InletQ;
95       
96        SPECIFY
97        s.F = 500 * 'kmol/h';
98        s.T = 300 * 'K';
99        s.P = 400 * 'kPa';
100        s.Composition = 1/NComp;
101        #s.v = 0.368;
102
103        Qtank.OutletQ = 0 * 'J/s';
104        t.Outlet.F = 490 * 'kmol/h';
105       
106        SET
107        t.radius = 0.9 * 'm';
108        t.L = 7.12 * 'm';
109       
110        INITIAL
111        t.Outlet.T = 280*'K';
112        t.Level = 1 * 'm';
113        t.Outlet.z([1:2]) = 1.0/NComp;
114       
115        OPTIONS
116        TimeStep = 100;
117        TimeEnd = 1000;
118end
Note: See TracBrowser for help on using the repository browser.