Universidad de Guanajuato

Departamento de ingeniería mecánica

Transferencia de calor. Solución de un problema en estado transitorio mediante

métodos numéricos unidimensional
condiciones de frontera. Sin embargo, con
Mendoza Santarosa Raúl. frecuencia los problemas bidimensionales
Estudiante de Lic. En Ing. Mecánica presentan geometrías complicadas con
Guanajuato, México igualmente condiciones de frontera complicadas.
e-mail: raul_mendoza_santarosa@outlook.co En estos casos la mejor alternativa es a manudo
la utilización de una técnica numérica como por
En los últimos años los métodos numéricos han ejemplo el método de diferencias finitas,
demostrado ser un arma muy poderosa para elemento finito, volumen finito etc. Creando una
atacar problemas que analíticamente serian red nodal que muestra la temperatura en puntos
irresolubles o que costaría mucho trabajo discretos.
realizar, por ejemplo, en áreas térmicas como Los problemas reales en estado transitorio se
transferencia de calor. La solución de vuelven más complejos por la clara dependencia
ecuaciones diferenciales ordinarias y parciales del de la temperatura respecto del tiempo tanto
son un claro ejemplo de cual poderosos podrían como de la posición es decir T(x,y,z,t). Las
ser y con una exactitud impresionante. soluciones analíticas para estos casos se
vuelven complicadas a nivel matemático del
OBJETIVO orden del perfecto manejo de ecuaciones
El objetivo de este trabajo es la solución de un diferenciales parciales. Ya que conllevan
problema de transferencia de calor en estado geometrías no tan simples, lo cual lleva a evitar
transitorio. Siendo más específicos es la elección el uso de técnicas analíticas y abre el paso a
entre dos materiales que serán utilizados para la métodos de solución como método explícito y
construcción de partes específicas (placas) de un método implícito entre otros.
cohete, el cual debe estar sujeto a diferentes
condiciones de convección en ambos lados de PROBLEMA
una placa y obviamente diferentes propiedades. La placa de metal mostrada en la figura rodeara
Utilizando métodos numéricos se hará un el motor de un cohete. La vida activa del cohete
análisis a detalle de cada material para ver cuál debe ser por lo menos 8 segundos.
es el más apropiado para para las condiciones de Haciendo un análisis bien fundamentado se
operación, tomando en cuenta desde seguridad, deberá seleccionar el material más adecuado de
factibilidad financiera hasta la disipación de la tabla 1
energía que hay en cada material. 3 métodos
numéricos muy parecidos entre si serán el punto
clave del análisis de este problema. La discusión
sobre ventajas y desventajas que conlleva TH=4500°F T c=70°F
usarlos será de gran importancia Hablando desde BTU
las discretizaciones hasta el algoritmo iterativo HH=1000 Hc=3
h r∗f t 2∗° F
creado para su solución. BTU
2
INTRODUCCIÓN h r∗f t ∗° F
Los métodos analíticos sirven para obtener
soluciones matemáticas exactas en conducción
bidimensional en estado estable. Dichas
soluciones se generan para una gran variedad de 0.5in
geometrías simples con iguales
Fig. 1. esquema del problema
 material k α ¿] T.F[°F] α ∆t
Fo= (1.4)
BTU∗ft ∆x
2
[ 2
]
h r∗f t ∗° F H∆x
Bi=
UNAM 13 0.1775 2570 k
FIMEE 22.9 0.298 2770 (1.5)
Tabla.1. Propiedades de los materiales
Se obtiene para nodos interiores
Nota. El material de la FIMEE resulta altamente
no factible económicamente.
T i =Fo ( T i+1 +T i−1) +T i (1−2 Fo)
k+1 k k k

