Matemáticas II · Tema 4 · Sección 4.4

Ejercicios resueltos de ecuación del calor

4 ejercicios resueltos paso a paso del tema 4 de Matemáticas II (Series de Fourier y ecuaciones diferenciales parciales). El enunciado está a la vista y la solución, plegada: intenta cada ejercicio antes de abrirla.

Ejercicio 1

Dificultad: Básico

Resolver un paso temporal de la ecuación del calor ∂u∂t=2∂2u∂x2\frac{\partial u}{\partial t} = 2\frac{\partial^2 u}{\partial x^2} con condiciones de frontera u(0,t)=50u(0,t) = 50, u(1,t)=80u(1,t) = 80 y condición inicial u(x,0)=60u(x,0) = 60 para x∈(0,1)x \in (0{,}1). Usar Δx=0.2\Delta x = 0.2 y Δt=0.005\Delta t = 0.005.

Ver solución paso a paso5 pasos
  1. Paso 1
    Verificar la condición de estabilidad

    λ=kΔt(Δx)2=2×0.005(0.2)2=0.010.04=0.25<0.5\lambda = \frac{k\Delta t}{(\Delta x)^2} = \frac{2 \times 0.005}{(0.2)^2} = \frac{0.01}{0.04} = 0.25 < 0.5 ✓\checkmark

  2. Paso 2
    Establecer la malla espacial

    Puntos: x0=0x_0 = 0, x1=0.2x_1 = 0.2, x2=0.4x_2 = 0.4, x3=0.6x_3 = 0.6, x4=0.8x_4 = 0.8, x5=1x_5 = 1

  3. Paso 3
    Condiciones iniciales y de frontera
    • u00=50u_0^0 = 50 (frontera), u50=80u_5^0 = 80 (frontera)
    • u10=u20=u30=u40=60u_1^0 = u_2^0 = u_3^0 = u_4^0 = 60 (condición inicial)
  4. Paso 4
    Aplicar el esquema explícito

    uin+1=uin+λ(ui+1n−2uin+ui−1n)u_i^{n+1} = u_i^n + \lambda(u_{i+1}^n - 2u_i^n + u_{i-1}^n)

    Para i=1i = 1:

    u11=60+0.25(50−2×60+60)=60+0.25(−10)=57.5u_1^1 = 60 + 0.25(50 - 2 \times 60 + 60) = 60 + 0.25(-10) = 57.5

    Para i=2i = 2:

    u21=60+0.25(60−2×60+60)=60+0.25(0)=60.0u_2^1 = 60 + 0.25(60 - 2 \times 60 + 60) = 60 + 0.25(0) = 60.0

    Para i=3i = 3:

    u31=60+0.25(60−2×60+60)=60+0.25(0)=60.0u_3^1 = 60 + 0.25(60 - 2 \times 60 + 60) = 60 + 0.25(0) = 60.0

    Para i=4i = 4:

    u41=60+0.25(80−2×60+60)=60+0.25(20)=65.0u_4^1 = 60 + 0.25(80 - 2 \times 60 + 60) = 60 + 0.25(20) = 65.0

  5. Paso 5
    Resultado después del primer paso temporal

    En t=0.005t = 0.005: u=[50,57.5,60.0,60.0,65.0,80]u = [50, 57.5, 60.0, 60.0, 65.0, 80]

Ejercicio 2

Dificultad: Intermedio

Para la ecuación del calor en 2D: ∂u∂t=α(∂2u∂x2+∂2u∂y2)\frac{\partial u}{\partial t} = \alpha\left(\frac{\partial^2 u}{\partial x^2} + \frac{\partial^2 u}{\partial y^2}\right), desarrollar el esquema de diferencias finitas explícito y determinar la condición de estabilidad.

