Una varilla con una fuente interna de calor

Conducción del calor en una varilla

Hemos estudiado la conducción del calor a lo largo de una varilla de longitud L cuyos extremos están a temperaturas fijas.

Definimos la función u(x,t)=T(x,t)-T(x,∞), en términos de esta nueva función, la ecuación de la conducción del calor, las condición inicial en el instante t=0, y las condiciones de contorno en x=0 y en x=L se escriben

1 α u t = 2 u x 2 0<x<Lt>0 contornou(0,t)=0u(L,t)=0 inicialu(x,0)

La solución de la ecuación de la conducción del calor era

u(x,t)= n=1 A n exp( α n 2 π 2 L 2 t )sin( nπ x L )

Los coeficientes An venían determinados por la distribución inicial de temperaturas u(x,0) de la varilla

Una varilla con fuente de calor incorporada

Vamos a incorporar a la varilla una fuente de calor, hemos de resolver la ecuación del calor modificada con las mismas condiciones de contorno

1 α u t = 2 u x 2 +q(x)0<x<Lt>0 contornou(0,t)=0u(L,t)=0 inicialu(x,0)

Cuando le añadimos el término q(x) a la ecuación del calor, la solución no se puede separar en producto de dos términos uno que dependa de x, F(x) y otro que dependa de t, G(t), de modo que la solución se pueda expresar como producto de dichas funciones (variables separadas) u(x,t)=F(xG(t)

Buscamos una solución, similar pero con el término Tn(t) desconocido

u(x,t)= n=1 T n (t)sin( nπ x L )

En el instante t=0, Tn(0), son los coeficientes del desarrollo en serie de la distribución inicial de temperaturas

u(x,0)= n=1 T n (0)sin( nπ x L )

Desarrollamos en serie el término q(x) que describe la fuente de calor

q(x)= n=1 q n sin( nπ x L )

En ambos casos, para obtener los coeficientes, Tn(0) y qn se siguen los siguientes pasos

Multiplicamos ambos miembros por sin(mπx/L) e integramos entre 0 y L, para ello, hacemos el cambio de variable z=πx/L, dz=πdx/L

0 L q(x)sin( mπ x L )dx = n=1 q n 0 L sin( nπ x L ) sin( mπ x L )dx

El resultado de la integral del segundo miembro cuando m≠n y cuando m=n es

0 L sin( mπ x L )sin( nπ x L )dx = L π 0 π sin( mz )sin( nz )dz ( 1 n 2 m 2 ) 0 π sin( mz )sin( nz )dz = 1 m sin( nz )cos( mz )+ n m 2 cos( nz )sin( nz ) | 0 π =0 0 π sin 2 ( nz )dz = 1 2 0 π ( 1cos( 2nz ) )dz = 1 2 ( z 1 2n sin( 2nz ) ) | 0 π = π 2

Despejamos qn

q n = 2 L 0 L q(x)sin( nπ x L ) dx

Despejamos Tn(0)

T n (0)= 2 L 0 L u(x,0)sin( nπ x L ) dx

Introducimos la expresión de u(x,t) en la ecuación del calor

1 α n=1 d T n (t) dt sin( nπ x L ) = n=1 ( n 2 π 2 L 2 ) T n (t)sin( nπ x L )+ n=1 q n sin( nπ x L )

El resultado es una ecuación en Tn(t) que integramos

1 α d T n (t) dt = n 2 π 2 L 2 T n (t)+ q n T n (t)= 4 n 2 π 2 q n + c n exp( α n 2 π 2 4 t )

donde cn es una constante a determinar a partir de la distribución inicial de temperaturas u(x,0) en el instante t=0.

T n (0)= 4 n 2 π 2 q n + c n

Solución completa

La solución de la ecuación del calor u(x,t), que incorpora el término que describe el calor q(x) que se genera en el interior de la varilla es

u(x,t)= n=1 ( 4 n 2 π 2 q n +( T n (0) 4 n 2 π 2 q n )exp( α n 2 π 2 4 t ) ) sin( nπ x L )

Ejemplo

Sea una varilla de longitud L=2. La distribución inicial de temperaturas es u(x,0)=2x-x2. Las temperaturas en los extremos de la varilla u(0,t)=0, y u(L,t)=0. La fuente de calor está descrita por la función

q(x)={ x0<x<1 2x1<x<2

Los coeficientes qn del desarrollo en serie de q(x) son

q n = 0 2 q(x)sin( nπ x L ) dx= 0 1 xsin( nπ x 2 )dx+ 1 2 (2x)sin( nπ x 2 )dx= 8 n 2 π 2 sin( nπ 2 )

Los coeficientes Tn(0) del desarrollo en serie de u(x,0) son

T n (0)= 2 L 0 L u(x,0)sin( nπ x L ) dx= 0 2 (2x x 2 )sin( nπ x 2 ) dx= 16 n 3 π 3 ( 1cos(nπ) )

La solución completa u(x,t) es

u(x,t)= 32 π 3 n=1,3,5,... 1 n 3 ( ( 1 ) n1 2 nπ +( 1 ( 1 ) n1 2 nπ )exp( α n 2 π 2 4 t ) ) sin( nπ x 2 )

x=linspace(0,2,100);
hold on
for t=0:3
    T=zeros(1,length(x));
    for n=1:2:99
       T=T+((-1)^((n-1)/2)/(n*pi)+(1-(-1)^((n-1)/2)/(n*pi))*
exp(-n^2*pi^2*t/4))*sin(n*pi*x/2)*32/(n^3*pi^3);
    end
    plot(x,T,'displayName',num2str(t));
end
hold off
title('Evolución de la temperatura de una varilla')
xlabel('Longitud')
ylabel('Temperatura')
legend('-DynamicLegend','location','northeast')
grid on
hold off 

Estado estacionario

Observamos en la representación gráfica que a partir de t=3 se alcanza una distribución de temperaturas que parece que no cambia apreciablemente con el tiempo. Se ha alcanzado el estado estacionario

En el estado estacionario, la solución u(x,t) no depende de t, solamente de x, de modo que la ecuación del calor se escribe

d 2 u d x 2 +q(x)=00<x<Lt>0

Integramos dos veces para obtener u(x)

du dx = q(x)dx + c 1 =f(x)+ c 1 u(x,)= f(x)dx + c 1 x+ c 2

Las constntes c1 y c2 se determinan sabiendo que las temperaturas en los extremos de la varilla son u(0,t) y u(L,t)

Determinamos el estado estacionario con los datos del ejemplo anterior. Dado q(x)

q(x)={ x0<x<1 2x1<x<2

Integramos dos veces

u(x,)={ x 3 6 + c 1 x+ c 2 0<x<1 x 2 + x 3 6 + k 1 x+ k 2 1<x<2

Las temperaturas en los extremos de la varilla son u(0,t)=0 y u(L,t)=0

{ c 2 =0 8 3 +2 k 1 + k 2 =0

La función u(x,∞), es continua en x=1, y también su derivada primera

{ c 1 = 2 3 + k 1 + k 2 c 1 =1+ k 1

El estado estacionario u(x,∞) es

u(x,)={ x 3 6 + 1 2 x0<x<1 x 2 + x 3 6 + 3 2 x 1 3 1<x<2

Añadimos al script la función que describe el estado estacionario y la representamos mediante el comando fplot, confirmando que para t=3 se está próximo al estado estacionario

x=linspace(0,2,100);
%estado estacionario
f=@(x) (x<1)*(-x^3/6+x/2)+(x>=1)*(-x^2+x^3/6+3*x/2-1/3);
hold on
%estado transitorio
for t=0:3
    T=zeros(1,length(x));
    for n=1:2:99
       T=T+((-1)^((n-1)/2)/(n*pi)+(1-(-1)^((n-1)/2)/(n*pi))
*exp(-n^2*pi^2*t/4))*sin(n*pi*x/2)*32/(n^3*pi^3);
    end
    plot(x,T,'displayName',num2str(t));
end
fplot(f,[0,2], 'color','k')
hold off
title('Evolución de la temperatura de una varilla')
xlabel('Longitud')
ylabel('Temperatura')
legend('-DynamicLegend','location','northeast')
grid on
hold off 

Referencias

El ejemplo que aparece en esta página ha sido tomado del documento titulado: Chapter 5. Separation of variables. http://faculty.uca.edu/darrigo/Students/M4315/Fall%202005/sep-var.pdf