source: mso/sample/heat_exchangers/Sample_Multitubular.mso @ 110

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

modified some equations

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