source: branches/newlanguage/sample/heat_exchangers/Sample_DoublePipe_Series.mso @ 139

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

updated models for the new language

File size: 2.2 KB
Line 
1#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2# Series of Double Pipe Heat Exchanger
3#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4using "heat_exchangers/DoublePipe.mso";
5
6FlowSheet Double_Pipe_Series
7       
8DEVICES
9
10        Pipe(2)                 as DoublePipe_LMTD;
11        streamhot       as source;
12        streamcold      as source;
13
14CONNECTIONS
15
16        streamhotOutlet.        to Pipe(1).Inlet.Hot;
17        Pipe(1).Outlet.Hot      to Pipe(2).Inlet.Hot;
18       
19        streamcoldOutlet.       to Pipe(1).Inlet.Cold;
20        Pipe(1).Outlet.Cold   to Pipe(2).Inlet.Cold;
21       
22PARAMETERS
23
24        PP                      as CalcObject (File="vrpp");
25        NComp           as Integer;
26
27SET
28
29PP.LiquidModel          = "PR";
30PP.VapourModel          = "PR";
31PP.Components           = ["methanol","water"];
32NComp                           = PP.NumberOfComponents;
33
34#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
35#   Options
36#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
37
38Pipe.HE.FlowDirection  = "Cocurrent";
39Pipe.HE.TurbulentFlow  = "SiederTate";
40       
41#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
42# Double Pipe Geometrical Parameters and Alocation
43#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
44
45Pipe.HE.HotSide         =       "Inner";
46Pipe.DoInner            =       0.04826*"m";
47Pipe.DiInner            =       0.04089*"m";
48Pipe.DiOuter            =       0.07793*"m";
49Pipe.Kwall              =       0.057 *"kW/m/K";
50Pipe.Lpipe                      =       3*"m";
51
52SPECIFY
53#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
54#               Hot Stream
55#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
56
57        streamhot.Outlet.F = 100                * "kmol/h";
58        streamhot.Outlet.T = (70+273.15)   * "K";
59        streamhot.Outlet.P = 5                  * "bar";
60        streamhot.Outlet.z = [1,0];
61       
62#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
63#    Cold Stream
64#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
65
66        streamcold.Outlet.F = 5                         * "kmol/h";
67        streamcold.Outlet.P = 5                 * "bar";
68        streamcold.Outlet.T = (25+273.15)       * "K";
69    streamcold.Outlet.z = [0,1];
70#=====================================================================
71#       Fouling
72#=====================================================================
73        Pipe.Resistances.Rfi = 0*"m^2*K/kW";
74        Pipe.Resistances.Rfo = 0*"m^2*K/kW";
75       
76OPTIONS
77
78Dynamic = false;
79
80end
81
Note: See TracBrowser for help on using the repository browser.