source: mso/sample/heat_exchangers/sample_heater.mso @ 1

Last change on this file since 1 was 1, checked in by Rafael de Pelegrini Soares, 16 years ago

Initial import of the library

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