RESULTADOS
Partiendo de la ecuación de la energía se puede (1.6)
llegar a la ecuación gobernante para este caso en
particular. Y para los nodos exteriores de igual manera pero
con diferente condición de frontera obtenemos
2 2 2
∂T ∂T ∂T ∂T ∂T ∂ T ∂T
pc +u +v +w =q+k ( 2 + 2 + 2 )+k+1
μϕ
∂t ∂x ∂y ∂z ∂ x ∂ y ∂ z T i =2 Fo ( T ki+1 +Bi T kinf ) +T ki (1−2 Fo−2 BiFo)
(1.1)
Quedando (1.7)
2
∂T ∂ T De acuerdo al criterio de estabilidad de estas
pc =k 2 (1.2)
∂t ∂x ecuaciones es necesario seleccionar los
parámetros los cuales para este caso en general
La figura 2 muestra como es la discretización en serán
nodos de la figura con los cuales se plantearan α ∆t
Fo= <0.5
los métodos para las diferentes soluciones ∆x
2

(1.8)

Δx=.02 in
0 1 2 3 4 n-1 n Δt=.01 seg.

Δx Con estos parámetros y resolviendo

iterativamente se obtiene para el tiempo después
de 8 segundos expuesto a las condiciones
Fig.2. puntos nodales discretos.
material T(nodo 0) T(nodo n)
 Método Explícito. UNAM 3102.2470°F 685.6055°F
Considerado como una aproximación en FIMEE 2792.0076°F 1094.9824°F
diferencias finitas hacia adelante para la Tab.2. Temperatura en t=0 y t=8 (seg) para los dos
derivada respecto del tiempo. Aplicando un materiales
balance de energía al volumen de control
alrededor del nodo interior.

Δx ( T ik+1 +T ik ) ( T ki +T ik+1 ) ( T ki + T ki−1 )

∗pc =−k −k
2 Δt ( Δx )
2
( Δx )
2

(1.3)
Utilizando las definiciones del número de
Fourier (Fo) y el número de Biot (Bi).
 Grafica.4. T en diferentes tiempos para FIMEE

Claramente en la figura se pueden apreciar desde

Grafica.1. T en nodo inicial, final y central UNAM las distribuciones de temperatura en el tiempo
para cada material hasta ver los efectos de tener
en uno mayor conductividad térmica que otro.

 Método Implícito
Considerado como una aproximación en
diferencias finitas hacia atrás para la derivada
respecto del tiempo.

Y en lugar de tener una ecuación con una

incógnita tendremos un sistema de ecuaciones
de n x n el cual será resuelto iterativamente hasta
llegar a los 8 segundos deseados.

Partiendo de la ecuación (1.2) y como este

método no cuenta con restricciones de
estabilidad es posible llegar a las ecuaciones
gobernantes en los nodos interiores y exteriores.
Grafica.2. T en nodo inicial, final y central FIMEE
k+1 k+1 k+1 k
Para la comparación de su evolución de la (1+2 Fo) T i −Fo T i +1 −Fo T i−1 =T i
temperatura en cada nodo en un intervalo de 2
segundos hasta llegar a 8 se obtuvieron las (1.9)
siguientes gráficas.

T k+1
i ( 1+ 2 Fo+2 BiFo )−2 Fo ( T ki +1
+1
)=T ki +2 BiFo T kinf
(1.10)

El algoritmo fue diseñado de manera que se

pueden utilizar el número de nodos necesarios al
igual que el Δt teniendo como resultados una
variación casi nula con el método explícito.

material T(nodo 0) T(nodo n)

UNAM 3101.3100°F 685.5445°F
FIMEE 2791.2818°F 1094.5169°F
Tab.3. Temperatura en t=0 y t=8 (seg) para los dos
Grafica.3. T en diferentes tiempos para UNAM materiales

Para la creación de esta tabla y la siguientes

graficas el algoritmo uso un Δx=0.005 in y
Δt=.01 seg los cuales definirán el número de
nodos y el número de iteraciones de la solución
de la matriz.
 Grafica.7. comparación de método implícito y explícito
UNAM
Grafica.8. T en diferentes tiempos para UNAM
Grafica.9. T en diferentes tiempos para FIMEE

 Método de Crank Nicholson

