source: branches/gui/sample/costs/sample_tank_cost.mso @ 914

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

more updates

File size: 2.0 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 tank cost model
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm DEMO(www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Núbia do Carmo Ferreira
23* $Id: sample_tank.mso 247 2007-04-24 13:44:18Z rafael $
24*--------------------------------------------------------------------*#
25using "costs/tank_cost";
26
27FlowSheet sample_tank_cost
28       
29        PARAMETERS
30        PP      as Plugin(Brief="Physical Properties",
31                Type="PP",
32                Components = ["methane", "isobutane", "benzene"],
33                LiquidModel = "PR",
34                VapourModel = "PR"
35        );
36        NComp   as Integer;
37       
38        SET
39        NComp = PP.NumberOfComponents;
40       
41        DEVICES
42        t as tank_cost;
43        s as source;
44        Qtank as energy_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       
56        Qtank.OutletQ = 0 * 'J/s';
57        t.Outlet.F = 179 * 'kmol/h';
58
59        SET
60        t.Across = 2.9 * 'm^2';
61        t.Height = 3 * 'm';
62
63        #cost
64        t.Material = "Stainless steel 316";
65       
66        t.Cost(1,:) = [7.994,0.6637,-0.063088];
67        t.Cost(2,:) = [9.639,-0.1045,0.045355];
68        t.Cost(3,:) = [2.7,0,0];
69               
70        INITIAL
71        t.Outlet.T = 305 *'K';
72        t.Level = 0.5 * 'm';
73        t.Outlet.z([1:2]) = 1.0/NComp;
74       
75        OPTIONS
76        TimeStep = 100;
77        TimeEnd = 1000;
78end
Note: See TracBrowser for help on using the repository browser.