source: branches/newlanguage/sample/heat_exchangers/sample_heater.mso @ 131

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

Updated heat_exchangers sample file headers

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.2 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 heater and cooler models
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.mso";
27
28FlowSheet Heater_Project
29
30DEVICES
31
32        heater                  as Heater;
33        streamcold1     as stream_therm;
34       
35       
36CONNECTIONS
37
38        streamcold1     to heater.Inlet(1);
39       
40       
41PARAMETERS
42
43        PP              as CalcObject (File="vrpp");
44        NComp   as Integer;
45       
46SET
47
48        PP.LiquidModel  = "RK";
49        PP.VapourModel  = "RK";
50       
51        PP.Components   = ["water"];
52        NComp                   = PP.NumberOfComponents;
53        heater.Ninlet   = 1;
54
55SPECIFY
56
57        streamcold1.F           = 100   * "kmol/h";
58        streamcold1.P           = 1     * "atm";
59        streamcold1.T           = 343   * "K";
60        streamcold1.v           = 0;
61    streamcold1.z               = [1];
62
63       
64       
65        heater.Outlet.T         = 363*"K";
66        heater.Outlet.P         = 1 * "atm";
67
68       
69       
70OPTIONS
71 
72        mode                    = "steady";
73       
74end
75
76FlowSheet Cooler_Project
77
78DEVICES
79
80        cooler                  as Cooler;
81        streamcold1     as stream_therm;
82       
83       
84CONNECTIONS
85
86        streamcold1     to cooler.Inlet(1);
87       
88       
89PARAMETERS
90
91        PP                      as CalcObject (File="vrpp");
92        NComp   as Integer;
93       
94SET
95
96        PP.LiquidModel  = "RK";
97        PP.VapourModel  = "RK";
98        PP.Components   = ["water"];
99        NComp                   = PP.NumberOfComponents;
100        cooler.Ninlet   = 1;
101
102SPECIFY
103
104        streamcold1.F           = 100   * "kmol/h";
105        streamcold1.P           = 1     * "atm";
106        streamcold1.T           = 343   * "K";
107        streamcold1.v           = 0;
108    streamcold1.z               = [1];
109
110       
111       
112        cooler.Outlet.T         = 300*"K";
113        cooler.Outlet.P         = 1 * "atm";
114       
115       
116OPTIONS
117 
118        mode                    = "steady";
119       
120end
121
Note: See TracBrowser for help on using the repository browser.