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