Como es de esperarse el método de crank

nicholson arroja los mismos resultados que los
anteriores. Es muy parecido al método implícito
ya que no tiene criterio de estabilidad pero con
una combinación de derivadas hacia delante y
hacia atrás como los dos métodos.

Las ecuaciones deducidas para los nodos

centrales y exteriores son.
Grafica.5. T en nodo inicial, final y central UNAM Para nodos exteriores.

Grafica.6. T en nodo inicial, final y central FIMEE

k+1 k+1 k k
(1+ Fo+ BiFo)T i −Fo T i+1 =2 BiFo T inf +T i ( 1−BiFo−Fo )
Es necesario mencionar que si comparamos (1.11)
estas dos graficas con las del método explícito
quedan desfasadas cuando x=0.25 ya que esa
posición para un nodo es relativa dependiendo el
número de nodos y ya que estos en los dos
métodos fueron puestos diferentes encontramos
un pequeño desfase.

De igual manera que en el método explícito se

realizó las gráficas para analizar la temperatura
en cada nodo en intervalos de tiempo definidos.
Obteniendo los resultados esperados una gráfica
encimada en otra con un error de .05 grados
aproximadamente.
Y para nodos interiores Grafica.11. T en nodo inicial, final y central FIMEE

k+1 k+1 k+1 k k k

2(1+ Fo)T i −Fo T i+1 −Fo T i−1=2 ( 1−Fo ) T i + FoT i+1 + Fo T i−1=¿

(1.12)

Grafica.12. T en diferentes tiempos para UNAM

Usando estas ecuaciones apropiadamente
Grafica.13. T en diferentes tiempos para FIMEE
obtenemos las gráficas.

Para finalizar y después de escuchar opiniones

entre compañeros y profesores de la misma
facultad hasta de otras amistades estudiantes
de administración se optó por usar el material
de la FIMEE ya que claramente que, aunque
empieza a derretirse es el que más resiste la
temperatura además de tener mejor disipación
de energía lo cual es muy importante.
El punto de vista de la persona que estudia
administración es que primero que nada la
seguridad es primordial ya que se podría tener
serios problemas legales si este proyecto tiene
un fin de utilizarlo en donde alguna persona
física esté involucrada.
Grafica.10. T en nodo inicial, final y central UNAM
Por esto aunque es más caro optaríamos por no
poner ninguna vida en peligro.
Cabe mencionar que el problema no se analizó
para cuando el número de nodos decrece por el
derretimiento por eso y con más razones
optamos por el material FIMEE. Recordando
que los ingenieros hacemos modelos y este es
un modelo muy poderoso y preciso para poder
tomar una muy buena decisión.

CONCLUCION

Al principio me costó trabajo entender como

abordar el problema ya que analíticamente al
resolver la ecuación diferencial parcial da como
resultado una sumatoria y no concebía como
un método iterativo aproximado pero muy
poderoso se introduciría en un programa de
computadora aunado a esto mis
conocimientos en lenguajes de programación
no eran muy buenos pero este proyecto me
sirvió para aplicar los conocimientos de
programación, así como para ampliarlos.
Conforme al proyecto el método implícito es
más adecuado para la solución si no se quiere
estar peleando con criterios de estabilidad, pero
ocupa mucho tiempo de cómputo.
El material de FIMME tiene mucho mejores
características y aunque es más caro lo primero
es la seguridad de las personas. Ya que nuestros
modelos deben ser lo suficientemente buenos
para hacer más cómoda y segura la vida de las
personas.

A continuación, se muestra el algoritmo para la

solución del método optimizado con unas
funciones de Matlab para que el lector se dé
cuenta paso a paso que es lo que se realizó.

METODO IMPLÍCITO PARA MATERIAL UNAM

clear
clc
format long
esp=.5; %espesor de la placa
ti=8; %tiempo requerido
Th=4500;
Tc=70;
dx=.005;
dt=.01;
hh=1000;
hc=3;
alphau=.1775;
ku=13;
Bihu=(hh*(dx/12))/ku;
Bicu=(hc*(dx/12))/ku;
Fou=((alphau/3600)*dt)/((dx/12)^2);