Ver solución paso a paso8 pasos
  1. Paso 1
    Discretizar las derivadas espaciales

    ∂2u∂x2≈ui+1,jn−2ui,jn+ui−1,jn(Δx)2\frac{\partial^2 u}{\partial x^2} \approx \frac{u_{i+1,j}^n - 2u_{i,j}^n + u_{i-1,j}^n}{(\Delta x)^2}

    ∂2u∂y2≈ui,j+1n−2ui,jn+ui,j−1n(Δy)2\frac{\partial^2 u}{\partial y^2} \approx \frac{u_{i,j+1}^n - 2u_{i,j}^n + u_{i,j-1}^n}{(\Delta y)^2}

  2. Paso 2
    Discretizar la derivada temporal

    ∂u∂t≈ui,jn+1−ui,jnΔt\frac{\partial u}{\partial t} \approx \frac{u_{i,j}^{n+1} - u_{i,j}^n}{\Delta t}

  3. Paso 3
    Escribir el esquema completo (con Δx=Δy=h\Delta x = \Delta y = h)

    ui,jn+1−ui,jnΔt=αui+1,jn+ui−1,jn+ui,j+1n+ui,j−1n−4ui,jnh2\frac{u_{i,j}^{n+1} - u_{i,j}^n}{\Delta t} = \alpha \frac{u_{i+1,j}^n + u_{i-1,j}^n + u_{i,j+1}^n + u_{i,j-1}^n - 4u_{i,j}^n}{h^2}

  4. Paso 4
    Despejar ui,jn+1u_{i,j}^{n+1}

    ui,jn+1=ui,jn+λ(ui+1,jn+ui−1,jn+ui,j+1n+ui,j−1n−4ui,jn)u_{i,j}^{n+1} = u_{i,j}^n + \lambda(u_{i+1,j}^n + u_{i-1,j}^n + u_{i,j+1}^n + u_{i,j-1}^n - 4u_{i,j}^n)

    donde λ=αΔth2\lambda = \frac{\alpha \Delta t}{h^2}

  5. Paso 5
    Análisis de estabilidad de Von Neumann

    Proponemos ui,jn=Gnei(β1ih+β2jh)u_{i,j}^n = G^n e^{i(\beta_1 i h + \beta_2 j h)}

  6. Paso 6
    Calcular el factor de amplificación

    G=1+λ[eiβ1h+e−iβ1h+eiβ2h+e−iβ2h−4]G = 1 + \lambda[e^{i\beta_1 h} + e^{-i\beta_1 h} + e^{i\beta_2 h} + e^{-i\beta_2 h} - 4]

    G=1+2λ[cos⁡(β1h)+cos⁡(β2h)−2]G = 1 + 2\lambda[\cos(\beta_1 h) + \cos(\beta_2 h) - 2]

    G=1−2λ[2−cos⁡(β1h)−cos⁡(β2h)]G = 1 - 2\lambda[2 - \cos(\beta_1 h) - \cos(\beta_2 h)]

  7. Paso 7
    Condición de estabilidad

    Para ∣G∣≤1|G| \leq 1, el caso más restrictivo es cuando cos⁡(β1h)=cos⁡(β2h)=−1\cos(\beta_1 h) = \cos(\beta_2 h) = -1:

    G=1−2λ×4=1−8λG = 1 - 2\lambda \times 4 = 1 - 8\lambda

    Para estabilidad: 1−8λ≥−1⇒λ≤141 - 8\lambda \geq -1 \Rightarrow \lambda \leq \frac{1}{4}

  8. Paso 8
    Conclusión

    La condición de estabilidad para la ecuación del calor 2D es: λ=αΔth2≤14\lambda = \frac{\alpha \Delta t}{h^2} \leq \frac{1}{4}.

Ejercicio 3

Dificultad: Avanzado

Resolver la ecuación del calor con fuente: ∂u∂t=∂2u∂x2+f(x,t)\frac{\partial u}{\partial t} = \frac{\partial^2 u}{\partial x^2} + f(x,t) donde f(x,t)=10e−tsin⁡(πx)f(x,t) = 10e^{-t}\sin(\pi x), en el dominio [0,1]×[0,0.5][0{,}1] \times [0{,}0.5] con condiciones u(0,t)=u(1,t)=0u(0,t) = u(1,t) = 0 y u(x,0)=sin⁡(πx)u(x,0) = \sin(\pi x). Comparar con la solución analítica.

