Transferencia de Calor
Transferencia de Calor
Transferencia de Calor
earoserou@unal.edu.co
Febrero 15, 2018
Enunciado
Calcule el tiempo requerido y la energía para llevar un horno que quema gas natural de
25°C a la temperatura de operación. Use método de diferencias finitas. Qué hacer para
reducir el tiempo sin que el refractario tenga problemas. (Asuma diámetro y flujo de gas
para sostener la temperatura).
Desarrollo del Ejercicio
Suposiciones Y Datos Estándar:
𝑗=𝑛𝑦2<𝑚 <𝑚−1
2𝑖 − 1 4𝑖 − 1
𝑇𝑡 (𝑖, 𝑗) = Ϝ0 [( ) 𝑇𝑡 (𝑖, 𝑗 − 1) + 𝑇𝑡 (𝑖 − 1, 𝑗) + 𝑇𝑡 (𝑖 + 1, 𝑗)] + [1 − ( ) Ϝ0 ] 𝑇𝑡 (𝑖, 𝑗)
2𝑖 𝑖
2<𝑗 <𝑛−1𝑦𝑖 =1
2𝑖 + 1 2𝑖 − 1
𝑇𝑡 (𝑖, 𝑗) = Ϝ0 [( ) 𝑇𝑡 (𝑖, 𝑗 − 1) + ( ) 𝑇𝑡 (𝑖, 𝑗 + 1) + 2𝑇𝑡 (𝑖 + 1, 𝑗)] + (1 − 4Ϝ0 )𝑇𝑡 (𝑖, 𝑗)
2𝑖 2𝑖
2<𝑗 <𝑛−1𝑦𝑖 =𝑚
2𝑖 + 1 2𝑖 − 1
𝑇𝑡 (𝑖, 𝑗) = Ϝ0 [( ) 𝑇𝑡 (𝑖, 𝑗 − 1) + ( ) 𝑇𝑡 (𝑖, 𝑗 + 1) + 2𝑇𝑡 (𝑖 − 1, 𝑗)] + (1 − 4Ϝ0 )𝑇𝑡 (𝑖, 𝑗)
2𝑖 2𝑖
𝑖 =1𝑦𝑗 =𝑛
2𝑖 + 1 2𝑖 + 1
𝑇𝑡 (𝑖, 𝑗) = Ϝ0 [( ) 𝑇𝑡 (𝑖, 𝑗 − 1) + 2𝑇𝑡 (𝑖 + 1, 𝑗)] + {1 − [( ) + 2] Ϝ0 } 𝑇𝑡 (𝑖, 𝑗)
2𝑖 𝑖
𝑖 =𝑚𝑦𝑗=𝑛
2𝑖 + 1 2𝑖 + 1
𝑇𝑡 (𝑖, 𝑗) = Ϝ0 [( ) 𝑇𝑡 (𝑖, 𝑗 − 1) + 2𝑇𝑡 (𝑖 − 1, 𝑗)] + {1 − [( ) + 2] Ϝ0 } 𝑇𝑡 (𝑖, 𝑗)
2𝑖 𝑖
𝑘 × 𝑑𝑡
Ϝ0 =
𝑅𝑜 × 𝐶𝑝 × 𝑑𝑟
clear all
clc
%%
% Cantidades iniciales
Tf=1500;
Ti=25;
k=0.46;
r=0.08;
dr=0.01;
z=3.0;
dz=0.01;
n=(r/dr)+1;
m=(z/dr)+1;
cp=879;
RO=20;
dt=40;
%%
%Se definen las ecuaciones de flujo de entrada al horno y se declara una
%matriz para iterar las temperaturas:
Fo=((k*dt)/(RO*cp*dr));
T(1)= Tf;
Ta=zeros(m,n);
%%
%Iterando para llenar matriz de temperaturas:
for j=2:n
for i=1:m
Ta(i,j)=Ti;
end
end
Ta(:,1)=Tf;
%%
%Definiendo y ejecutando bucles de diferencias finitas:
time=0;
while Ta(m,n)<=849.9
time=time+dt;
for j=2:n
for i=1:m
if ((2<=i && i<=(m-1))&& (2<=j && j<=(n-1)));
Ta(i,j)=Fo*((((2*i)+1)/(2*i))*Ta(i,j+1)+(((2*i)-
1)/(2*i))*Ta(i,j-1)+Ta(i-1,j)+Ta(i+1,j))+(1-4*Fo)*Ta(i,j);
elseif (j==n && 2<=i && i<=m-1);
Ta(i,j)=Fo*((((2*i)-1)/(i))*Ta(i,j-1)+Ta(i-
1,j)+Ta(i+1,j))+(1-(((4*i)-1)/i)*Fo)*Ta(i,j);
elseif (2<=j && j<=n-1 && i==1);
Ta(i,j)=Fo*((((2*i)+1)/(2*i))*Ta(i,j-1)+(((2*i)-
1)/(2*i))*Ta(i,j+1)+2*Ta(i+1,j))+(1-4*Fo)*Ta(i,j);
elseif (2<=j && j<=n-1 && i==m);
Ta(i,j)=Fo*((((2*i)+1)/(2*i))*Ta(i,j-1)+(((2*i)-
1)/(2*i))*Ta(i,j+1)+2*Ta(i-1,j))+(1-4*Fo)*Ta(i,j);
elseif (i==1 && j==n);
Ta(i,j)=Fo*((((2*i)+1)/(i))*Ta(i,j-1)+2*Ta(i+1,j))+(1-
((((2*i)+1)/i)+2)*Fo)*Ta(i,j);
else (i==m && j==n);
Operaciones de transferencia de Calor 3007820
Departamento de procesos y energía
Facultad de minas
Ta(i,j)=Fo*((((2*i)+1)/(i))*Ta(i,j-1)+2*Ta(i-1,j))+(1-
((((2*i)+1)/i)+2)*Fo)*Ta(i,j);
end
end
end
Fo=((k*dt)/(RO*cp*dr));
end