Hola
Muchas gracias
Entiendo que con "en todos lados de la región" el autor se refiere entonces a sólo el borde y no a toda la región, pues ¿esto no podría ser?
No tendría sentido que fuese \( u(x,y)=0 \) en TODA la región; entonces no habría nada que calcular, sería la función constante nula y además no cumpliría la ecuación propuesta.
Centremos el problema. Buscamos una función \( u(x,y) \) definida en el cuadrado \( [0,1]\times [0,1] \) que cumpla la ecuación diferencial:
\( \dfrac{\partial^2u}{\partial x^2}+\dfrac{\partial^2u}{\partial y^2}-u=4 \)
Si sólo imponemos eso habría infinitas soluciones. Pero además buscamos la solución que sobre los bordes del cuadrado valga cero. Es decir aquella que cumpla:
\( u(x,0)=u(x,1)=u(0,y)=u(1,y)=0 \) para \( 0\leq x.y\leq 1 \)
Además, el cambio que dices hace que la matriz deje de ser simétrica, ¿no?
Es que tuve una errata. Es \( a_{i+1,i}=a_{i,i+1}=0 \) para \( i \) múltiplo de \( n \).
Por último, ¿cómo estás haciendo para graficar la función? Tenemos un número finito de puntos y tus gráficas parecen de funciones continuas.
Efectivamente son puntos:
\( P_{i,j}=(x_i,y_j,u(x_i,y_j)) \)
con \( x_i=i/(n+1), y_j=j/(n+1) \), \( i,j=0,1,2,\ldots,n+1 \).
Para que parezca una superficie se trazan cuadriláteros uniendo los puntos:
\( P_{i,j},P_{i+1,j},P_{i,j+1},P_{i+1,j+1} \)
Yo lo he implementado con Mathematica que dados los puntos dibuja automáticamente la superficie con el comando ListPlot3D.
Saludos.