source: mso/sample/heat_exchangers/eshellDiscretized.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: 3.6 KB
Line 
1
2using "heat_exchangers/HeatExchangerDiscretized.mso";
3       
4FlowSheet Eshell_Discretized
5       
6DEVICES
7#===============================================================
8#    Definições do equipamento e das correntes
9#===============================================================
10        exchanger               as E_Shell_NTU_Disc;
11        streamhot_in    as stream_therm;
12        streamcold_in   as stream_therm;
13       
14CONNECTIONS
15#===============================================================
16#    Conexões do equipamento e das correntes
17#===============================================================
18        streamhot_in    to exchanger.Unity(1).Inlet.Hot;
19        streamcold_in   to exchanger.Unity(end).Inlet.Cold;
20       
21PARAMETERS
22#===============================================================
23#    Parâmetros
24#===============================================================
25        PP                      as CalcObject   (File="petroil");
26        NComp           as Integer;
27        HE                      as CalcObject   (File="heatex");
28
29SET
30#===============================================================
31#    Fluidos e Alocação
32#===============================================================
33        PP.Components             = ["fhot","fcold"];
34        NComp                             = PP.NumberOfComponents;
35        HE.HotSide            = "Tubes";#or "Shell"
36       
37#=====================================================================
38#       Parâmetros geométricos do casco
39#=====================================================================   
40
41       
42exchanger.Tpass                         = 2;
43exchanger.Dishell               = 0.914                 *"m";
44exchanger.Lcf                   = 0.0430898  *"m";
45exchanger.Nss                   = 2;
46exchanger.Donozzle_Shell    = 0.38735   *"m";
47exchanger.Dinozzle_Shell    = 0.38735   *"m";
48exchanger.Honozzle_Shell    = 0.0225    *"m";
49exchanger.Hinozzle_Shell    = 0.02155   *"m";
50
51#=====================================================================
52#       Parâmetros geométricos dos tubos
53#=====================================================================
54exchanger.Ntt                   = 775;
55exchanger.Pattern               = 90;
56exchanger.pitch                 = 0.0254        *"m";
57exchanger.Ltube                 = 5.970         *"m";
58exchanger.Ditube                = 0.0148336  *"m";
59exchanger.Dotube                = 0.01905       *"m";
60exchanger.Kwall                         = 0.057         *"kW/m/K";
61exchanger.Donozzle_Tube     = 0.15405   *"m";
62exchanger.Dinozzle_Tube         = 0.15405       *"m";
63#=====================================================================
64#       Parâmetros geométricos dos defletores
65#=====================================================================
66exchanger.Lcd           = 0.0047625     *"m";
67exchanger.Bc            = 35;
68exchanger.Ltd           = 0.0003969  *"m";
69exchanger.Nb                    = 8;
70
71SPECIFY
72#============================================
73#   Corrente Quente
74#============================================
75        streamhot_in.F  = 40.476    * "mol/s";
76        streamhot_in.T  = 419.25* "K";
77        streamhot_in.v  = 0    ;
78        streamhot_in.z  = [1,0]     ;
79        streamhot_in.P  = 733.06     * "kPa";
80       
81
82#============================================
83#   Corrente Fria
84#============================================   
85        streamcold_in.F  = 121.698              * "mol/s";
86        streamcold_in.T  = (90.2+273.15)   * "K";
87        streamcold_in.v  = 0;
88        streamcold_in.z  = [0,1];
89        streamcold_in.P  = 2210.26*"kPa";
90       
91
92#=====================================================================
93#       Espaçamento dos Defletores
94#=====================================================================
95        exchanger.Unity.Baffles.Ls      = 0.622         *"m";
96        exchanger.Unity.Baffles.Lsi     = 0.807813  *"m";
97#       exchanger.Unity.Baffles.Lso     = 0.807813  *"m";
98       
99
100GUESS
101
102exchanger.Unity.Details.U                               = 0.343 *"kW/m^2/K";
103
104OPTIONS
105#============================================
106#   Simulation Options
107#============================================
108 mode                   = "steady";
109 relativeAccuracy = 1e-6;
110
111end
Note: See TracBrowser for help on using the repository browser.