source: branches/newlanguage/sample/heat_exchangers/Sample_Heater.mso @ 179

Last change on this file since 179 was 179, checked in by gerson bicca, 17 years ago

fixed problem with UOM

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 cooler and heater operation
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: Sample_Heater.mso 89 2006-12-11 15:26:11Z paula $
24*--------------------------------------------------------------------*#
25
26using "heat_exchangers/heater";
27
28FlowSheet Sample_Heater
29       
30DEVICES
31
32        Heater                  as heater;
33        streamcold1     as source;
34        streamcold2     as source;
35       
36CONNECTIONS
37
38        streamcold1.Outlet      to Heater.Inlet(1);
39        streamcold2.Outlet      to Heater.Inlet(2);
40       
41PARAMETERS
42
43        PP                      as Plugin (File="vrpp");
44        NComp           as Integer;
45       
46SET
47
48        PP.LiquidModel    = "PR";
49        PP.VapourModel  = "PR";
50       
51        PP.Components   = ["water","ethanol"];
52        NComp                   = PP.NumberOfComponents;
53       
54        Heater.Ninlet   = 2;
55
56SPECIFY
57
58        streamcold1.Outlet.F            = 100   * 'kmol/h';
59        streamcold1.Outlet.P            = 1     * 'atm';
60        streamcold1.Outlet.T            = 100   * 'K';
61    streamcold1.Outlet.z                = [1,0];
62
63        streamcold2.Outlet.F            = 20*'kmol/h';
64        streamcold2.Outlet.P            = 1     * 'atm';
65        streamcold2.Outlet.T            = 100   * 'K';
66    streamcold2.Outlet.z                = [0,1];
67       
68        Heater.Outlet.T         = 70*'K';
69        Heater.Outlet.P   = 1 * 'atm';
70
71OPTIONS
72
73        Dynamic = false;
74       
75end
76
Note: See TracBrowser for help on using the repository browser.