source: mso/sample/heat_exchangers/heater_project.mso @ 45

Last change on this file since 45 was 45, checked in by gerson bicca, 16 years ago

updated heat exchanger model
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.5 KB
Line 
1
2#*--------------------------------------------------------------------
3*
4* EMSO sample file.
5*
6* heater and Cooler
7*
8*--------------------------------------------------------------------*#
9
10using "heat_exchangers/Heater";
11
12FlowSheet Heater_Project
13
14DEVICES
15
16        heater                  as Heater;
17        streamcold1     as stream_therm;
18       
19       
20CONNECTIONS
21
22        streamcold1     to heater.Inlet(1);
23       
24       
25PARAMETERS
26
27        PP                      as CalcObject (File="vrpp");
28        NComp           as Integer;
29       
30SET
31
32        PP.LiquidModel  = "RK";
33        PP.VapourModel  = "RK";
34       
35        PP.Components   = ["water"];
36        NComp                   = PP.NumberOfComponents;
37        heater.Ninlet          = 1;
38
39SPECIFY
40
41        streamcold1.F           = 100   * "kmol/h";
42        streamcold1.P           = 1     * "atm";
43        streamcold1.T           = 343   * "K";
44        streamcold1.v           = 0;
45    streamcold1.z               = [1];
46
47       
48       
49        heater.Outlet.T         = 363*"K";
50        heater.Outlet.P         = 1 * "atm";
51       
52       
53OPTIONS
54 
55        mode                    = "steady";
56       
57end
58
59FlowSheet Cooler_Project
60
61DEVICES
62
63        cooler                  as Cooler;
64        streamcold1     as stream_therm;
65       
66       
67CONNECTIONS
68
69        streamcold1     to cooler.Inlet(1);
70       
71       
72PARAMETERS
73
74        PP                      as CalcObject (File="vrpp.dll");
75        NComp   as Integer;
76       
77SET
78
79        PP.LiquidModel  = "RK";
80        PP.VapourModel  = "RK";
81        PP.Components   = ["water"];
82        NComp                   = PP.NumberOfComponents;
83        cooler.Ninlet          = 1;
84
85SPECIFY
86
87        streamcold1.F           = 100   * "kmol/h";
88        streamcold1.P           = 1     * "atm";
89        streamcold1.T           = 343   * "K";
90        streamcold1.v           = 0;
91    streamcold1.z               = [1];
92
93       
94       
95        cooler.Outlet.T         = 300*"K";
96        cooler.Outlet.P         = 1 * "atm";
97       
98       
99OPTIONS
100 
101        mode    = "steady";
102       
103       
104end
105
Note: See TracBrowser for help on using the repository browser.