Diseño Térmico de Economizador
Diseño Térmico de Economizador
Diseño Térmico de Economizador
UNIDAD IZTAPALAFA
I~DISENO TERMICO
DE ECONOMIZADO RES^
CARRERA:INGENIEHIA, EN ENERGIA
SEPTIEMBRE,1787
!!e
AVE. EJE CENTRAL LAZAR0 CARDENAS No.152 (antes Av. Cien Metros)*APARTADO POSTAL 14-805 MEXICO 14, D.F. CONMUTADOR: 567-66-a)Y 567-91-09 DlRECClON CABLEGRAFICA "IMEPET" TELEX: 017-73-116
INSTITUTO
MEXICANO
DEL
PETROLEO
ECDA-024
147833
Q
2 1 de f e b r e r o 1 9 8 7
P r e s e n t e
I z t a pa 1a pa
Por medio de l a presente n o s dirigimos a usted para camun_fcar% le que el S r . Francisco R o b l e s Lbpcz, e s t u d i a n t e de l a tOc+a='' ciatura en Ingenierfa en Energa, con nmero de matrfctr: 8 2 3 2 5 9 4 6 ha s i d o aceptado p o r esta Institucin para lliirir\r ' cabo su S e n i n a r i o de Proyectos I y I 1 con e1 tema: *WreU+..' . "
Trmico de Economizadorar p a r a G e m r a d o r r r de V a p o r m .
lcho tema s a r d dcarrollrdo CORO parte do sus a c t f v t d i t t e s en de DireHo Trmico de q u i p 0 de Coaburtlbn, con u n h o r a r i o de 9:OO a 1 4 : O O hrt., d i a r i a m e n t e de lunar a viernes, a partir d e l d f a 9 de f e b r e r o hasta el 3 1 de , j u l i o del aRo en curso.
el Departamento
c.c.p.-
A' C'
W"'
INSTITUTO
MEXICANO
DEL
PETROLEO
EJE CENTRAL LAZAR0 CARDENAS NO. 152 0 APARTADO POSTAL 14-805 07730 MEXICO, 13.F. O CONMUTADOR: 567-66-00 Y 567-91-00 ELEX EX oi7-73-.116 O DlRECClON CABLEGRAFICA "IMEPET"
PROGRAYA DE ACTIVIDADES DEL SEMINARIO DE PROYECTOS I Y I1 A REALIZAR POR FRANCISCO' ROBLES LOPEZ E N EL DEPARTAMENTO DE D I S E N G T E R M I C Z C: TEMA: OBJETIVO: E Q U I P O DE C O M B U S T I O N .
D I S E N O TERMICO DE ECONOMIZADORES
D E S A R R O L L A R L A M E T O D O L O G I A Y SECUENCIA DE CALCULO P A R A E L D I S E N O T E R M I C Q D E E C O N O M I Z A D O R E S E I M P LE MENTARLA EN U N PROGR4A DE COMPUTADORA.
1.2.-
ACTIVIDADES:
3.-
ELABORAR RESUMEN DE PATOS OBTENIDOS QUE ES U N ECONOMIZADOR E N QUE RANGO-DE CAPACIDADES .DE-IAS C A L D T RAS PUEDE UTILIZARSE C A R A C T E R I S T I C A S R E Q U E R I D A S DE LOS M A T E R I A L E S E M P L E A D O S Y REQUISITOS D E CALIDAD DEL AGUA. G E O M E T R I A S RECOMENDADAS: D I A M E T R O S DE TUBOS, ESPESORES, ARREGLO, DISTANCIAMIENTO ENTRE TUBOS, ETC. METODOS DE CALCULO PROPUESTOS (EVALUACION Q DISENO)
DESARROLLO DE SECUENCIA DE CALCULO BALANCE GLOBAL DE CALOR D E T E R M I N A C I O N D E C O E F I C I E N T E S DE T R A N S F E RENCIA DE CALOR - PERFIL DE TEMPERATURAS CALCULO (CQMPROBACION) DEL AREA REQUERIDA (PROPUESTA) CALCULO DE CAIDA DE PRESION POR DENTRO Y FUERA DE TUBO$
.I
5.-
) -I
E PROYECTOS I QUE COMPRENDE DEL 9 DEFEBRERO AL 10 DE ABRIL SE ENTREiT.?A EL REPORTE DE LAS ACTIVIDADES UNO Y DOS. E L IVFORME DE LAS ACT1 VIDADES FLSTANTES SE ENTREGARA COMO PARTE DEL INFORME FINAL DEL PROYECTO, Q U E C0MPRENDEY;A EL SENINARIO DE PROYECTOS I1 QUE ABARCA DEL 13 DE ABRIL AL 3 1 DE JULIO.
R e p o r t e del s e m i n a r i o
DEPARTAMENTO DE
DISENO
TERMICO
DE EQUIPO DE COMBUSTION
DEL
Ll35
eciiuciones
que
correlticionan
CQIIO
la5
f igiiras
1135
tablas,
i i t i l i m d a s en e l progrimar flieron
divisiin
as
tambin a l g i i n l i s de de
1li.jeEo
sibrutinsis
lu
determinadus de
I
en
el
Departnento del
Trsico,de Mexicano
Ingeniero
de COmblistlb
Instituto
del
Pet rcleo
CONTENIIIG
I + INTHODUCCION XI+ RECUPERHCION DE CALOR EN CALDERAS I I I + ECOI4OPiIZADORES I11 + 1 alle son los economizadores I I I + 2 Rango de capacidades en que pueden u t i l i z a r s e 111 + 3 Caracterfsticas requeridas de 105 materiales empleados I I I + 4 Requisitos de calidnd del agua de alimentacin I I I + 5 Geometrias utilizadas I I I + C i + l Arreglos utilizados I I I + S + 2iliametros de tubos I I I + 5 + 3 Di stanc iani en tos
I I I + s Corrosion externa
11117 Prdida de tiro I I I + 8 Presin del agua IV + METOIIOS EiE CALCULO PROPUESTOS
I U , l Transferencia de ccllor
U + 4 Por ensuciamiento
VI, DETERHINACION
kE
U I + l Lado de
._-
gCkS5
VI + 2 Lodo d e l aqua
U I I + SECUENCIA D E CALCULO VI1 1 C o n s i d e r a c i o n e s WIIIS DIltOS U I I + 3 Secuenci U I I I I Zi'PLEMENTACION T I E LA SECUENCIA DE CALCULO EN UN YROGRfiHA
i1E COMPUTADORA
W I I l , l Listaido d e l programa V I I I I L DiqrnntQ de f l u j o VI11 +3 Instructivo d e l p r o g r a m
1 x 1 EJEMPLO DE ChLCULO
1:x.i Datos
IX12 R e s u l t a d o s
IX13 Croquis t r m i c o
X I CONCLUSIONES
X I . BIBLIOOHAFIA
I+
XNTHODUCCION
moderna.
Las
provienen disminuyen
Q
de
los hidrocarburos,
no h w
en
13
d f a con diti,
corto
plzo,
consecuencia,
eficientemente dentro y fuera de la industria, para preservurlos hasta encontrarlec relevo energtico. la utilizacin
Y
se entiende
evitando el
un^
de
111
energa estrictamente se r e f i e r e
desperdicio;
por eficiente,
se u t i l i c e l a energa3
Un proceso industrial,
priihas
y
materias
energa, e l calor,
para
obtener productos o
En
la
l a fuente de c;lciilo en
mostrar que un mejoramiento por pequeo que energtica, reduce e l consumo de combustible,
la
lo
eficiencia
Y por
de
de
El
vapor
y
es,
por mucho,
el
m4s
importrlnte e l gran
medio uso
de de
--
transferencia
transporte de calor,
es por e l l o ,
eficiencia5 posibles.
Mejorando
113
se puede
de
producir son
ads
vapor
de
menos
perdidas
calor
para
especialmente de es
generilcidn recomendada
pnra
limitar
instalar
Para
aprovechar
los
gases
de l a combustin,
Y
calor
(econorizodores operacin de
calentadores de a i r e ) ,
de
i n s t ~ ~ l a c i de n estos equipos+
increnentados en e l aqua
de
alimentacion *
Mexicrino
del
PetrOleo,
5e
la
evaluacidn parte
economizadores
de
: Diseo
trmico de economizadores,
En t o d a s las clilderasl
chimeneal
gases
representu combustioh
un c o n s i d e r a b l e d e i p e r d i c i o de t i e n e n temperaturas a r r i b de
de
ambiente,
c o n s t i t u y e n l a mayor p r d i d a de c a l o r ,
Si
se
en
los
181
eficiencia de
l o s gases de chimenea,
por i n s t a l a c i n de equipo
o calentadores de a i r e
de c a l o r
sea economizadores
la
$9
i A V \
Los
energa capturada,
d e l agua de alimentacin,
Los
calentadores de a i r e t r a n s f i e r e n c a l o r de l o s
gases
de
l a e f i c i e n c i a e5 mejorado
la el
Economizadores
calentadores de a i r e ,
pueden
reducir
El
uso
de
equipo
de recuperacin de
calor
no
se
puede
~ustific~ sr i
Si
unti
caldera
de
En l a operacin de
105
generadores de vapor,
lci
temperatura
la
caldera
la
temperatura
de
saturation,
para
inicinr
el
equipo
de
recuperacin de calor,
permite
aumentar
1 0
o bien,
reducir e l tamao
de
una
temperatura
determinada de nivel,
105
gases,
que
los
de
temperatura
/
de
los con
diferentes diversos
equipos
de
recupersicion de calor,
variar; de acuerdo
La tempernturu
113 que pueden ser reducidos l o s gases durante su paso a t r a v i s de unidad, se determina por los fnctores siguientes
la
aumento
'
Las
son l a s
siguientes
:
en combustin se origina polvop ste ocacionar8
2 . - Si
la
. . .
I
9 -
congestionamientos en l a unidad*
3 , - Se requieren ventiladores para vencer 111 resistencia
opuest
a l t i r o por
4 * - Son
105
diferentes equipos*
Y
necesarios e l mantenimiento
l a atencin de operacin de
los equipos+
~a
limita del
las
posibilidades
equipo
correspondiente,
Cono
inicial
de
por
111
en
IIIt
ECONOMIZADURES
dise-
al agua de
intercambio gases
ugua
calor,
de5tinada a reciiperar calor residual pura retornurlo en forma de calor til, elevando su temperatura,
los el
de combustin, de alimentacin,
mezcle
mejorando l a economa de l a
este
economirador
de
tiibos,
1 3
inyectarla
a 11i caldera.
a l Iibandoncir
las de
superficies de la cwldera,
n a r l a l o c a l i z a c i o n d e l econowizador en e l conjunto,
dos t i p o s de economizadores
lo que da l u g a r
12
en
Los
truccin stos
econonizadores
adyacentes se c ~ r a c t e r i z a n por
su
con2
transversalmente a l e,je l o n g i t u d i n a l
de los tubos+ Se l o c a l i z a n f u e r l i
caldera;
ae
I
este
,, ., : ,
tipo
son
los
que se t r a t a n en e s t e t r a b a j o ,
(Fig, I I I + 2 ) e
vnport
los
de
de vapor;
'r,
- '
Ilhorro de combustible,
tubera la alta
superficie
con
tubos?
una
cion
an11105 o pernos6
A l utilizar
mero
como
el
QgiiQ
de
alimentiicin tiene que tratarse para eliminar e l oxgeno disuel t o p a w evitair l a corrosin+ Pura l a operacin a presiones bajas? cuando e l agua de a l i s e -
ntucin
atencin el
no
desaereada,
cuando
la
s e emplea1
mis
econonisador
costo
I
inicial
650 LE/PLGW,
<
. f
< .. . '
'ENTIUDOR EN
DISMSlClO VERTICAL
U PARTE W I .
. . :. .
VENTIUDOR E N
..-
. .'
/ n n \
El
debe
agua
generar
vapor
ya que s i es
siiministrada
sin previo tratamiento, introduce a la caldera sales solubles, cieno y plrtfculas slidas. E l continuo suministro de aquo nueval para reponer
la
evaporada,
da
cuerpos
de
contaminacin removidosr
indeseables
l a cnldera,
Si
Y
no
son
oportunamente
al
Este
CO~LQ
pnso de calor,
problema
no
La concentracin
de solidos,
es reducida o mantenida
niveles
aceptables mediante l a filtrlicin Y e l tratamiento del aguu de alimentocin tintes de su inyeccin a l a coldera, iie no ser desaereada e l aqua de alimentncin, e l economizador estar; de continuamente expuesto a l peligro de corrosin interna, E l oguo contiene pequeas burbujas de
oxgeno
i n t e r i o res +
Los econowizadores de tubos de acero, no deben de
exponerse en una
al
contacto
con
oxgeno
Y 9*0
Para
131
entradu
"-
geometr
siguientes piintor,
, :
igual
arreglos
con
105
tubos alinetidos en forma lineal o ~lterntida: -Lineal -Cuad rado rotado + -Trihngiilar +
dilhetros de
105
de
2 3/4'
de d i b t r o externo*
1 1 1 1 5 , 3 Distanciamientos,
para l a limpieza+
El
espaciamiento
huci
l o s lados
debe
de.Jar c l a r o s
entre:
1 1/2'
y
2'
de ancho+
1'
de ~ n c h o +
4'
I3
5'
entre centros*
I I I Corrosin ~ ~ externa+
La
corrosin de l a s superficies externas (lado de cowtbustin) del equipo de recuperacin los gases son enfriados abajo de la
en de
contacto calor,
con
los
gases cuando
ocurre
temperQtura de
de vapor de agua sobre dichas superficies+ Esta corrosin es celerada por la presencia de sustancias sulfuroas (dixida
Y
trixido
de
resultantes de l a
de
e l vapor de aguaI
E l coeficiente potencial1 de
La
formo. una
mezcla
con
las
dificultades que
AQ/S
serios
vara
I I I , 7 Perdido de t i r o ,
La
prdida de t i r o permitidli
13
unidad I
112
4' de columna de
ciguliI
El
propio
de
I U I l Transferencia de calor
Siempre que exista una diferencia de temperatura va a e x i s t i r
un
f l u j o de c a l o r , temperatura
e l cual se va (fuente)
I
de
mayor
hacia
tenperotur sera'
(recibidor)*
velocidad
expresadu
por i a ecuacin:
O =
K S (TI-T2) L@
(IUI 1 I 1 )
donde:
CJ
: Flujo
k
S
: Conductividad : Superficie
TlrT2
Le
: Espesor
equivalente,
C?\E-\
ptiw!i.t*. jili8itas : Le
= L (espesor de l a pared)
paredes cilindricas
: Le =
DEtLn(DE/DI)/24
por ondas e l e c t r o i a q n h c a s ,
Cuando l a radiacin
inside
otra parte es
o t r a parte es absorbida,
de
azufre los cuales son gases radiantest esto es que emiten radiacin,
El
intercambio
goses
o
alrededores,
a
una
cavidad
temperaturas
TH
(TA 2 TB)i
o por i a ecuacin:
Donde :
e
Q
Q
: Flujo
: Cte+
\ET,J/?+)
(1.7E-9
BTU/HtPIE2tGRA4)
: Superficie :
TG,TO
: Temperaturas : Coeficiente
TA,TB
UR
fluido
a1
los
o entre un f l u i d o
diferencia en densidades,
turas dentro del fluido, l a transferencia de calor es 1lamadQ convecc i o n l i b r e o natural, Cuando e l iaoviiaiento del fluido resulta de algn mecanisno externo t a l como una bomba o ventilador? se dice que
lo
transferencia
de
calor
fluido
Q=hS)'JT
(IU,1 *5)
Donde:
: Flujo
: Coeficiente : Superficie
: Diferencia
. T
de
temperatura
entre
el
fluido
la
superficie? (GF)
La
= U X S 4 HLDT
(IU+ 1 t4)
Donde:
Q
: Flujo
: Coeficiente : Superficie
: Diferencia
(BTU/HtPIEA240F)
MLDT
un sistema,
WG X (HOl-HG2)
UA
(HA2-Hhl)
Donde :
Q
: Flujo
: Flu.jo
: Calor
total de calor
tBTU/H)
WG
CPg
(BTU/LBtGF)
T G l r T G 2 1 Temperaturas de los qases de combustidn a l a entrada Y
: Entnlpias
y
salida? (BTU/LB) ndsico del aqua de aliientacin,(LB/H) especifico medio del agua de alimentacinr
WA
: Flujo
: Calor
CPa
(BTU/LHtGF)
T)5irTh2 t Temperaturas del aqua a l a entrada y salida de l a
: Entalpias
Ls
determinar
un
bonco
de
Cuando
utilimndo
, ya
es
tamao del economirador, es decir, 1 0 superficie que e5 necesaria p a r a transmitir un calor dudo,
Conductancia y resistencia
: La
conductancia o coeficiente de
un
material
por unidad
de
tiempo,
por
del la
fronteraI
La
resistencia
es
el
recproco
de
conductancia6 cularmente
parti-
de
dos modos de transferencia ocurren simult6nea e indet a l e s como 10 radiacin y conveccin, e l coeficiente
UC Y UR
P
loci
cuales tienen sus efectos en paralelo* Cuando los modos de transferencia estm en serie, l a s resistencias, no las conductancias,
SOR
Cii7iiitjQS
La
de
:
1
u=
Donde:
U
: Coeficiente
I .
.*.
." "_
P I -
Rio
Rtw
Hdo
: Por
: Por
Rdio
: Por
externo
Paro
siguiente
el
caso
particular
del
econoiitador
se
tendr;
la
de
conbustini(1ada
externo) es
:
KO
= Hg =
1 ho
UCG t URG
(V.2)
Con
ho
: : Coeficiente
por lodo de gases
UCG
: Coeficiente
Dos de l a s
l a s cuales
son
141833
Ot61
0.33
NU
= 01287 Re
Yr
Fa
Fd
NU = Ot33 H e
016
Yr
0133
Fa
Fd
Donde
Fa Fd
:
: Factor
: Factor
de arreglo, (Correccin por geometra) de profundidad, (Correccin por nmero de h i l e r a s )
LQ ecuacio/n de Habcock
considera
Fd,
Re Y Prr
la
sigue
:
O133 0167
UCG = 0 + 3 3 Ir
016 GG
x cp
Ot4 (DEI121
8 k O127 U
Fa X Fd
(Ut51
GO
: nasa
conductividad
estimar
el
coeficiente
por
radiacin
de
gases
es
necesario conocer l a presin parcial de los gases radiantes (Par) y l o longitud media del haz radiante ( L ) + La presin parcial de l o s radiantes, combustible, radiante,
e5
gases
es
una
funcin
del
exceso
de
aire
del
tipo
de
(Figs, UII48,9
los tuboSr
L = 3+4 #
:
(V17)
L =
En
manera
V e
Ganopathyr
:
URG
Eg 11 K
Con
:
K
= V t (TGW
(TO
- TOA4) - TO)
Eq = Ec t nEu
(U110)
Donde
Ec
E w
n
: Emisividad
$
Factor
de correccin
vapor de ugua
E
: Decrenento
En
siguiente
el
STEAH,
la
forma
:
URG = UH % K
Donde
(Ulll)
: :
Coeficiente
base de
UR
rQdiCint que
estu
en
presin
parcial de los gases radiantes por l a longitud media del hoz rudianter(Fiq, U I I l l O ) t Esta forma es l a que se u t i l i z a en este trQbtLjOt
Rio = RQ
$DE=
DI
UCA
DE
DI
(V.12)
La5
correlociones
peliculor
es
Esto es
UCA = 0*023 Y
GA
018
It Kri 014
O*&
Con
GA
:
: nasa
velocidad de agua, (LB/HYPIE*Z)
V.3
esto
:
t Ln (UE/DI)
Rtw
0,5 X (IiE/l2)
Conductividod
tdrmica
del
metal
evaludcr
la
temperatura de pQred
V.4
Por ensuciariento
:
e
: Hdio =FE1
It DE 1 1I
tiva es
mismo los factores de ensuciariento? por lo que el coeficiente globo1 quede2rd de la siguiente manero 1
UCG
+ URG
(We171
Para bustin
al
determinar
la
de
COR-
aproximaciones de Jacob,
:
-10
X FFG
DPG
= 9627x10
t NH t UOLEG t GG
'
(UI*l)
Donde
DPG
: Prdida
: Nmero
de t i r o de l o s g a s e s ~ (PULG DE AGUA)
NH
VOLEG
: Volusen
: Masa : Factor
GG
FFG
FFG = F i e
-o* 16
0.25 t
(ST/ISE
Oil175
l)"lr08
(VI131
Con
Re
IIE
: : Reynolds : Dimetro
de gases, Re= GGltlIE 12#uQ externo, IYULG)
: Espacianiento
La
por
debido a1 rectus,
rozamiento, accesorios
e l paso del f l u i d o
travs de
Longitudes
(VI*S)
Donde
DPA
presin del uguo, (PSI01 del agua media del aqua rectas, (pies) equivalentes para accesorios, (PIES)
J'
V
L Le
DI
: Longitudes : Longitudes
: Dimetro
interno, [YULG)
VOLEA
GA 1 nasa velocidad
FFA
de friccin
Pura recomienda
perdidas
por
entrada
salida,
en l a
literatura cabeza
se de
un
coeficiente
de rozamiento igual a 1 * 5 10
:k4.5
por rozamiento en curvaturas, se tienen los
perdidas
siguientes valores de longitudes equivalentes Curvtura de 180 grados Curvaturas de 90 grados Con
:
(PIES)
(PIES)
Le = 2 * 5 t DI Le = 2 + 0 d DI
DI en PULO
He = GA t DI 12 ua
U I I + CECUENCIfl DE CALCULO
VI1 + 1
Consideraciones
I-a secuencia del c l c u l o , es del i o d o iterativo Y es t a l , que
e5
pueden
disear
los
econonizadores
utilircrndo
el
de
partida,
determinar
:
unu
clguar
se encuentra
por
cavidad,
radiacin
ganado
el
proveniente
ORAD
variable despreciar
sus
efectos,
pero
si
es
grmde
un
error
apreciable*
dto
temperatura
nninia,
113
stilida,
de
de condenswin
gases ticidos+
temperatura en l a chimenea.
Combustoleo
TGHIN TGflIN
= 375 GF = 280 G F
Gas natural
-.
n i .
. .
:
debe generar
vapor
en
el
economizadar
agua
11
l a s a l i d a del 90 X de
de suturacin+
En l a l i t e r a t u r a (STEAH 8 U,
Criterio de convergenciu
El
:
error relativo entre
de
111
criterio
u t i l i z a d o es t a l que e l
los
gases
131
5 X,
Fora logror
h UTILIZAR
S i e s disno
Temperatura de gases
Q
l a salid
S i es evaluacin
(NTHEC)
("EC)
-------------------------
1. E n t a l p i a p a r a ambos f l u i d o s a l a e n t r a d a
1 . 1 &qua de a l i m e n t a c i n ,
1.1 Gases d e combustin,
de TCIBLA V I I . l
de FIG.
: HAl=HAl(TAl)
VII.1
: HGlrHGI(TG1)
HG
(ETU/LE( 1
FIG.
2. Temperatura
mxima
que
puede
elevarse
el
agua
de
ai i ment a c i n
2.1
.
de TABLA V I I . 2 :
TV=TV(PV)
Temperatura de s a t u r a c i n ,
TAMAX=O. 9 1 1 T V
2 . 2
3.
(GF)
3.1.a
Nmero de t u b o s p o r h i l e r a
NTHEC=(12tASEC-2tDETEC)/ETEC
S i ES EVALUCSCION entonces
3 . l . b S u p e r f i c i e a evaluar
SE-z b > . 14165 (DETEC/12) YLTEC$NTEHECXNHEC
(PIESXXZ)
3.2 Area d e f l u j o de g a s e s
AFG=ACECtLSEC-NTHEC#LTEC#DETEC/12
(P IESSS2)
3.3 Flux de g a s e s
GG=WG/FIFG
(LB/HSPIEdS2)
4.
C a r a c t e r i s t i c a s p a r a e l f l u j o d e qgua
4 . 1 Nmero d e h i l e r a s p o r donde f l u y e e l agua
?= A
1
4 . 2 W e a de f l u j o d e l a g u a
AFA=3,1416tDITECS*2*NTHEC/576
IPIESS S 2 1
4 . 9 V e l o c i d a d promedio d e l a g u a
(PIE W S )
S i VELA
>
5 entonces
NHFA=ZtNHFA
Se r e p i t e e l p u n t o 4 . 2 y 4.3 h a s t a que VELA
4 . 4 F l u x d e agua
GA=WA/AFA
c : J.
<
(LB/HSPIESSZ)
Temperatura d e s a l i d a p a r a i n i c i a r c a l c u l o s
s i
ES
DISENO
entonces
5.1. a Temperatura d e g a s e s a l a s a l i d a
TG2 ( 1 ) =TGSEC
(GF)
D e FIG. V I I . 1
: HGZ=HGZ(TG2(1))
82=Ql*QRAD
"-
(BTU/LB)
De TAEiLR V I I . 1 : TAZ=TA2(HA2)
S i ES E W L U A C I O N e n t o n c e s
5.1.b
Temperatura del a g u a a l a s a l i d a ( s u p u e s t a )
GF)
TA2=0.8fTAMAX
5.2.b
E n t a l p i a d e l agua a l a s a l i d a
De TABLA V I I . 1 : HAZ=HA2 ( T A 2 )
fEj.3.b
2L=WAt(HA2-HA1)
5.4.b
Bl=Q2-BRAD
5.S.b
Entalpia de gases a a l s a l i d a
De F I G . V I i . l
6.
: TG2(l)=TG2(HG2)
Determinacidn
de
la
d i f e r e n c i a media
logaritmica
de
las
< (TG1-TAZ)
- (TGZ
(I
) - T A l ) 1/Ln
6 . 2 WT=(TAl+TA2)
7.
+ 50
Determinacin d e l c o e f i c i e n t e g l o b a l d e c a l o r
A :
+ (TAl+TA2)
/2
(GF)
lJ
(LB/HtPIEI
FIG.
A.2.2
Calor e s p e c i f i c o , d e F I G . V I I . 3
CP
(ETU/LRSGF)
c1.2.9 C o n d u c t i v i d a d t e r m i c a , d e F I G .
VII.4
147833
(BTU/H%PIEOGF)
'
A . 3
A . 4
F a c t o r de a r r e g l o : FAR=FAR(EHEC/DETEC,ETEC/DETEC,EVO)
Q . 4 A r r e g l o en linea, de FIG. V I I . 5
1.1
1.0 0.9
0.7 0.6
1 . 1
1 . 2
0.8 0.7
1.1
1.0
0.9
1.3
1.2
1.1
UR
(BTU/HtPIESF2tGF)
-t,
FIG VII.7
L=0.093(ETECSEHEC-O.785XDETECSt2)/DETEC
(PIES)
De F I G . V I I . 8 : PC=PC(EXC)
'*
I i
!
O
(o
IS 10 IS C % EXCCSS AI1
I(
15
FIG.
R.4 Presin parcial
De F I G V I i . 9 : PH20=PH20(EXC)
10
1 5
20
25
30
35
E.5 P r e s i n p a r c i a l de l a c gases r a d i a n t e s
PAR=PC
+ PHLO
EJ. 7 F a c k w "t:::"
Fs
p a r a ubtener e l URG
FIG. V I I , 1 1 : K=K(PL9ICOM)
I -
'
-
Values of p,L
- -
B . 8 C o e f i c i e n t e p e l i c u l a r p o r r a d i a c i n de gases
URG
= URSK
iSTEAM,pl4.3)
C : Coeficiente global
U =UCG
de calor
+ URG
9. S i ES DISENO Y 1 = 1 entonces
9 . 1 C l c u l o del a r e a r e q u e r i d a
AR=Ql/UtMLDT
9 . 2 Ncimern de h i l e r a s n e c e s a r i a s
NHEC=AR/(3.14216%DETECtLTECI"EC%NTHEC)
(FIESS2)
. .
CEC=NHEC$NT+iEZt3. t41StDETECXLTEC
(PIEStt2)
10. S i NHEC
. :
10 er*tunces
pur fhctcjr d e p r o f w i d i d a d
?nrrecci&
l Q . 1 F a c t o r de p r ~ f ~ i n t i i d a c ld , e FIG.
VII.ll
: FG=FD(NHEC)
OVER
IL"EC FIG. V I I . 1 1 F a c t o r d e p r o f u n d i d a d
1 0 . 2 C o r r e c c i n a UCG
UCG=UCG#FD
10.3 Correccin U
U=UCG+URG
por c o r r e c c i n d e U
11.
C a l o r t r a n s f e r i d o a t r a v s de l a s u p e r f i c i e
G!l=UtSECfMLDT
12.
C a r a c t e r i s t i c a s d e los g a s e s a l a s a l i d a
12.1 E n t a l p i a
HG2=HGl-G!l/WG
: TGZ(I+i)=TG2(HG2)
l a salida
Q2=Ql+QRAD
T i .! ?
TABLA V I I . 1
ENTALPIA
DEL
238.84
249.06 259.31
135
140 145
269.59
279.92 290.28 300.68 511.13 321.63 332.18
342.79
SSC;. 45
150
i 55 160 165
170
.-iCl0
340
7 c
,id0
360
370
c;E3c1
190
200
390
400
354.17
210 220
425
450
ise. 13
198.29
480
225
ZCi0
1 60
430 470
400
450
sC)o
680 700
327.81 344.93 358.42 371.22 381.79 391.79 400.95 409.43 417.33 426.16 491.72 459.60 444.99 451.73 496.28 460.68 467.01 475. o 1 482.58 486.21 493.21 499.88 503.10 509.34 518.23 3 8 523. E cdal. 98 337.16 544.61
TABLA VI1.3
FKOPIEDADES
DEL
AGGA
PSESION
VARIABLE
62.37
62.37
12 61.39 61.81 61. &a 61. 49 61.37 61.18 51. l e t? 6 E3 1 h0.62 60. 43 60.24 60. 00 59.81 53.56 59.37 59.18 58.87 58.68 58.37 58.06 57.81
62.06
I67 176
257
97.44
38Q 400
2-43 2.16 1.94 1.75 1.39 1.45 1.33 1.22 1. 13 1. O 5 1.05 i i . 92 O. 86 o. 81 i i . 7, O. 72 0. 68 O. 65 O. 62 0. 59 o. 57 O. 5 4 O. 52 o. 49 Ci. 46 0.45 0. 44 O. 43 O. 41 O. 38 0. 36 o. 33 0.32
2.76
1.008 1 004 1.002 1 OOi) u. 999 0. 988 O. $88 O. 998 O. 998 o. 999 0.939 o, 599 1.000 1,000 1.000 1.002 1.004 1. c1o4 1.005 1. CiO6 1.007 1,006 1.008 1.010 1.012 1.014 1.016 1.018 1.021 1.024 1.026 1.030 1. cis8 1 047 1.057 1.069 1 O82
. .
o. 327 o. 332
. 338 C). 3 4 0.348 o.353 O. 358' 0.362 O. 365 O. 3&7 o. 372 o. 375 O. 378 C). 381 O. 381 O. 385 i i . 388 0. 381 0.391
o. 393 0. 393
O. 395 O. 396
o. 393
o. 396
O. 396
0. 396 0.396 0.396 O. 396 0.395 o. 395 0.335 0. 393 0.390 0. 387 0. 382
. .
@F\LJN CGCl, EZ303/ECDACGC, ECDA, 1 , 1 0 0 FRANCISCO KOBLES EXT. 20961 LOG swrI AH S E C C I O N DE C O N V E C C I C I N dF TN I Sf TPF9. ELONOM I COMMON/UNO/i? COMMON/TRES/IW DIMENSION TG2(3) REAL LSEC,LTEC,KMEC,LR,LEC LOG I CAL D I SENO, BAND NAHELIST/DOPEC/ICOM, EXC,PV, TV, WG, TGl,VOLEG, TGSEC,WA, TA1,VOLEA, : > L : M E C , FEIEC,FEEEC, BRAD NAMELICT/DGEEC/ASEC,LSEC,IARREC,LTEC,DETEC,DITEC,ETEC, , . E i i E C D ISENO SOBRE,NTHEC,NHEC, I P
c c
C
c c
C
C C C C
tSttttt$ttttttSfafttt$tt$t*tttt*ttttttttttt*ttttXXttttttXttttttt tft ttS Stt P R O G R A M A P A R A D I S E N A R ttt tlt O E V A L U A R E C O N O M I Z A D O R E S tXS stt StS tttSttS*tS*bttbfttlt*tt~ttttStttXt$tStXttt*ttX*ttt~tS*~*tXXXttX~ READ (5, DOPEC) READ ( 5 ,DGEEC) t t t IMFHESION DE DATOS t t $ t t t t t t S X t t t * * t t X
IF(IP. GE. O ) THEN IP DETERMINA LA EXTENSION DE INFORMACION A IMPRIMIR IP=O = > DATOS Y RESULTADOS PRINCIPALES rp=i =:> I D E M MAS RESULTADOS SUBRUTINAS P R I N C I P A L E S IF=2 => IMPRIME TODOS LOS CALCULOS DE LA SECUENCIA WRITE ( 6 , 7 0 ) ICOM, EXC,PV,WG, WA, TG1 TAI,ASEC, LSEC, IARREC, LTEC, > DETEC,DITEC,ETEC,EHEC FORMAT~lHl,T(/),lOX,D A T O S D E O P E R A C I O N :,/, / / , l O X , E L COMBUSTIBLE UTILIZADO ICOM= , I Z , > / 17X I COM=1 =>GAS NATURAL. /, 1 7 X , I COM=O = :>COMBUSTOLEO > / / , l O X , E L EXCESO DE AIRE EXC = , F 7 . 5 , %, > //,lOX,PRESION EN EL DOMO PV = , F 7 . 3 , PSI, > //,lOX,FLUJO DE GASES WG = , F l 2 . 3 , L E / , > //,1OXsrFLUJO DE AGUA WA = , F 1 2 . 3 , LB/ :> 1 1 , lox, TEMP. DE GASES a LA ENTRADA TG1 = , F l O . 3 , GF > //,lOX,TEMP. DEL AGUA DE ALIMENTACION TA1 = , F l O . 3 , G F , :> / / / / , l O X , D A T O S D E G E O M E T R I A : :> //,lOX,ANCHO DE LA SECCION ASEC = , F 7 . 3 , PIES, :> //,lOX,LARGO DE LA SECCION LSEC = , F 7 . 3 , P I E S , .> / / , l O X , ARREGLOUTILIZADO IARREC= 12, > / , 1 8 X , O -> TRIANGULAR,/,18Xy1 => LINEAL,/,18Xy2 => C.ROTADO, LTEC = - F 7 . 3 , PIES, > / / , lox, LONGITUD DE LSTUBbS F 7 . 4 , PULG DETEC = , :> / / , l O X , DIAMETRO EXTERNO F 7 . 4 , PULG DITEC = , > //, l O X , DIAMETROINTERNO ETEC = , F 7 . 4 , P U L G , 5. // 1 O X , ESPACI AM I ENTO ENTRE TUBOS EHEC = , F 7 . 4 , F U L G ) > //,lOX,ESPACIAMIENTO ENTRE HILERAS IF(DISENO) THEN WRITE (6,92) TGSEC FORMAT(///,lOX,PARA EL DISENO . ) //,lUX,TEMPERATURA PERMITIDA DE LOS GASES TGSEC = , F 1 0 . 3 , GF) > /,17X, A LA SALIDA DEL ECONOMIZADOR ELSE
9o
,
,
42
:,
I _
-- .-
94
>.
% .
. i '
SEC=3.1416~DETEC/lZ.XLTECb"ECSNTHEC~NHEC WRITE(6,94)NTHEC,NHEC,SEC FORNAT(///,lOX,'FAfiA L A EVALUACION : NT!-EC = I3, i / , l o x , 'NUMERO DE T U B O S FOR HILERA = '913, NHEC / I , l o x , "LIMERO DE HILERAS = ' eF12.3, / / , l U X , "SUPERFICIE i?E 'TRARSFEZENCIG SEC
',
7':43 I F
SAND=. TRUE. E N T R L P I A J D E ENTRADA PARA I1MBOS FLUIDOS
i W=6
r ; r<.; 3
r.-F:3?)
I
. . , A -
IF
C C
,HG 11 CALL ENTALP ( TG 1 C A L L ENTALA (TA1 PV,H A 1 1 TEMPERATURA MAXIMA A LA QUE PUEDE ELEVARSE EL AGUA TAMAX=O. 9STV CARACTERISTICAS PARA EL FLUJO DE GASES I F (DISENO) THEN NTHEC= (ASECSIS. -2. tDETEC)/ETEC+O. 5
END IF AFG=ASEC*LSEC-NTHECtLTEC*DETEC/l2.
GG=WG/AFG CARACTERISTICAS PARA EL FLUJO DE AGUAStd#tt##t NHFA= 1 AFA=3.141XDITECtDITECtNTHEC/(4.t144.) VELA=WAXVOLEA/(3600. t A F A ) I F ( V E L A . GT.5 . ) THEN FiFFi=2. ; k f i F A VELA=VELA/Z.
END I F
9
PIHFR=Z. IrJHFA
,-I =WA 1AF A TEMPERATURA M I N I M A A QUE PUEDEN SALIR LOS GASES DE COMBUSTIONSSI
ICOM=I
=>
GAS NATURAL
ELSE
TGM I N=375.
Eh!D IF
TEMPERATURAS DE SALIDA PARA INICIAR CALCULOS I F (DISENO) THEN TGZ ( 1 ) =TGSEC CALL ENTCSLP (TG2 ( 1 ) HG21 BALANCE DE C A L O R t a t t t t Y t # l X f G!l=WG (HGl-HG2)
DZ=iI1+QRAj)
ELSE
TAZ=O. EltTAIYAX
1Ci
14
C
c
C
c:
END I F N IZ C ) CONT I NUE ' T := 1 IF(I.GE.3) GO TO 17 DIF. MEDIA LOGARITMICA DE LAS TEMPS; TEMP. DE PARED APROX. ATML= ( (TGl-TAlil) -(TGT( 1 ) --(A1 1I /fiLOG( (TGl-TAZ) / (TG2 ( 1 )-Tl)> I w= ( - r A 1 tT x i ,'2. t m L L P M A D A A SUEWJTINA PARA DETERMINAR "U" CALL CSTCU(UG,GA,ATML, T i r l ,TAi, TG2,DITEC,DETEC,EHEC,ETEC, >. ICRREC,I L G M , t MEC,FEE,+ L~EC,UCG,UKG,RA,RWT,UTEC, F A S O PE VARIABLE3 SOLO PARA 1:PIF'RESIDN TPEL, COND, CP, VISG,REYG, FAR, UR, HZLF', PL,COMK, RG, TBA, CFA, CONDA,V 1 SCR UCA 1 CALCULO DEL ARER RE[IUERIT)A z . .. hiill. GE HILEiAS NECEdAHIAS lF ( . -i 5ENCI. AND. &A, .D 1TEEN GZ =!?I I' (LIECtATML) :+iEC= (1. tSGERE/IOO. 1 i:AR/ 15.1416*DETEC/12. tLTEC*NTHEC : : . ) CG. 3 FILECz (::r-IEC~EtiEC+2XDETEC) 11 2. O SEX=:. 1416tDETEC/12. SL.TEC*NTHECINHEC EPdn I F COR'RECCICIN 4 "UCG" SI NO. DE HILERAS ES MENOR A D I E Z IF( I r l H E C . LT. 1 0 ) THEN CALL PRGFUN (NHEC, IARREC, FDEC) UCG=FDECbUCG FiG=i./ (UCG+URG) UTEC=1. / I RG +F,A+iiWT+FE I EC+FEEECl END IF EF rYLz. FciLSE. CALCUL3 DEL CALOR TRANSMITXDG A TRAVES DE LA SWERFICIE Et-UTECSCECtATML DETEIMINACION DE TEMF. DE SALIDA POR BALANCE DE CALOR HG2=F!G1-0 1/ WG
17
i :
I=I ti TG2 II ) 1 CFiLL TEMP (HG2, 122=01 tCKAD HA2=C!2/WA+HAi CALL TEMPA (HA2, PV, TAZ) GO TO 14 CONTINUE METODO DE LAS TGS. PARA ACELERAR LA CQNVERGENCIA 1 FENDz(TGZ(3) -TG2(2) )/(TG2(2)-TGZ(l) ORDAzTG2 ( 2 )-PENDtTG2( i 1 TG2 ( 1)=ORDA/ ( 1. -FEND) CALL. ENTALP (TG2( 1 1, HGZ) BALANCE DE CALOR Ol=WG1:(HGl-HG2)
CD=C!l+aRAD
HAZ=Q2/WAtHAi FV, TA2) CALL TEMPA (HAZ, CRITERIO DE CONVERGENCIA IF(ARS(~TG~(l~-TG2(S))/TG2(1)~.GT.iE-3~AND.NI.LT.1~) GO TO 10
NI=NI+l
C C C
. G E . 101 THEN IF(NI PRINT # , N O CONVERGE EL METODO STEP END IF VERIFICACION QUE TEMPERATURAS DE SALIDA ESTEN DENTRO DE LOS LIMITES IF(TGL 1).LT. TGMIN.OR. TA2.GT. TAMAX) THEN IF(DISENO) TtCN PRINT t , EL ECONOMIZADOR ESTA SOBREDISENADO ELSE PRINT * , E L ECONOMIZADOR ES GRANDE END TF PRINT # , L A C TEMPERATURAS SE SALEN DE LOS LIMITES END IF A l , T A Z , G A , G G , V O L E G , V O L E A , D E T E C , D I T E C , CALL CAIPRE(TGl,TGZIi), T ARREC EHEC ETEC,NHEC , A F LTEC, DPLG, DPLA . :1 I Fasu DE VA~IAELES SOLO PARA IMPRESION > TEG V I SG REYG, FFG, TEA, V ISCA, REYA,RUG, A B, FFA, LR, LEC)
4 X X IMPRESION DE KESULTADOS % * # % # # Y * * # % IF!UICENO) THEN W R I T ( 6 , 1 0 0 1 1 00 =CKMAT(lHl,////,SX,RESULTADOS PRINCIPALES DEL D I S E N O ) ELSE WRITE(6,llO) F O R M A T ( I H l , / / / / , S X , R E C U L T A D O C PRINCIPALES DE LA EVALUACION) 110 E b J D IF XRITE (6,1201 TG2 ( 1) TA2, ATML, URG, UCG, UTEC 120 FORMAT(//,lOX,TEMPERATURA DE LOS GASES A LA SALIDA TG2 = I . . F 1 0 . 2 , G F , >.//b l O X , TEMPERATURA DEL AGUA A LA SALIDA TA2 = , F 1 0 . 2 , :>. GF, >//,lOX,MEDIA LBZARITMICA DE LAS TEMPS. ATML = , F 1 0 . 3 ,
URG
= , F 7 . 3 , = , F 7 . 3 ,
:>
UCG
UTEC =
, F 7 . 3 ,
(DISENO) THEN WKITE(6,13O)NTHEC~NHEC,SEC,ALEC 130 FORMAT(////,lOX,EL ECONOMIZADOR DEBERA TENER :, . . / / , lOX, N U M E R O DE TUBOS POR HILERA NTHEC = , I 5 , 3 / / , i O X , NUMERO DE HILERAS NHEC = , I S , 3 //,lOX,SUPERFICIE TOTAL DE T . D E C. SEC = , F l 2 . 3 , P I E S 2 , > //,lOX,ALTURA DEL ECONOMIZADOR ALEC = , F 8 . 3 , P I E S ) END IF WRITE(6,140)Rl,DPLG,DPLA = r F l 8 . 2 , 140 FORMAT(/,lQX,EL CALOR T R A N S M I T I D Q , l O X , Q T > RTU/H, >///,lOx,LA PERDIDA DE CORRIENTE Y LA CAIDA DE P R E S I O N : , .)/ / I O X L A D O DE GASES DPLG = , F l 0 . 4, PULG DE AGUA, ./ 1 1O X LADO DEL FIGUA DPLA = , F l 0 . 4 , PSI) IF(TP. GE. 1 ) THEN
IF
1 so
IMFRESION DE CALCULOC INTEHMEDIOS DEL F'ROGRAMA PRINCIPAL WRITE(6,fSO)AFG,GG,NHFA,AFA,VE~A,G~,~CSl,HGl,T~M~X,T~,HG~,H~2 TCRMAT(lH1,5(/),10X,"REYULTAaOS INTERMEDIOS DEL PROGRAMA', ...' ' PRINCIPCSL', / / I , ... AFG = ' , F l f i . S , " PIEZ', i O X , 'AREA D E FLUJO DE GASES
>.//ir
> / / 3
GG = ' , F l C i m 5 , ' BTU/H-PIE2" DONDE FLUYE EL AGUA "FA= 15, >//,lOX,'AREA DE FLUJO EEL AGUA AFCS = ' , F l 5 . 5 , ' PIEZ', :>//, liiX, 'VELOCIDAD DEL AGUA VELA= ' , F 1 5 , S , ' PIES/S> GA = ,F15.5,' BTU/H-PIEZ", ::./,', I O X , 'FLUX DE AGUA HA^ = * , ~ i s . 5 , BTU/LB*, ~ DEL aGuA DE A L I M E N T . >//,IOX,~ENTALP. BTWLB', HG1 = ' , F 1 5 . 5 , ' > > / / ? I O X ,'ENTALP. DE GASES A LA EN'T. ? , / / > !OX, 'TEMP. MFSX. PERMITIDA AL AGUA T A M A X = ' , F 1 5 . 5 , ' G F ' , > I / l,O X , 'TEMP. PROMEDIO DE PARED TW = ' , F f 5 . 5 , ' GF ' c ', F 1 5 . 5 , ' BTU/LB', ? I / , lox,'ENTALP. DE GASES A LA SALIDA HG2 DEL AGUA A LA !SALIDA HA2 = ',F15.5,' E+TU/LB') P//,IOX,'ENTALP. C I M P R E S I C I N DE CALCULOS F I N A L E S DE L a S U B R U T I N A CGCTU WRITE ( 6 9 170) TPEL COND 9 CP V ISG, KEYG, FAR, UCG, UR, H Z L P , PL,CONK FORMAT(///, lox, 'RESULTADOS F.IrdALES S U B R U T I N A LGTCU', 170 > / / , 1C)X, 'TFYT'. 2E FELICtiLA TPEL = ',F15.5,' GF', :.:.A'/, 1 ' : : X 3 ' CONCUCTIVIDAD DE GASES COND = ',F15.5,' ETU/H-PIE-GF', l o x , 'CALOR ESFEC. 3E GASES CP c f , 15.5, .' BTU/LB-GF', V I S G = ' ,FlS. 5 , ' LB/H-PIE' ' , / ldX I ,3 'VI5COVZDAD 3E G A S E S ' : , / Il y O X , 'REYNOLDS D E GnSES RE''G = ' ,F15.5, = ",F15.5, FAR :* ,'! 1 O X ' FACT%? DE ARREGLO >.//910X,'CUEF. POR CONV. DE GASES UCG = ',F15.5,' BTU/H-F'IE"-GF' >,//, lox, 'COEF. RASE FOR RAD. UR = ' s F i 3 i . 5 , ' BTU/H-PIE2-GF ::,7,,'/5 :<;X,'LOI..G. MEDIA DEL HAZ RAD. HZLP = ",F15.5,' PIES', ::,//, S ' X , 'F'AOD. PRESION.LONG PL = ' , F i 9 . S , ' ATM-PIE' >.//, I C'X, ' FRCTOK t* CDMK = ",F15.5) !JRITE ( 6 , l B C ) ) URG, RG, TEA, CPA, CDNGA, VCCA, UCA, n"A, SWT, U T E C I80 CCISMAT!/,lOX,"CCEF. F'Oh: KAD. RE GASES URG = ',Fl5.5, > RTlJ,/Y-.?IEZ--GF' 3 / I 3 l O X , ' R E S I S T . POR PEL.DE GASES RG = ' , F l S . 5 , ' H-PIEZ-GF/BTU >,' / / , lOX, 'TTEMP. PROM. DEL AGUA TBA = ' , F 1 5 . 5 , ' GF', *.//,I C i X , 'CALOR ESP. DEL AGUA cpfq = ',J=15.5,' BTJ"-LB" k7Li/H-PIE-GF', :>,,', , ,.;CiX, :' E:DI\ICUC. DEL FiGUA CONDA = ',F5.5,' ::.,/!? i O X , 'VISCOSIDAD DEL AGUA YICCA = ',F15.5,.' LBii-i-PIE', ' ' , I / ,? O X , 'tTJEF. FGR LADO DEL GGUA UCG = ' ,F15.5,' BT/H-PIE2-GF' >'3,.',', l ( : ) X , 'RESIST.POR PEL. AGUA RA = ' F15.3, ' H-PIE2-GFlBTU >,', I / , 1 0 x 5 "RESIST. POR EL TUBO RWT = ' F15.5, ' H-PIEZ-GF/BT XI',//,lQX,"COEF.GLORAL DE f. DE C . UTEC = ',F15.5,' BTWH-PIE2'GF' 1 END IF I F (IF'. GE. 1 ) THEN WRITE(6,400)TRG, VISGSREYG,FFG,DPLG,TBA,U1SCA,REYA,RUG,4,B, IMPRESION DE RESULTADOS DE SUBRUTINA DE CAIDA DE PRESION > FFA L R LEC,DFLA F O R M A T ( / / / , l O X , "RESULTADOS SUBRUTINA CAIPRE',//, 400 TBG = ',F15.5,' GF", >./I lOX, , 'TEMP. PROMEDIO DE GASES VISG = ' , F 1 5 r S , ' LB/H-PIE', >,'I9 i O X , 'VISCOSIDAD DE GASES REYG = ' , F l S . 5 , >//,IOX,'REYNnLDS DE GASES .FFG = 'rF20.7, > / I 3lOX, 'F9CTOR DE FRICCION DPLG = " , F 1 0 . 5 , ' PULG HZO", : : . / I1 , 0 Y , 'PERDIDA DE T I R O
l o x , 'HILERAS
',
, ,
>//,lOX,'TEMP. PROMEDIO DEL AGUA l O X , 'VISCOSIDAD DEL AGUA >//, 10x5 'REYNOLDS DEL AGUA 3 / / , i C ) X , 'RUGOSIDAD D E L ACERO *:/I 1O X ' FACTOR A :./ / 1 O X ' F A C T O R 2 :?//, I C X , 'F-;?i2TCT; CC ,FRZCION :C./ / C)X ' LONG. TOTAL RECTA ?//,lOX,.'LONG. TOTAL EQUIVALENTE > / / , ICiX, 'CAIDA DE PRESION DEL AGUA END IF DEBUG I N I T END
>//5
c
C
c
C
SUBROUTINE C G T C U ( G G , G A , A T M L , T W , T A l , T A 2 , D I T E C , D E T E C , H E C , >.ETEC, I AR'REC, ICOM, KMEC,FE I EC,FEEEC,UCG,UKG, KA, RWT, UTEC, P4SO DE V A R I A B L E 3 SoLC PARA iilPRESION TPEL,COND, CF',V I SG 9 KEYG, FAR,UR, HZLP, PL, COMK, RG, TEA, CPA, -. CCFJDA Y I 3CA L 3 C A1
#';:CG&$O.27) C5 =L;CGltFAR
CALL CEPR ( ATML, TW UR) CFSLL A2L.P (IARREC, ICOM, EHEC,ETEC,DETEC, HZLP, EXC, PL) CALL CTEK ( I COM PL COMK 1 URG=URtCOMK %=l. / (URG+UCG) TRA= (TAl+TA2) /2. CFA=1.187134-0.1385578E-2STBA-0.2803148E-5*T~A*S2
, ,
>
IDITEC/12.) S S O . 2SVISCA$;Y
RWT=0.5t(DETEC/I2.)tALOG(DETEC/DITEC)/KMEC UTEC=l.O/(RG+RA+RWT+FEIEC+FEEEC) T F ( I F . GE.2) THEN WRITE(6,377> A T ; Y I L , T W , T P E i , C O N D , C P , V I S G , R E Y G , F A R , U C G , U R , H Z L P , ? F'L COMK,L'%, TEA, CFA,CONDA, V ISCA, UCA, RA, RWT, UTEC FORM~T(///,'RESULTADOS INTERMEDIOS SUBRUTINA CGTCU', >//, l o x , 'ATWL = . ' , F 1 5 . 5 , ' G F ' ,
G F ' ,
GF",
t7Tii-P:E-r
BTU/H-PIEZ-GF', H-FIE3-GF/BTU7, G F ' , BTU/LB-GF', BTLl/H-PIE-GF' LU/H-PI E' BTU/H-PIEZ-GF', H-F'IE2-GF/BTU", H-PIEZ-GF/BTU', HTU/H-PIE2-GF7 1
C
C
SUBROUTINE C~IPRE(TGl,TG2,T~l,T~2,GG,VOLEGIVOLEG,VOL~A,DETEC~DITEC, >.IARREC, EHEC, ETEC,NHEC, "FA, LTEC,DPLG, DPLA PASO DE VARIARLES SOLO PARA MPRESION >,TBG,VISG,REYG,FFG,T~A,V~~C~,~EYA,~UG,~,~,FF~,L~,LEC)
c:
t$$
SL'E(RUT1NA PARA DETERMINAR LAS CAIDAS DE PRESION CGMMON/L.lb4Z)/ IP REAL LYEC, LR, LEC TEO- :TGl+TGZ)/2.
VISG=3.60125303E-2+6.32~8~~~~E-5fTBG-2.4~16~0~9E-8~TBG442 '~i-8.83382296E-l2tTBGtt3-1.29117h37-l~#TBG#*4
REYG=GGtDETEC/(12. tVISG) TF (TARREC. EO. 1) THEN / < (ETEC/DETECFFG=(REYGSt(-Orn 15) 1$ (O. 044+0.08#(EHEC/DETEC) 1 . ) S t (O. 43+1.13tDETEC/EHEC) 1)
C '.
ELSE
FFG=(REYGtt(-O. 16))t(0.25+(0.1175)/((EIEC/DETEC-l)S41.08))
END T e
DPLG=9.37E-.ll;)tFFGtNHECS ibG**23 SVOLEG TE&= tTAl+lAZ: /2. V~CC~=0.21061~1-3+139.07i/TBA YEYA= !C:TECXGA) / (12. IVI5CA) gcs~C:= ..3!3i>IS/DITEC P=!Z7530./REYA) # $ l b (7./REY~)t$O.9+0.2/~HUG)))SSlb n = ( 2 . 4 5 7 1 ~ ' ' C G ( l . , ' C
F ET 1 1 RN
c. c
DEEI.JG T PJ I T
c z
C
C C C
EIJD
FD= 1.0
ELSE IF (IFIRRE . E Q . 1)THEN
ALOGCHHILi
FD =0.635255
ELSE
+ 0.138881
FD = 9.65281 -r 3.15~5763 jk ALOG (HHIL) END TF IF { IP.X!.? ) T!?E:(J !:RITE r!G9 3co) F D
%?O
(//,
13X;FACTOR
DE PHQFUNDiDUD
.',Fl5.5,/)
DEBUG I N I T
3JD
c: c
C C C
t$t
C C
COMMON/UNO/IP COMMCN/TRES/XW S I EL COMEUSTI~ILE ES GAS NATURAL: ICOM = 1 S I EL CGMBUSTIRLE ES COMBUSTOLEO: ICOM = O IF ( I C O M . EO. 1 ) THEN COM~~=0.1586656667+1.247222tPL+2.4027777777f~L~*2>, 8. (-jt=n=n=en=n==s= .~~~~~~~~tPLff3+6.38888888SSPL~$4
EL-SE
COMK=0.l6+1.21619SPL-~.09~47~1~~4$PL~S~-~.7619~4762~PLSS3+
) .
O. f 7 7 6 1 9 0 4 7 6 L t P L f t 4
END IF
(//
,5 X ,
,F15.5,
/',
E10.4, / 1
C
G
DEGUG IN I T END
C
C
SIJRRUUTTNE CFi!CUI*U DE C C
aZLF ii7Fi"E,
ICOM,E~FG,EfFG,ODH,HZLP,EXIPL)
COMYON/UNO/ 7" COMMON/TEES/TW C IAciRE = TU5NTIFiCADOR DE ARREGLO C IARRE = O QRREGLD TRIANGULAR z IARRE = i ARREGLO EN L I N E A 2 IGRRE = L1 HhREGLO CUADRADO fiOT4DO {IARRE.ED. 1 . OR. IPiRRE. EO. 2) THEN
HZLP = O. 0%
(EDFGtETFG-O. 785tODHt*Z>/ODH
= O. O93 t O. 866bETCG*t.2-0.78"J XODHStZ)ODH END IF IF TCOM. EB.3 ) THEN FC07 0.146397144 + B . S 5 3 Y 6 2 7 9 E - 4 t E A C - 2 . ~ ~ 1 ~ 9 3 S E - 4 ~ E X C $ ~ Z ' +1.31905458E-5fEXC*d3--1 b Z l K 7 1 S E - 7 S E X C t S 4
.'.
ELSE HZLP
PHLO= 3 , 1 1 7 9 2 4 2 4 ~ - ! . 5 8 ~ 7 0 ~ = 5 ~ - ~ * X C + 6 . O 6 ~ 2 8 2 ~ 9 E - 5 S E X ~ ~ ~ 2 - 1 2-c~77503E-lfEXCXt3+2.0590906E-8SEXCI*4
Z' _. <=Y -
9.39506292E-2 4.157722E-4XEXC-8.82223248E-5SEXCtt2 +4.44031321E-bSEXCSt3-5.9C~989657E--8*EXCS#4 PH20 = 0.203963963935-1.62613~92E-3XXC+i.8~~~4~5E-5~XC~#Z > -6.5891 0722E-7tEXCtt3+1.0135409E-8tEXCS $4 END IF PAP = PCO2 + PHiU PL=PfiRXHZLP IF(IP.EQ.2)THEN WRITE(IW, 1000)EDFG,ETFG,ODH,PCO2,PHZ0,PAR,HZLPIPL FORMAT ( / / , lox,' RESULTADOS ( "AZLP" 1' ,2t / 1 1 O00 A 3 X , 'EDFG =' F15.5, ' PULG' /, :.5X 'ETFG =' F15.5, 'PULG' 1 , > 5 X , ' ODH =' F i5 . 5 , ' PULG' , I , >5X,'PC02 = ' , F 1 5 . 5 , ' A T M 7 , / , :.ciX, "PH20 = ' , F i S . 5 , ' A T M f , / , : > ! 5 X , ' PAR i . ' , F 1 5 . 5 , 'CSTM',/, X5X, 'HZLF = ' , F 1 5 . S , ' P I E ' , /, . ./ax, , c ' PL =' Flci.5 , ' ATM-PIE" 1 ) END I F RETURN DEBUG INlT
1
>
--, . c r -.LJ-
.-
-.
,
,
,
, ,
END
C C
C
, ,
>.e.
.:
*',
END
C
W E R O U T I NE ENTALP C T it 1 C C SUERUTINA PARA EL CALCULO DE LA ENTALPIA DE GASES DE COMBUSTION C COMMON/UNO/ I P COMMON/TRES/ IW H =--8.571479 + .2468625 tT + ,2205339E-4 tTtt2 IF IIP.GE.2; MRITE (IW,40CiO)H,T 4000 FORMRT (//,IC)X,'EENTALPIA DE GASES = ? , F 1 5 . ! 5 , ' B T U / L B ' , / , .... 10X,'EVALUADA A TEMP = ' , F l 5 . 5 , ' G F ' ) RETURN r: DEBUG iNIT END C C C SUBROUTINE TEMP CHH,TT)
C SUERUTINFI PAR& EL CALCULO DE LA TEMPERATURA DE GASES DE COMBUSTION C COMMON/UNO/ I P COMMON/TRES/ I W TT =38.41736 + 3.907648 S H H - .8874517 E -3 ttiHtS2 IF (IP. EQ.2 ) WRITE (IW,3000) TT, HH 5000 FORMAT C//,lOX,'RECLJADOS SUBROUTINE TEMP', t/,lOX,'TEMPERRTUf?A DE GGSES = ' , F 1 5 . 5 , ' G F ' , / , > l o x , " P A R A LA ENTAL..PTA DE = ' , F l ! 5 . , 5 , ' BTU/LE') RET I ! 9N C CEF!.!L; iNIT
z? !D
i
-_
SUEROUTINE ENTALA(TA,PV,HA) C C SURRUTINA PARA EL CALCULO DE LA ENTALPIA DEL AGUA C CONNON/UNO/ I F CONNON/TRES/ I W HA=-0.3lSZlO6E2+0.2791~~7E-it~V-0.125E-6*PVt~~+0.9979~l~#TA IF (IP.GE.2) WRITE (IW,600C))HA,TA 6000 FORMAT (//,lOX,ENTALPIA DEL AGUA = , F l S m 5 , B T U / L B , / , .10X,EVALUADA A TEMP = , F l 5 . 5 , GF) C DEBUG INIT END C C SUEROUT I NE TEMPA (HA, P V TA 1 C SUERUTINA PARA EL CALCULO DE L A TEMPERATURA DEL AGUA
COMMON/UNO/ i P CDMMGN/TRES/ iW /O. 9979313 12SE-btPVtt2) TA= (HA+O. 5 1821O6E2-C) 2791667E-2#PV+Om IF (TP.EQ.2) WRITE (IW,7000)TA,HA 7000 FORMAT ( I / ,lOX,RESULTADOS SUBROUTINE TEMAGUA t/,lOX,TfEMPEEATURA DEL AGUA = , F 1 5 . 5 , G F , / , > lOX,PARA L ENTALPIA DE = , F i 3 . 5 , BTU/LB) RETURN C DEBUG INIT END
IARRE,F A )
C DETERMINACION DEL FACTOR DE ARREGLO S t t S t S t t t S t S S S S # # * d C IMPLICIT REAL(L) COMMON/TRES/IW / (X3-Xl) 1# . (XZ-Xl) +Y1 ERPO (Y3,Yi, Xl, X3, X2)=( (Y3-Yl) iF(REYN.LT. 1000.0.AND. 1ARRE.EQ. 1)THEN CALL REYlL(EDFG,ETFG,OD,FAl) CALL REY2L ( EDFQ ETFG, OD, FA2 1 FA=FAl-(FA2-FAl) / (2000. -1000.) t (1000. -REYNI ELSE IF(REYN.LT.20000.0.AND. 1ARRE.NE. 1)THEN CALL REY2T (EDFG, ETFG, OD, FAZ) CALL REY8T (EDFG, ETFG, OD, F A 8 1 FA= (FFiL-FA8) / (2000. -8OOC). 1i r(REYN 2000.) + FA2 ELSE I F ( FiEYN.GE. 1000. O. AND. REYN. LT.2000. O ) THEN C C I L L KEY 1L EDFG, ETFG, OD, FA11 CAL-L REY2L (EDFG, ETFG, OD, FA21 FA=EWO(FAZ,FA1 1000.O, 2000.0,REYN) ELSE IF(REYN ,LT EIOOO. O. AND. REYN.GE .LC)00. O 1THEN EQ. 1) THEN IF (IARRE. CALL REYZL (EDFG, ETFG, OD, F A 2 1
CALL REY8L (EDFG, ETFG, OD, FA81 FA=ERPOIFA8,FA2,2000.0,8C~~~.0,F:EYN) EI5E T R L L FEY2T (EDFG, ETFG,OD, FAZ) CRLL HEY8T iEDFG, ETFG,OD, F A 8 1 FR=ERPO !CFs2, F A ! , 8000.0 , 2000. O, REYN) E W IF ELCE I F C REYN.LT .20000.O. AND, HESN.GE.E3OC)O. IF (iARRE.E2. :)THEN CALL REY8L (EDFG, ETFG,L I D , FA81 CALL RESOL E D F G ,ETFG,OD, FA201 FA-ERPO i F A 3 0 , FA8,BOOO. O, 20000. REYNI
O) THEN
CALL RE20T (EDFG, ETFG,OD, FA20) F9=CRPO(FA8,FAiO, 20000. ,8000.0,REYN) END IF ELSE IF(REYN. LE.40000.O. AND.REYN.GE. 200005 THEN IF (IARHE.ER. 1)THEN CALL REY8L (EDFG, ETFG,OD, FA8; CALL riE20L IEDFG,ETFG,C I D , FAZ0 1 F4= (FA?O-F9R) / (20030. --8000.) t (REYN-20000.) +FA20 ELSE C F i L L REZOT (EDFG, ETFG,OD, FA201 CALL RE40T (EDFG, ETFG,OD,FA40) FA=ERPO ( F A 2 0 , FA40,40000., 20000. REYN) END IF ELSE WRITE IIW,8020) 8020 FORMAT(//,lOX,NUMERO DE REYNOLDS MAYOR DE 40000, FA = 1 . 0 ) t / , l O X , F A Z T O R DE ARREGLO SUPUESTO FA=1.O END T F RETURN DEBUG INIT C END C
C
C
SUBROUTINE REY2T (EDFG, ETFG, OD, F A 2 1 Pf3RA REYNOLDS IGUAL A 2000 Y ARREGLO TRANSVERSAL IMPLICIT REAL ( L ) COMMON/UNO/IP COMMON/TRESIIW L20D=EDFG/OD LlOD=ETFG/OD IF (LZOD. LT. 1 . 2 5 . OR. L2OD.GT. 3 . 0 3 THEN W, 7500) L20D WRITE ( I 7500 FORMAT(//,lOX,VALOR DE FACTOR DE ARREGLO FUERA DE RANGO, t / , l O X , V A L O R DE FACTOR DE ARREGLO SUPUESTO, b/, l o x , S L / D = , F i 5 . 5 , / ) END IF 3.00) THEN IF(LlOD. (3T. WRITE (IW,7 5 0 0 ) LlOD END IF
FA2=1.19!3926 + 0.04948364$LlOD + 0.005964804tLlODSS2fQ.08952478tL20D IF (IP.EB.2)THEN WRITE (IW,7502)FA2 7502 FORMAT ( / / 9 lox,'FACTOR DE ARREGLO = ' ,Flf1.5, / I END I F RETURN END
C
SUBROUTINE REYST (EDFG, ETFG,OD, F A 8 1 PARA REYNOLDS IGUAL A 8000 Y ARREGLO TRANVERSAL IMPLICIT REAL (L) COMWON/UNO/IP CC?MMON/TRES/IW L20D=EDFG/OD L1 OD=ETFG/OD FF (LZOD. LT. 1 . 2 5 . OR. L20D.GT. 3.03 THEN WRITE (IW,7590) WRITE (IW,7600) L2OD,LlOD END I F IF(LlOD. GT. 3.00) THEN W R I T E (IW,~L~~C)) WRITE (IW,7600) L20DIL10D END IF
FA8=1.110347-0.008204023~L2OD~LlOD
IF(IP.EQ.2)THEN WRITE ( I W, 7602) L20D9 L lOD, FA8 END I F
7590 FQRMAT(//,lOX,'VALOR DE FACTOR DE ARREGLO FUERA DE RANGO", t/,lOX,'VALOR DE FACTOR DE ARREGLO SUPUESTO') RETURN END
SUBROUTINE RE20T (EDFG, ETFG, OD, FA201 FARA REYNOLDS IGUAL A 20 000 Y ARREGLO TRANSVERSAL IMPLICIT REALtL) COMMON/UNO/IP COMMON /TRES/ I W L20D=EDFG/OD LlDD=ETFG/OD I F(LZCID. LT. 1 . 2 5 . OR. LZOD.GT. 3. O ) THEN WRITE (IW,7690) WRITE (IW,7700) LZOD,LlOD END IF IF(LlOD. GT.J. 00) THEN WHITE (ibJ, 7 6 9 8 ) WRITE (IW,7700) L20D,LiDD
END IF
F~20=1.125053-O.OQ8282a2itLiOD+0.01789XLlOD**~-
#O. 17235186XL20D IF ( IP. E a . 2 ) THEN WRITE IIW,7702) L20D,LlOD,FAZO E P ! D IF 7530 FZRMAT(//,lOX,'VALOR DE FACTOR DE ARREGLO FUERA DE SANGO', i k I O X ' ?IPLOR DE FACTOR DE ARREGLO SUPUESTO' 1 7700 "ORMAT (//,10X,'LL20D = ",F15.5,/,10X,"LlOD =",FlO.6,/) 7702 FORMAT (//,1OX,'LL20D = ' , F 1 5 . 5 , / , 1 O X , ' L 1 0 D =",FlO.&,/,lOX, S'FRZOT = " , F l 5 . 5 , / ) RETURN END
,'.
SUEROUTINE REBOT (EDFG, ETFG, UD, FA401 PARA REYNOLDS IGLIAL A 40 O00 Y ARREGLO TRANSVERSAL IMPLICIT REAL ( L ) IF' COMMON/'JNO/ CrjMMCjN !TRES/ I W L"OD=EDFG/OD L.1OD=ETFG/OD . 2 5 . OR.L20D. GT. 3.O )THEN IFtL20D. LT. 1 WRITE (IW,7800) L20D,LlOD END IF IF(LlQD. GT. 3.00) THEN WRITE (IW,7800) LZOD,LlOD END IF FA4O=l.133740 O. 065ZlX)5tLlOD + O. O2892 1790SL1OD8 t2.liC).065094451L2OD IF (IP.EO.2)THEN SJHI TE ( I W, 7802) LaOD,L lOD,FA40 ELSE END IF ( / /, 1 OX ' VALOR DE FACTOR DE ARREGLO FUERA DE RANGO" 7900 CC)RMAT X / , l O X , ' V A L O R DE FACTOR DE ARREGLO SUPUESTO', = ' , F l S . S , / , l O X , ' L l O D t / , l O X , ' L L 2 0 D = ' , F 1 0 . 6 , / ) = ' , F 1 5 . 5 , / , 1 0 X , ' L l O D = ' , F 1 0 . 6 , / , l O X , 7802 FORMAT (//,lGX,'LZOD S'FA4OT = ' , F 1 5 . 5 , / ) RETURN END
C
C
SUEROUTINE REYlL(EDFG,ETFG,OD,FAl) PARFI REYNOLDS IGUAL A 1 000 Y ARREGLO LINEAL IMPLICIT REALIL) COMMON/UNO/I P CCMMON/TRES/IW LZOD=EDFG/OD LlOD=ETFG/OD IF(L20D.LT. 1 . i.OR.L20D.GT.2.0)THEN WRITE (IW,7900) L20D,LlOD END IF IF (LlOD. LT.3.O) THEN +1.5835290tALOG(L20D) FA1 = (3.37O8869-O.O0541289SfiLOG (LlOD) IF ( I P . EQ. 2 ) THEN
WRITE (IW,79O2) LZOD,LlOD,FAl END IF ELSE IF (LlOD. GT.4. O) THEN WRITE (IW,7900) LZOD,LlOD F A 1 = Q.4632277+O.Q4011085~ALOG~Ll~D~+O.898~~93~ALOG~L2OD~ IF (IP. EQ.2 ) THEN WRITE (IW,7902) L20D9L10D,FA1 END IF ELSE FA1 = O. 4631277+O.0401 lO85tCILOG(LlOD) +O. 89823958ALOG (L20D) I F (IP.EQ.2)THEN WRITE (IW,7902) LZOD,LIQD,FAl END IF END IF 7900 FORMRT(//,lOX,'VALOR DE FACTOR DE ARREGLO FUERA DE RANGO', #/,lOX,"VALOR DE FACTOR DE ARREGLO SUPUESTO', = ',Fl5.5,/,10X,'LOD = ' , F l O . , / ) S / , l O X , ' L L Z D I O X , 'L20D = ' , F l J . S , / , lOX,'LlOD = ' , F 1 0 . 6 , / , lox, 7902 FCISMAT ( / I 7 #'FAIL = ' , F 1 3 . 5 , / ) RETURN END
C C
ETFG, OD, FAZ) SUBROUTINE REYZL (EDFG, PAFA REYNOLDS IGUAL A 2 OOQ Y ARREGLO LINEAL IMPLICIT REALCL) COMMON/UNO/IP COMMON/TRES/IW L20D=EDFG/OD LlOD=ETFG/OD IF(L20D.LT. lm1.OR.L20D.GT.2.0)THEN WRITE (IW,7910) L2OD,LlOD END IF IF (I-lOD. LT.3. O) THEN FA2 = O. 6652086-0.O5921O51tALOG (LlOD) +O.7798426XALOG (LZOD) Ea.2)THEN IF (IP. WRITE (IW,791Z) L20D,L1OD9FAZ END IF GT. 4. O) I;-iEN ELSE IF (LlOD. WRITE (IW,791O) L2OG.LlOD FA2 =O.6342263+0.002249824tCILOGILlOD) +O.73292366ALOG (L2OD) I F I IP. EQ.2)THEN WRITE (IW,7912) L20D,LlOD,FAZ END I F ELSE FA2 =0.6342263+0.002249824t~L~G(LlOD)+0.73292~6~~LOG(L2OD) IF f IP. EQ.2 ) THEN !JRITE (IW,7912) L20D,LlOD,FAZ END IF END IF 7910 FORMCIT(//,lOX,'VQLOR DE FACTOR DE ARREGLO FUERCI DE RANGO', t/,lOX,'VALOR DE FACTOR DE ARREGLO SUPUESTO', t/,lOX, 'LZOD = ' , F 1 5 . 5 , / , 1 O X , ' L l O D = ' , F l O m 6 , / ) , F l S m 5 , / ~ 1 0 X , ' L l O D = ' , F 1 0 . 6 , / , 10x9 ' 9 1 2 FORMAT ( / / , 1 0 X , 'L20D = '
*'
C
C
,F15.5,
/1
ETFG,OD, FA81 SUBROUTINE REY8L (EDFG, PARA REYNOLDS IGUAL A 8 000 Y FSRREGLO LINEAL IMPLICIT REAL(L1 COMMON/UNO/IP COMMGN/TRES/IW L20D=EDFG/OD LlOD=ETFG/OD IF(L20D.LT. 1 . 1 . 0 R . L Z O D . G T . Z . O ) T H E N WRITE (IW,7920) L20D,LlOD END IF IF ILlOD. GT. 9.5) THEN WRITE (IW,7920) L20D, L1OD + O m5031302tALOG (L20D) FA8 =O. 9424157-O.143O187tALOG (LlOD) IF (IF. EQ.2 ) THEN WRITE (IW,7922) L20D,LlOD,FA8 END IF ELSE 10D) +O. 50313O2mLOG (LZOD) FA8 =O. 9424 157-0.1430 187tALOG(L IF (IP.EQ.2)THEN WRITE (IW,7922) L20D,LlOD,FA8 END IF ' END IF 7920 FORMQT ( / / , 1 OX ' VALOR DE FACTOR DE ARREGLO FUERA DE RANGO* S/,lOX,"VALOR DE FACTOR DE ARREGLO SUPUESTO', t / , lOX,'L20D = ' , F 1 5 . 5 , / , lox,'LIOD = ' , F l 0 . 6 , / ) 7922 FDRMCST ( / I 3lox,'LZOD = ' , F l 5 . 5 , / , l O X , 'LlOD = ' , F 1 0 . 6 , / , .J('FA8L =*,Fl5.5,/) RETURN END
lox,
SUBROUT INE RE2OL (EDFG, ETFG,OD, FA20 1 PARA REYNOLDS IGUAL A 20 OQO Y ARKEGLQ LINEAL IMPLICIT REAL(L) COMMON/UNO/IP COMMON/TRES/IW L20D=EDFG/OD 1 -1 OD=ETFG/OD . 1 -OR. L20D.GT. 2.O ) THEN IF(L20D. LT. 1 WRITE (IW,7930) L20D,LlOD END IF GT. 4. O. AND. LlOD.LE.9.5.)1THEN IF(LlOD. LT.3. O. OR. (LlOD. FFI20=1.043258-O. 194622WLOG ( L I O D ) +d. SOF387SALGO (L20D) IF ( IF. EQ. 2 ) THEN ljRI TE I W , 7932) L20D,L i OD, F A 2 0 Z P J D TF ELSE IF ( L - I O D . GT. 9.5) THEN WRIT? f:W,79ZC)) L3CG,LiOD FAZ'O=I.195472 -C).32Z067XALOG(LlClD) +O. 449914tALOG(L20D)
'
END IF END IF
DE FACTOR DE ARREGLO FUERA DE RANGO', # / 3 1 C ) X , 'VALOR DE FACTOR DE ARREGLO SUPUESTO', $/,lOX,'L2OD = '9F15.5,/,1ClX,"L10D =",F10.6,/) 7932 FURMCST (//,10X,'L2OD = ' , F 1 5 . 5 , / , 1 C ) X , s L 1 0 D =",F10.6,/, lox, b'FFAZOL = ' , F l " J . f i , / ) RETURN END
7930 FORN4T(//,lOX,'VflLOR
c; C
SUBROUTINE CEPR (ATML, TTUB, UR)
C
C C
##$CALCULO DEL COEFICIENTE EASE FOR RfiDIACION
Sf***S%*S*
COMMON/TRES/IW ERPQ(Y3,Y1 X 1 , X 3 , X2)=((YZ-Yl) / (X3-Xl) 1t (XZ-Xl)+Yl IF(TTUB.LE.SOO.C).AND.TTUB.GT.O.O)THEN URC~=-8.79397253E-01+2.~142~~38-~3XATNL+5.71431~8~E-07~flTNL~~2 UR5=2.577t4e44+7.47442~45E-C)4*ATML+4.~729O797E-O6*ATML**2>. 1 . 9 7 0 1 9 2 9 E - 0 3 ~ A T M L t ~ ~ + ~ . ~ l 9 9 6 2 l E - l 3 ~ ~ T N L ~ ~ 4 UR=ERPU ( U R 5 , URO, O. O, 500.O, TTUB) ELSE I F (TTLIE. LE. 1000.0.AND. TTUB.GE.500. O) THEN UH5=2.57714844+7.4744~~45E-O4~ATML+4.2729O797-~&*ATML~~Z> 1.9701929E-09XATMLb*3+3.519962lE-l3*ATML%*4 UR1025.~4786987+4.76264954E-03SATML+8,41449946E-07*ATHL~*Z > -4.21550794E-10SATMLbt~+8.371~8161E-l4bATflL#t~ UH=ERPO(UR10,UH5,500.0,1000.O,TTUB) LE. 1500. O. AND. TTUB. GE. 1000.O) THEN E L . J E I F (TTUR. UR!3=5.~4786987+4.76264954E-0StATML+8.41449946E-O7~ATML~~~ > -4.~1550794E-l0XATML~*~+8.~71~8161-14*ATML$t4 Ukl5~1.03945923E01+5.41~53~~~E-C)3~ATM~-7.7~066414E-~7~ ? ~TM~~tt2+8.51287041E-l~$AT~L~~~-~.~6~~85~7E-l~~~T~L UR=ERFO(URI5,URlO, 1000.0, iSOO.O,TTUB) ELSE I F ~ T f U E . L E . 2 0 0 0 . O . A N D . T T U B . G E . 1SOO.O)THEN URl5=1.O3945923E01+5.41~5~~~6E-O~#GTML-7.7~~66414E-~7~ ? , ATMLSX2+8.51287041E-l~b~TM~~*~-2.~6~885~7~-13tATML*t4 U F I L O ~ I53$5031E01+4.96822596E--03tATML+5.79981133E-07tATML . > tX2-1.93352889E-iOXATMLtS3 UH=ERPO(IJF!20,liR15,15OO. O, 2OOO.O,TTUB) ELSE I F (TTUE. LE.2500. O. AND. TTUB.GE. 2000. O ) THEN LJR30~1.5395031E01+4.95822596E--03tATML+5.79981133-07~ATML ? tX~-1.93~52839E-l0tATMLtX~ 11925=1.999!31248EO1+4.78935242E-03tATML~+Z. E4519047E-06*ATML
':.
ttZ-Z.4101SV96E-095ATMLII~
'JR=ERFO (UF:35, UJR20,2~:)30.;S,ZfiO. O, TTUB)
ELTE
8000
EETlJRN
3P!w
END
,CGCFWL.ECONDMI
E. I D
I N TPFS. ECONOMI
. .*--
'
1-1
I I
...
XIi3.3
INDICE
1 . -
2 . -
ENTRADA AL PROGRAMA
3 . -
3 . 1 . -
DATOS DE OPERACION
3 . 2 . -
DATOS DE GEOMETRIA
LA
szxiicla
PROPONEN GANAPATHY
BAiCECI.:
A N 3 YIL-COX
EN "STEAM IT'S
EL
F'R'OGRAMA
DISEENO,
LV"
U OTRO METODO.
PARA ANEOS CASOS EVALUACION U DISENO SE SUPONEN CONOCIDAS LAS CARACTERISTICAS. UEGMETRIC4S COMO SUN : EL ARREGLO, EL ESPACIAMIENTO ENTRE
METODO
DE EVALUACION: DE DE
DE
LAS EL
CALOR,
LOS FLUIDOS A LA SALIDA (GASES Y AGUPI)~ ESTO ES CON LOS DATOS MENCIONADOS EN EL
ES TRANSMITIDO.
ADEMGS
EL
PCIRRAFO DE
ANTERIOR IIILERAC
9
NUMERO
L A SALIDA Y
POR CONVECCION
Y
#
WDIACION ENTRE TUBOS, CON ESTO SE CALCULA LA TEMPERATURA DE LOS GASES r? LA SALIDA j
A
VUELVE CUANDO
REPETIR
L A CONVERGENCIA
,
DE
CE
OPERFICION
REAL
LA
TEMPERATURA DE
DE
SALIDA
SI LAS
CONDICIONES GEOMETRIA
SALIEA
SEGUN
CONVENGA,YA
METODO
AGUA,
I) DISENO:
TRANSFERIR LOGRAR
AL
TAL Y DE
SE
DETERMINA DE
FARA
TKANSFERENCIA.
ADEilAS
DE LAS TEMPERATURAS Y
EL AREA
REDUERIDA
CON
FARA LOERAR LA CONVERGENCIA SE UTILIZA EL METODO DE LAS TANGENTES, CON UN MAXIM0 DE DIEZ ITERACIONES,AUNQUE GE EN LA TERCERA I T E R A C I O N . SE HA VISTO QUE EL METODO CONVER-
2.-
ENTRADA AL PROGRAMCI
EL
PROGRAMA,
CODIFICADO
FOR
UN
ARCHIVO DATOS,
PRINCIPAL,
EL
Y EL ELEFlENTO DE
nRCHIVO IRINCIPAL :
=>
CGCFRL
ELEMENTO EJECUTABLE :
=>
ECONOMI
ELEMENTO DE DATOS :
- %
- ,*.
DCITOS
PARA
CORRER
REQUIERE
HABER
ALIMENTGDO TODOS LOS DATOS EN EL ELEMENTO DATOS SECCION TRES DE ESTE INSTRUCTIVO
CONO SE INDICA EN LA
DESPUES TECLEAR:
3bkl
@ a d d CGCFRL.DATOS
Bbk2, E
abk2
3 . -
L3S
QUE
SI
SE
VA A UTILIZAR E L METODO DE
DEBERA
I
DISENO
Y
LOGICfl
"DISENO"
SER IGUAL A:
.TRUE.
NTHEC,NHEC
PARA
IP
DETERMINA LA EXTENSION
ETC.).
3 . 1 .
NOMBRE DE VARIABLE
I coil
ENTERO
COMBUSTIBLE UTILIZADO ICOM=O => COMBUSTOLEO ICOM=l => GAS NATURAL EXCESO DE AIRE PRESION EN LA DESCARGA DEL ECONOMIZADOR TEMPERATURA DE SATURACION FLUJO DE GASES DE COMBUSTION TEMPERATURA DE LOS GASES A LA ENTRADA
EXC
REAL REAL
x
PSIA
PU
TU
WG
REAL REAL
GF LE/H
T 3 1
REAL
GF
VOLEG TGSEC
REAL REAL
VC!LUMEN ESPECIFICO DE LOS GASES DE COMBUSTION TEMPERATURA PERMITIDA LOS GASES A LA SALIDA FLUJO DE AGUA DE ALIMENTACION TEMPERATURA DE AGUA DE ALIMENTACION VOLUMEN ESPECIFICO DE CONDUCTIVIDAD DEL MATERIAL DE LOS TUBOS FACTOR DE ENSUCIAMIENTO INTERNO FACTOR DE ENSUCIAMIENTO EXTERNO CALOR POR RADIACION ABSORBIDO POR EL AGUA CUANDO EXISTE UNA CAVIDAD ANTES DEL ECONOMIZADOR
PIE3/LB
GF
WA
HEAL
LB/H
TA 1
REAL
GF
VOLEA KMEC
REAL REAL
PIE3/LB
FEIEC
REAL
FEEEC
REAL
QRAD
REAL
3 . 2 .
TIPO
DESCRIPCION
UNIDADES
ASEC
REAL
ANCHO DE LA SECCION DEL ECONOMIZADOR LARGO DE LA SECCION DEL ECONOMIZADOR TIPO DE ARREGLO O => TRIANGULAR 1 => CUADRADO EN LINEA 2 = > CUADRADO ROTADO LONGITUD DE LOS TUBOS DIAMETRO EXTERNO DIAMETRO INTERNO
PIES
LSEC
REAL
FIES
I AKHEC
ENTERO
LTEC DETEC
PIES
PULG
DI TEC
PULG
CTEC
FiEAL
ESPACIAMIENTD ENTRE
PULG
TUBOS(PERPENDICULAf3 AL . F L U J O DE GASES).
PULG
El-iCC
REAL
D ISENO
L O GI CA
.FALSE.= >
EVALUACI ON
SOBA
NTHEC
NHEC
REAL ENTERO
DE
ENTERO
ENTERO
NUMERO DE HILERAS
INDICADO@ DE IMPRESION O => RESUMEN DE RESULTADOS 1 = > IDEM MAS DATOS 2 = > RESULTADOS TOTALES 3 => MAXIMA INFURMACION
IP
IX.
3RUN CGCl E2303/ECDACGC, ECDA, 1 , 1 0 0 FRANCISCO ROBLES EXT. 20961 3HDG PROGRAMA PARA DISENAR O EVALUAR ECONOMIZADORES @LOG s I w I AH SECCION DE CONVECCION 3F'RT, C CGCFRL.DATOS 7 : 34: 4h FURFUR 29KlC 575.38 09/09/'87 1 ECDAfCGCFKL 1 ) . DATOS ( 0 ) 1 @RUN CGCl,E2303/ECDACGC,ECDA,l,l00 FRANCISCO ROBLES EXT. 20961 2 @HDG PRl3GRAMA PARR DISENAR O EVALUAR ECONOMIZADORES 3 3LOG SIPPI AH SECCION DE CONVECCION 4 W R T , S CGCFRL.DATOS 5 @XQT CGCFRL.ECONOM1 b BDOPEC I CON=1 EXC=20. 0 PV=600.0 ? 7 TV=486.0 WG=5C)345. 0 TGl=l124.0 1 8 VCILEG=32.2 TGSEC=450.0 WA=200000. o 9 TA1=250.0 VOLEA=O.O 18 KMEC=26.0 9 1 C) FE I EC=O.O FEEEC=O.0 GIRAD=O.0 Y 11 BEND 1 o BDGEEC ASEC=7.5 LSEC=7.5 I ARREC= 1 9 12 LTEC=7.5 DETEC=2. 0 DITEC=l.843 13 ETEC=4.O EHEC=4. 0 ,DISENO=. TRUE. 14 SOHRE=O.0 NTHEC= NHEC=O 9 15 IP=1 I 16 BEND 17 3FIN 3XQT CGCFRL.ECONOM1
, , , , , , , , ,
, , , , , , ,
,
, ,
D A T O S
D E
O P E R A C I O N :
EL COMBUSTIBLE UTILIZADO ICOM=l =>GAS NATURAL ICOM=O =>COMBUSTOLEO EL EXCESO DE AIRE PRESION EN EL DOMO FLUJO DE GASES FLUJO DE AGUA
ICOM=
EXC = PV WG
WA
20.000
= 600.000
= = = =
TEMP.
TEMP.
DE GASES A LA ENTRADA
TG1
DEL
AGUA DE ALIMENTACION
TAl
GF
"& -
D A T O S
D E
G E O M E T R I A : ASEC LSEC
ANCHO DE LA SECCION LARGO DE LA SECCION ARREGLO UTILIZADO O => TRIANGULAR 1 =::. LINEAL 2 = > C.ROTADO LONGITUD DE LOS TUBOS DIAMETRO EXTERNO DIAMETRO INTERNO ESPACIAMIENTO ENTRE TUBOS ESPACIfWIENTO ENTRE HILERAS
7 . 5 0 0 7 . 5 0 0
PIES
=
1
PIES
I: ARREC=
= = =
7 . 5 0 0 2.0000
PIES
PULG
PULG
1.8430
4.0000 4.0000
=
=
PULG
PULG
TGSEC
450.000
GF
TEMPERATURA DE LOS GASES A LA SALIDA TEMPERATURA DEL AGUA A LA SALIDA MEDIA LOGARITMICA DE LAS TEMPS. COEFICIENTE POR RADIACION ENTRE TUBOS COEFICIENTE POR CONVECCION DE GASES COEFICIENTE GLOBAL
= =
442.39
GF
GF
298.65
434.670
= =
= =
GF
BTU/PIE2mH=GF BTU/PIE2.HmGF
BTU/PIE2.H.GF
URG
UCG UTEC
1.012
7 . 4 0 1 8 . 3 0 7
22
NHEC
= =
C.
SEC
ALEC QT
=
=
PIES ETU/H
9710408.75
PSI
AFG
GG
"FA=
=
=
PIE2 ETU/H-PIE2
HiLERAC
AREA DE FLUJO DEL AGUA VELOCIDAD DEL AGUA FLUX DE AGUA ENTALP. DEL AGUA DE ALIMENT. ENTALP. DE GASES A LA ENT. TEMP. M A X . PERMITIDA AL AGUA
TEMP. PROMEDIO DE PARED
AFA =
VELA=
PIE2
2.45357 PIEC/S
490713.77344 219.29177 298.02707 437.40000 324.22944 105.14975 267.84381 ETWH-PIE2 BTU/LB BTU/LB GF
GA
HA1 =
HG1 =
TAMAX=
TW
HG2
= = =
GF
BTU/LB
HA2
BTUILB
491.56438
GF
COND Cr"
.O2144
BTU/H-PIE-GF
= =
,27540 BTU/LLS-GF
VISG
.O7446 LB/H-PIE
3919.62259
REYNCLDJ DE GASES
FACTOR DE ARREGLO COEF. POR CONV. DE GASES COEF. BASE POR RAD. LONG. MEDIA DEL HAZ RAD. FKOD. PRES I ON.LONG FACTOR K COEF. POR RAD. DE GASES RESIST. POP PEL. DE GASES TEMP. PROM. DEL AGUA CALOR ESP. DEL AGUA CONDUC. DEL AGUA VISCOSIDAD DEL AGUA
FrEYG
FBI3
UCG U t ? HZLP
= =
1.17696
7.40138 2.42138 .59799 .17815 .41801 BTU/H-PIE2-GF BTWH-PIE2-GF PIES ATM-PIE
PL
CONK UHG RG TEA CPA CONDA
1.01215 BTU/H-PIES-GF
.I1886 274.32634 .59691 H-PIEZ-GF/ETU
GF
BTU/H-LB
.39779 BTU/H-PIE-GF
.5O906 LB/H-PIE
731.99524 BTU/H-PIE2-GF
vI SCA
UCA
RA
RWT UTEC
.O0126 H-PIEZ-GF/BTU
.O0026 H-PIES-GF/BTU
8.30723 BTU/H-PIEZ-GF
RESULTGDOS S U B R U T I N A
c w w
TBG
783.19495 .0744
GF
VI'-'
REYG FFG
LWH-PIE
39 1 9 . 6 2 2 5 9
O5897 17
PERDIDA DE TIRO TEMP. PROMEDIO DEL AGUA VISCOSIDAD DEL AGUA REYNOLDS DEL AGUA RUGOSIDAD DEL ACERO FACTOR A FACTOR
DPLG =
TBA
GF
.50906 LB/H-PIE
148048.05664 -81389-004
= =
B
FFA LR
=
=
.23023+022
-29081 -009
.O170931
232.50000 PIES
145.597O0 PIES
LEC
DPLA
= =
. @XQT bATA
3
1.58151 PSI0
$FIN
IGNORED
'
lltntc
n
#
A S W V1E8)
t.
'
5 0 7 .-k
.....................
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0
0
0
0
0
0
~
~
l o o o o o o o o
~ 0 0 0 0 0 0 0
0 0 ' 0 0 0 0
o o o o o 0 0 o
0 0 0 0 0 0 0 0
0 0 0 1
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
l
~
' O
I O
I O
42
. o I ; o o o o
O 0 0 0
I I
I O 0 0 0 - I y2 4 , ~ 1 0 0 0 000 0
I o 0 0 0
0001 0001
0 0 0 1
0001 0001
I o 0 0 0
II
'
! O O . . O 0 0 0
T o +
.
. .
0 0 1
-mnm
0001
0 0 0 1
m . 0 0 0
o o
0 1
0 0 0 1
, o o o o
0001
o o o
0
0 0
0 1
0 0 1
0
0 0
0
0 0
0
0 0
0
0 0
6
0 0
0
0 0
0
0 0
0
0 0
0
0 0
0
0 0
0
0 0
0
0 0
0
0 0
0
0 0
0
0 0
~
~ ~
8 & m
OL
I l l 1 1 4 RKC
wxn)
0
u
w
O
d
X, CONCLUSIQNES
El ubJet,ivo de est.e
wciienciii
de
impienientacin en
:
Y
que
se
pueden
dos
de
calculo
propuestos
(evaluation Y
plirli
diseo),
esto se hizo
calor disponible,
guses
esto e s l u n o
teniperotiirti
CQSO
11
de
cambusti&,
ccmo en e l
form
s i ce utilizorli e l nitodo
iin
de
evtiluilcin
tendrn
que
proponer
econoulizador con
cierta
superficie, se determin~iritn lus tenperuturas de snlida, s i no son 111s requeridas, clue se se tendril1 que s o d i f i c ~ rl a superficie
h05tC1
dar con
la
un economirador y se quiere
determinar
su
comport,amlento
t&mico,
IX es con los
7 \
. -
horno,
el
'
IC_
libro
con
l o s obtenicas
COR
del
Los
resultados obtenidos pnra anibos son niuy seme,jantes z o n iguales los iib:l.ost y L
il
reportodos en
ser
calculado
C'
14+3,
'"+-
l a caidti de presin de
gases
truves
de
se puede
encontrnr
SECTION
IN
en
el
urticii1.0
HEATERS' r'evistu
CONVECTION
FIEELi
1064,
Siempre
que
los glizes
de
la
ccI1der~iii uun
despues
de
hciber
limpido
111s
para
p o r l o que se
podra
el
consumo
de combustible
la inversion
ndicional
y
en
equipo+ Se
decidirl concepto
emplelir
de
economizadores
siempre
sell
cuando
el
Iihorro
por
consumo de conhustibie
totales
X1,BIBLIOGRAFIA
PennWell P u b l i s h i n g C o a p a n ~ ~ l 9 8 2 ~
-Vincent
-J+