n=(esp/dx)+1; %numero de nodos

it=ti/dt; %iteraciones en el tiempi
a=(1+2*Fou+2*Bihu*Fou); %constante que se usa en la matriz de ecuaciones
b=(1+2*Fou+2*Bicu*Fou); %constante que se usa en la matriz de ecuaciones
c=1+2*Fou; %constante que se usa en la matriz de ecuaciones

T=zeros(n,n); %matriz de coeficientes

D=ones(n,1);
Tr=70*D; %matriz de resultdos

W0=zeros(it,1); %matriz auxiliar para graficar evolucion de

temperatura en el tiempo de cada nodo.
Wmed=zeros(it,1); %matriz auxiliar para graficar evolucion de
temperatura en el tiempo de cada nodo.
Wend=zeros(it,1); %matriz auxiliar para graficar evolucion de
temperatura en el tiempo de cada nodo.

R=zeros(it,1); %matriz auxiliar con los intervalos de tiempo para

graficar
T2=ones(n,1); %matriz auxiliar para graficar la temperatura de
cada nodo en 2 segundos
T4=ones(n,1); %matriz auxiliar para graficar la temperatura de
cada nodo en 4 segundos
T6=ones(n,1); %matriz auxiliar para graficar la temperatura de
cada nodo en 6 segundos
B=zeros(n,1);
for u=1:it %for primario el cual resuelve it la matriz de
coeficientes con la de resultados
R(u)=dt*u;
for i=1:n
if i==1 %llenado de una matriz con los intervalos de dx
hasta cubrir la distancia de la placa
B(1)=0;
else
B(i)=dx*(i-1); %matriz auxiliar para graficar
end
B;
if i==1 %llenado de la matriz de coeficientes para que el
programa sea parametrico
T(i,i)=a;
aux=i+1;
T(i,aux)=-2*Fou;
Tr(i)=Tr(i)+2*Fou*Bihu*Th;

elseif i==n
T(n,n)=b;
aux2=n-1;
T(n,aux2)=-2*Fou;
 Tr(n)=Tr(n)+2*Fou*Bicu*Tc;
else

aux3=i-1;
aux4=i+1;
T(i,i)=c;
T(i,aux3)=-Fou;
T(i,aux4)=-Fou;
Tr(i)=Tr(i);

end
end
X=T\Tr; %resolucion del sistema
Tr=X;

%extraccion de datos para graficar t_vs_T

W0(u)=Tr(1);
aux5=((n-1)/2);
Wmed(u)=Tr(aux5);
Wend(u)=Tr(n);
%extraccion de datos para graficar x_vs_T
if u*dt==(it/400)
T2=Tr;
end
if u*dt==(it/200)
T4=Tr;
end
if u*dt==(3*it)/400
T6=Tr;
end
end
Tr
W0;
Wmed;
Wend;

%graficas de resultados

figure (1)
plot(R,W0,'color','b')
hold on
plot(R,Wmed,'color','r')
plot(R,Wend,'color','y')
legend('x=0','x=.25','x=.5')
title('Evolución de la temperatura en el tiempo Material UNAM')
xlabel('Tiempo seg')
ylabel('Temperatura °F')
grid on

figure (2)
plot(B,T2,'color','g')
hold on
plot(B,T4,'color','y')
plot(B,T6,'color','r')
plot(B,Tr,'color','b')
title('Perfil de temperatura en función del tiempo Material UNAM')
xlabel('X [in]')
ylabel('Temperatura [°F]')
legend('t=2seg','t=4seg','t=6seg','t=8seg')
grid on

Método de Crank Nicolson