Ver solución paso a paso6 pasos
  1. Paso 1
    Encontrar la solución analítica

    Propongo u(x,t)=A(t)sin⁡(πx)u(x,t) = A(t)\sin(\pi x)

    Sustituyendo en la EDP:

    A′(t)sin⁡(πx)=−π2A(t)sin⁡(πx)+10e−tsin⁡(πx)A'(t)\sin(\pi x) = -\pi^2 A(t)\sin(\pi x) + 10e^{-t}\sin(\pi x)

    A′(t)=−π2A(t)+10e−tA'(t) = -\pi^2 A(t) + 10e^{-t}

  2. Paso 2
    Resolver la EDO para A(t)A(t)

    Esta es una ecuación lineal de primer orden con factor integrante μ(t)=eπ2t\mu(t) = e^{\pi^2 t}:

    ddt[A(t)eπ2t]=10e(π2−1)t\frac{d}{dt}[A(t)e^{\pi^2 t}] = 10e^{(\pi^2-1)t}

    Integrando:

    A(t)eπ2t=10(π2−1)e(π2−1)t+CA(t)e^{\pi^2 t} = \frac{10}{(\pi^2-1)}e^{(\pi^2-1)t} + C

    Con u(x,0)=sin⁡(πx)u(x,0) = \sin(\pi x): A(0)=1A(0) = 1, entonces C=1−10π2−1C = 1 - \frac{10}{\pi^2-1}

  3. Paso 3
    Solución analítica completa

    A(t)=10π2−1e−t+(1−10π2−1)e−π2tA(t) = \frac{10}{\pi^2-1}e^{-t} + \left(1 - \frac{10}{\pi^2-1}\right)e^{-\pi^2 t}

    u(x,t)=A(t)sin⁡(πx)u(x,t) = A(t)\sin(\pi x)

  4. Paso 4
    Implementar el esquema numérico

    uin+1=uin+λ(ui+1n−2uin+ui−1n)+Δt⋅f(xi,tn)u_i^{n+1} = u_i^n + \lambda(u_{i+1}^n - 2u_i^n + u_{i-1}^n) + \Delta t \cdot f(x_i, t_n)

    Con Δx=0.1\Delta x = 0.1, Δt=0.005\Delta t = 0.005, λ=0.5\lambda = 0.5

  5. Paso 5
    Comparar en t=0.1t = 0.1, x=0.5x = 0.5

    Analítica: u(0.5,0.1)=A(0.1)×1≈0.9727u(0.5, 0.1) = A(0.1) \times 1 \approx 0.9727

    Numérica: u(0.5,0.1)≈0.9789u(0.5, 0.1) \approx 0.9789

    Error relativo: ≈0.6%\approx 0.6\%

  6. Paso 6
    Conclusión

    El esquema numérico reproduce muy bien la solución analítica con un error del orden de O(Δt+(Δx)2)O(\Delta t + (\Delta x)^2).

Ejercicio 4

Dificultad: Experto

Estudiar el comportamiento de la solución de la ecuación del calor con condiciones de frontera mixtas: u(0,t)=100u(0,t) = 100, ∂u∂x(1,t)=−5\frac{\partial u}{\partial x}(1,t) = -5 y condición inicial u(x,0)=20x+80u(x,0) = 20x + 80. Determinar el estado estacionario.

Ver solución paso a paso7 pasos
  1. Paso 1
    Análizar el estado estacionario

    En estado estacionario: ∂u∂t=0\frac{\partial u}{\partial t} = 0, por lo tanto d2udx2=0\frac{d^2u}{dx^2} = 0

    La solución general es u(x)=Ax+Bu(x) = Ax + B

  2. Paso 2
    Aplicar condiciones de frontera
    • u(0)=100⇒B=100u(0) = 100 \Rightarrow B = 100
    • dudx(1)=−5⇒A=−5\frac{du}{dx}(1) = -5 \Rightarrow A = -5

    Estado estacionario: uss(x)=−5x+100u_{ss}(x) = -5x + 100

  3. Paso 3
    Implementar condiciones de frontera en diferencias finitas

    Para la condición de Neumann en x=1x = 1:

    un+1−un−12Δx=−5\frac{u_{n+1} - u_{n-1}}{2\Delta x} = -5 (aproximación centrada)

    O usando un punto fantasma: un+1=un−1−10Δxu_{n+1} = u_{n-1} - 10\Delta x

  4. Paso 4
    Esquema modificado para el último punto interior

    unn+1=unn+λ(un−1n−unn+un−1n−unn−10Δx)u_n^{n+1} = u_n^n + \lambda(u_{n-1}^n - u_n^n + u_{n-1}^n - u_n^n - 10\Delta x)

    =unn+λ(2un−1n−2unn−10Δx)= u_n^n + \lambda(2u_{n-1}^n - 2u_n^n - 10\Delta x)

  5. Paso 5
    Simulación numérica (Δx=0.1\Delta x = 0.1, Δt=0.005\Delta t = 0.005)

    Evolución temporal hacia el estado estacionario:

    • t=0t = 0: u=[100,82,84,...,98,100]u = [100, 82, 84, ..., 98, 100]
    • t=0.1t = 0.1: u≈[100,98.3,96.8,...,92.5,92.1]u \approx [100, 98.3, 96.8, ..., 92.5, 92.1] (todavía lejos del estado estacionario)
    • t=∞t = \infty: u=[100,99.5,99.0,...,95.5,95]u = [100, 99.5, 99.0, ..., 95.5, 95]
  6. Paso 6
    Verificación del estado estacionario

    En tt grande, la solución numérica converge a:

    u(x)=−5x+100u(x) = -5x + 100, confirmando el análisis teórico.

  7. Paso 7
    Tiempo característico

    Con Dirichlet en x=0x = 0 y Neumann en x=Lx = L, el modo más lento es sin⁡(πx2L)\sin\left(\frac{\pi x}{2L}\right), así que el tiempo de relajación es τ∼4L2απ2≈0.4\tau \sim \frac{4L^2}{\alpha\pi^2} \approx 0.4 (para α=1\alpha = 1, L=1L = 1).