: Santos Bravo Yuste. email: santos@unex.es
![[Graphics:Images/DifusMetExpli2D.nb_gr_5.gif]](Images/DifusMetExpli2D.nb_gr_5.gif)
Empezamos asignando temperatura cero a todos los puntos (x_j,y_l) en el instante inicial (t=0): u(x,y,0)=0.
Recordad que x_m=m Δx, e y_l=l Δy. Aquí tomamos jmax=lmax=16 como el valor máximo de j y l. Podemos usar otro valor para jmax y lmax, pero hay que ser prudentes y no usar un número demasiado grande si no queremos hacer trabajar demasiado al ordenador y no queremos aburrirnos esperando la salida de los resultados.
![[Graphics:Images/DifusMetExpli2D.nb_gr_6.gif]](Images/DifusMetExpli2D.nb_gr_6.gif)
Asignamos temperatura u=1 para todo instante t a los puntos sobre una cruz centrada de tamaño L/2 por L/2
![[Graphics:Images/DifusMetExpli2D.nb_gr_7.gif]](Images/DifusMetExpli2D.nb_gr_7.gif)
Asignamos temperatura u=-1 en el instante t=0 a los puntos situados en el lado superior (j=0)
![[Graphics:Images/DifusMetExpli2D.nb_gr_8.gif]](Images/DifusMetExpli2D.nb_gr_8.gif)
Asignamos, para cualquier instante posterior a t=0, la temperatura u=-1 a los puntos situados en el borde superior (j=0) y temperatura 0 a los situados en los otros tres lados:
![[Graphics:Images/DifusMetExpli2D.nb_gr_9.gif]](Images/DifusMetExpli2D.nb_gr_9.gif)
Comprobamos que las condiciones iniciales y de contorno son las deseadas.
![[Graphics:Images/DifusMetExpli2D.nb_gr_10.gif]](Images/DifusMetExpli2D.nb_gr_10.gif)
Comprobamos que las condiciones de contorno son las deseadas. Para ello mostramos la solución en un instante tm posterior a t=0.
![[Graphics:Images/DifusMetExpli2D.nb_gr_12.gif]](Images/DifusMetExpli2D.nb_gr_12.gif)
Representamos las condiciones iniciales en una gráfica tridimensional.
![[Graphics:Images/DifusMetExpli2D.nb_gr_14.gif]](Images/DifusMetExpli2D.nb_gr_14.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_15.gif]](Images/DifusMetExpli2D.nb_gr_15.gif)
Fórmula de integración del método explícito. La instrucción u[j_,l_,m_]:=u[j,l,m]=...., hace que una vez evaluado u[j.l,m], este valor quede en memoria y no necesite ser evaluado de nuevo. Esto hace que el cálculo de u para m grandes se lleve a cabo con rapidez.
![[Graphics:Images/DifusMetExpli2D.nb_gr_16.gif]](Images/DifusMetExpli2D.nb_gr_16.gif)
Vamos a integrar usando s=1/4. Esto garantiza la estabilidad del método de resolución.
![[Graphics:Images/DifusMetExpli2D.nb_gr_17.gif]](Images/DifusMetExpli2D.nb_gr_17.gif)
Veamos la solución en un instante tm cualquiera
![[Graphics:Images/DifusMetExpli2D.nb_gr_18.gif]](Images/DifusMetExpli2D.nb_gr_18.gif)
Una gráfica tridimensional con la solución en el instante t=20Δt:
![[Graphics:Images/DifusMetExpli2D.nb_gr_20.gif]](Images/DifusMetExpli2D.nb_gr_20.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_21.gif]](Images/DifusMetExpli2D.nb_gr_21.gif)
Veamos la solución mediante un código de colores en el instante t=tm (tm=0,5,10,20,30)
![[Graphics:Images/DifusMetExpli2D.nb_gr_22.gif]](Images/DifusMetExpli2D.nb_gr_22.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_23.gif]](Images/DifusMetExpli2D.nb_gr_23.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_24.gif]](Images/DifusMetExpli2D.nb_gr_24.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_25.gif]](Images/DifusMetExpli2D.nb_gr_25.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_26.gif]](Images/DifusMetExpli2D.nb_gr_26.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_27.gif]](Images/DifusMetExpli2D.nb_gr_27.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_28.gif]](Images/DifusMetExpli2D.nb_gr_28.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_29.gif]](Images/DifusMetExpli2D.nb_gr_29.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_30.gif]](Images/DifusMetExpli2D.nb_gr_30.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_31.gif]](Images/DifusMetExpli2D.nb_gr_31.gif)
Veamos la solución mediante un mapa de líneas isotérmicas
![[Graphics:Images/DifusMetExpli2D.nb_gr_32.gif]](Images/DifusMetExpli2D.nb_gr_32.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_33.gif]](Images/DifusMetExpli2D.nb_gr_33.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_34.gif]](Images/DifusMetExpli2D.nb_gr_34.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_35.gif]](Images/DifusMetExpli2D.nb_gr_35.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_36.gif]](Images/DifusMetExpli2D.nb_gr_36.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_37.gif]](Images/DifusMetExpli2D.nb_gr_37.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_38.gif]](Images/DifusMetExpli2D.nb_gr_38.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_39.gif]](Images/DifusMetExpli2D.nb_gr_39.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_40.gif]](Images/DifusMetExpli2D.nb_gr_40.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_41.gif]](Images/DifusMetExpli2D.nb_gr_41.gif)
![[Graphics:Images/DifusMetExpli2D.nb_gr_42.gif]](Images/DifusMetExpli2D.nb_gr_42.gif)
(1) Integra el sistema usando s=1/2. ¿Qué sucede?
(2) Resuelve el problema empleando otras condiciones iniciales y/o de contorno (las que más te motiven/gusten/interesen). Puedes, por ejemplo, hacer que estas condiciones dependan del tiempo.