clear
clc
format long
esp=.5; %espesor de la placa
ti=8; %tiempo requerido
Th=4500;
Tc=70;
dx=.01;
dt=.01;
hh=1000;
hc=3;
alphau=.298;
ku=22.9;
Bihu=(hh*(dx/12))/ku;
Bicu=(hc*(dx/12))/ku;
Fou=((alphau/3600)*dt)/((dx/12)^2);

n=(esp/dx)+1; %numero de nodos

it=ti/dt; %iteraciones en el tiempi
a=(1+Fou+Bihu*Fou); %constante que se usa en la matriz de ecuaciones
b=(1+Fou+Bicu*Fou); %constante que se usa en la matriz de ecuaciones
c=2*(1+Fou); %constante que se usa en la matriz de
ecuaciones

T=zeros(n,n); %matriz de coeficientes

D=ones(n,1);
Tr=zeros(n,1); %matriz de resultdos
J=70*D

W0=zeros(it,1); %matriz auxiliar para graficar evolucion de

temperatura en el tiempo de cada nodo.
Wmed=zeros(it,1); %matriz auxiliar para graficar evolucion de
temperatura en el tiempo de cada nodo.
Wend=zeros(it,1); %matriz auxiliar para graficar evolucion de
temperatura en el tiempo de cada nodo.

R=zeros(it,1); %matriz auxiliar con los intervalos de tiempo

para graficar
T2=ones(n,1); %matriz auxiliar para graficar la temperatura de
cada nodo en 2 segundos
T4=ones(n,1); %matriz auxiliar para graficar la temperatura de
cada nodo en 4 segundos
T6=ones(n,1); %matriz auxiliar para graficar la temperatura de
cada nodo en 6 segundos
B=zeros(n,1);
for u=1:800 %for primario el cual resuelve it la matriz de
coeficientes con la de resultados
R(u)=dt*u;
for i=1:n
 if i==1 %llenado de una matriz con los intervalos de dx
hasta cubrir la distancia de la placa
B(1)=0;
else
B(i)=dx*(i-1); %matriz auxiliar para graficar
end
B;
if i==1 %llenado de la matriz de coeficientes para que
el programa sea parametrico
T(i,i)=a;
aux=i+1;
T(i,aux)=-Fou;
Tr(i)=2*Fou*Bihu*Th+(1-Bihu*Fou-Fou)*J(i)+Fou*J(aux);
elseif i==n
T(n,n)=b;
aux2=n-1;
T(n,aux2)=-Fou;
Tr(n)=2*Fou*Bicu*Tc+(1-Bicu*Fou-Fou)*J(i)+Fou*J(aux2);
else

aux3=i-1;
aux4=i+1;
T(i,i)=c;
T(i,aux3)=-Fou;
T(i,aux4)=-Fou;
Tr(i)=2*(1-Fou)*J(i)+Fou*J(aux3)+Fou*J(aux4);

end
end
T;
Tr;

X=T\Tr; %resolucion del sistema

J=X;

%
%extraccion de datos para graficar t_vs_T
W0(u)=X(1);
aux5=((n-1)/2);
Wmed(u)=X(aux5);
Wend(u)=X(n);
%extraccion de datos para graficar x_vs_T
if u*dt==(it/400)
T2=X;
end
if u*dt==(it/200)
T4=X;
end
if u*dt==(3*it)/400
T6=X;
end
end
X
W0;
Wmed;
Wend;
%graficas de resultados

figure (1)
plot(R,W0,'color','black')
hold on
plot(R,Wmed,'color','b')
plot(R,Wend,'color','m')
legend('x=0','x=.25','x=.5')
title('Temperatura vs Tiempo (FIMEE)')
xlabel('Tiempo seg')
ylabel('Temperatura °F')
grid on

figure (2)
plot(B,T2,'color','b')
hold on
plot(B,T4,'color','black')
plot(B,T6,'color','g')
plot(B,X,'color','m')
title('Temperatura vs Posición (FIMEE)')
xlabel('X [in]')
ylabel('Temperatura [°F]')
legend('t=2seg','t=4seg','t=6seg','t=8seg')
grid on