Approximation to advection equation in plane irregular regions using a Method of Lines and Generalized Finite Differences

==Aproximación de la ecuación de advección en regiones irregulares utilizando un Método de Líneas y Diferencias Finitas Generalizadas==

'''G.&nbsp;Tinoco-Guerrero, F.&nbsp;J.&nbsp;Domínguez-Mota,

J.&nbsp;S.&nbsp;Lucas-Martínez y J.&nbsp;G.&nbsp;Tinoco-Ruiz'''

==Resumen==

Uno de los grandes retos en nuestros días continua siendo el diseñar métodos numéricos capaces de aproximar la solución de ecuaciones diferenciales parciales de manera rápida y precisa. Una de las ecuaciones más importantes, debido a las aplicaciones hidráulicas y de transporte con las que cuenta, y a la gran cantidad de dificultades que suele presentar al momento de resolverla numéricamente es la ''Ecuación de Advección''.

En el presente trabajo se presenta un Método de Líneas aplicado a la solución numérica de dicha ecuación en regiones irregulares haciendo uso de un esquema de Diferencias Finitas Generalizadas. Se presentan una serie de pruebas y resultados numéricos, los cuales muestran la precisión del método propuesto.

==1 Introducción==

Si una sustancia es transportada en un fluido a una velocidad constante <math display="inline">a</math>, la función del flujo puede escribirse como

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>\begin{array}{l}    f(u)=au.\\   \end{array}</math>
|}
|}

El flujo de materia que pasa por el punto <math display="inline">x</math> puede conocerse multiplicando la densidad local <math display="inline">u(x,t)</math> por la velocidad de transporte. Dado que el total de la masa que pasa entre dos puntos, <math display="inline">x_1</math> y <math display="inline">x_2</math>, cambia únicamente debido al flujo en los puntos límite, puede ser calculada como

<span id="eq-1"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>\frac{d}{dt}\int _{x_1}^{x_2}u(x,t)dx = f(u(x_2,t))-f(u(x_1,t)).       </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (1)
|}

Asumiendo suficiente suavidad en <math display="inline">u</math> y <math display="inline">f</math>, ''i.e.'' son funciones con tantas derivadas como sea necesario, la ecuación ([[#eq-1|1]]) puede escribirse como

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    \int _{x_1}^{x_2}\left[\frac{\partial }{\partial t} u(x,t) + \frac{\partial }{\partial x} f(u(x,t)) \right]dx = 0,   </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (2)
|}

ahora, debido a que la integral debe ser igual a <math>0</math> para cualesquiera valores de <math>x_1</math> y <math>x_2</math>, entonces el integrando es igual a <math>0</math>, con esto se obtiene la ecuación diferencial

<span id="eq-3"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    \frac{\partial }{\partial t} u(x,t) + \frac{\partial }{\partial x} f(u(x,t)) = 0.       </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (3)
|}

Para el problema del transporte de una sustancia en un fluido a una velocidad constante, se puede escribir <math>f(u) = au</math>, donde <math>a</math> es una constante que representa la velocidad del fluido. Utilizando estos valores en la ecuación ([[#eq-3|3]]) se puede llegar a

<span id="eq-4"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    \frac{\partial }{\partial t} u(x,t) + a \frac{\partial }{\partial x} u(x,t) = 0,       </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (4)
|}

que es conocida como la ecuación de advección en <math>(1+1)D</math>, la cual, por razones de simplicidad, puede ser escrita como

<span id="eq-5"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    \frac{\partial u}{\partial t} + a\frac{\partial u}{\partial x} = 0.       </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (5)
|}

Analogamente, para el problema de transporte en el plano se obtiene la ecuación

<span id="eq-6"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    \frac{\partial u}{\partial t} + a\frac{\partial u}{\partial x} + b\frac{\partial u}{\partial y} = 0.       </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (6)
|}

En este trabajo se desea obtener una aproximación en '''Diferencias Finitas Generalizadas''', para la parte espacial, a la solución del problema

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    \frac{\partial u}{\partial t} + a\frac{\partial u}{\partial x} + b\frac{\partial u}{\partial y} = 0  \Omega \times [0,T]  a,b\in I\!\!R,   </math>
|}
|}

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>\begin{array}{l}    u(x,y,0) = g(x,y)   & & (x, y) \in \Omega ,\\    u(x,y,t)|_{S_1} = h(x,y,t)  & & (x, y) \in \Omega \quad t\in [0,T],   \end{array}</math>
|}
|}

donde <math display="inline">\Omega </math> es un dominio plano simplemente conexo, y su frontera, <math display="inline">\partial \Omega </math>, es un polígono de Jordan orientado de manera positiva; además <math display="inline">\partial \Omega = S_1\cup S_2</math> (como se muestra en la figura [[#img-1|1]]), <math display="inline">S_1</math> corresponde a la frontera con la entrada de flujo. Para la parte temporal se utilizará un '''Método de Líneas'''.

El problema de advección es de interés en modelación por las inestabilidades que se presentan al aproximar su solución empleando diferencias finitas.

<div id='img-1'></div>
{| class="floating_imageSCP" style="text-align: center; border: 1px solid #BBB; margin: 1em auto; width: 100%;max-width: 100%;"
|-

|- style="text-align: center; font-size: 75%;"
| colspan="1" | '''Figura 1:''' Dominio <math>\Omega </math> con fronteras <math>\partial \Omega = S_1 \cup S_2</math>.
|}

==2 Esquema propuesto==

Para el caso de la ecuación de advección

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>   \frac{\partial u}{\partial t} =  - a\frac{\partial u}{\partial x} - b\frac{\partial u}{\partial y},  </math>
|}
|}

es posible discretizar las derivadas espaciales utilizando el método de Diferencias Finitas Generalizadas; para ello es conveniente considerar la aproximación al operador lineal de segundo orden

<span id="eq-7"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>      Lu = Au_{xx} + Bu_{xy} + Cu_{yy} + Du_{x} + Eu_{y} + Fu,  </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (7)
|}

donde <math display="inline">A, B, C, D, E</math> y <math display="inline">F</math> son funciones dadas y su valor en el nodo <math display="inline">p_0 = (x_0,y_0)</math> puede aproximarse usando valores de <math display="inline">u</math> en algunos nodos vecinos <math display="inline">p_i=(x_i, y_i)</math>, <math display="inline">i~=~1,2,\dots ,q</math> (fig. [[#img-2|2]]). Para el efecto se utiliza un esquema de diferencias finitas en el nodo <math display="inline">p_0</math>, el cual puede escribirse como una combinación lineal

<span id="eq-8"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>      L_0 = \Gamma _0 u(p_0) + \Gamma _1 u(p_1) + ... + \Gamma _q u(p_q).  </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (8)
|}

donde <math display="inline">\Gamma _0, \Gamma _1, \dots , \Gamma _q</math> son pesos adecuados.

<div id='img-2'></div>
{| class="floating_imageSCP" style="text-align: center; border: 1px solid #BBB; margin: 1em auto; width: 100%;max-width: 100%;"
|-

|- style="text-align: center; font-size: 75%;"
| colspan="1" | '''Figura 2:''' Distribución arbitraria de <math>p_0</math> y sus vecinos.
|}
Un esquema es consistente si

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>   [Lu]_{p_0} - L_0 \to 0  </math>
|}
|}

cuando <math display="inline">p_1,...,p_q \to p_0</math>. Utilizando los primeros seis términos de la expansión en serie de Taylor, hasta segundo orden, de la condición de consistencia se obtiene el sistema

<span id="eq-9"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>      \left(    \begin{array}{lclc}     1 & 1    & ... & 1\\     0 & \Delta x_1   & ... & \Delta x_q\\     0 & \Delta y_1   & ... & \Delta y_q\\     0 & (\Delta x_1)^2  & ... & (\Delta x_q)^2\\     0 & \Delta x_1\Delta y_1 & ... & \Delta x_q \Delta y_q\\     0 & (\Delta y_1)^2  & ... & (\Delta y_q)^2\\    \end{array}   \right)   \left(    \begin{array}{l}     \Gamma _0\\     \Gamma _1\\     \Gamma _2\\     .\\     .\\     .\\     \Gamma _q\\    \end{array}   \right)   =   \left(    \begin{array}{l}     F(p_0)\\     D(p_0)\\     E(p_0)\\     2A(p_0)\\     B(p_0)\\     2C(p_0)\\    \end{array}   \right),  </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (9)
|}

donde <math display="inline">\Delta x_{i} = x_{i}-x_{0}</math> y <math display="inline">\Delta y_{i} = y_{i}-y_{0}</math>.  Nótese que ([[#eq-9|9]]) cuenta con 6 ecuaciones y <math display="inline">q+1</math> incógnitas. En los casos de interés, es un sistema subdeterminado. Sin embargo puede ser resuelto de manera no iterativa en el sentido de cuadrados mínimos, para ello se consideran únicamente las últimas 5 ecuaciones de ([[#eq-9|9]]),

<span id="eq-10"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>      \left(    \begin{array}{lcl}     \Delta x_1   & ... & \Delta x_q\\     \Delta y_1   & ... & \Delta y_q\\     (\Delta x_1)^2  & ... & (\Delta x_q)^2\\     \Delta x_1\Delta y_1 & ... & \Delta x_q \Delta y_q\\     (\Delta y_1)^2  & ... & (\Delta y_q)^2\\    \end{array}   \right)   \left(    \begin{array}{l}     \Gamma _1\\     \Gamma _2\\     .\\     .\\     .\\     \Gamma _q\\    \end{array}   \right)   =   \left(    \begin{array}{l}     D(p_0)\\     E(p_0)\\     2A(p_0)\\     B(p_0)\\     2C(p_0)\\    \end{array}   \right),  </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (10)
|}

cuyas ecuaciones normales pueden resolverse utilizando factorización reducida de Cholesky para obtener los valores de <math display="inline">\Gamma _1,...,\Gamma _q</math>. La primera ecuación de ([[#eq-9|9]]) determina <math display="inline">\Gamma _0</math> como

<span id="eq-11"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>      \Gamma _0 = -\Gamma _1 ... - \Gamma _q + F(p_0).  </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (11)
|}

De esta forma se obtiene un conjunto de coeficientes necesarios para definir el esquema ([[#eq-8|8]]).

El esquema definido por ([[#eq-8|8]]) puede ser aplicado al operador

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>   -a\frac{\partial u}{\partial x} - b\frac{\partial u}{\partial y},  </math>
|}
|}

y los coeficientes <math display="inline">\Gamma _0,...,\Gamma _q</math> obtenidos definen el esquema

<span id="eq-12"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>      L_0 = \sum _{l=0}^q \Gamma _l u_l.  </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (12)
|}

Nótese que el esquema ([[#eq-12|12]]) puede ser usado tanto en mallas estructuradas como en mallas no estructuradas. Sin embargo, el uso de mallas lógicamente rectangulares permite aprovechar la estructura dada por el par de índices en la malla <math display="inline">G~=~\{ p_{i,j}~|~1\le i\le m , 1\le j\le n\} </math>.

Para este trabajo se proponen dos esquemas diferentes. El primero de ellos utiliza cada nodo de la malla y 3 de sus vecinos, con esta elección de vecinos se obtiene un esténcil como el mostrado en la figura ([[#img-3|3]]); el esquema ([[#eq-12|12]]) toma la forma

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>   L_0 = \Gamma _0 u_{0} + \Gamma _1 u_{1} +  \Gamma _2 u_{2} + \Gamma _3 u_{3}.  </math>
|}
|}

<div id='img-3'></div>
{| class="floating_imageSCP" style="text-align: center; border: 1px solid #BBB; margin: 1em auto; width: 100%;max-width: 100%;"
|-

|- style="text-align: center; font-size: 75%;"
| colspan="1" | '''Figura 3:''' Esténcil de 4 puntos.
|}
El segundo esquema que se propone utiliza cada nodo de la malla y 5 de sus vecinos. Los esténciles usados varían dependiendo de la localización lógica del nodo correspondiente en términos de su posición en la malla, cada uno de estos esténciles se muestran en la figura ([[#img-4|4]]) y, en todos los casos, se obtiene una expresión de la forma

<span id="eq-13"></span>
{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>       L_0 = \Gamma _0 u_{0} + \Gamma _1 u_{1} +  \cdots + \Gamma _5(i,j) u_{5}.  </math>
|}
| style="width: 5px;text-align: right;white-space: nowrap;" | (13)
|}

<div id='img-4'></div>
{| class="floating_imageSCP" style="text-align: center; border: 1px solid #BBB; margin: 1em auto; width: 100%;max-width: 100%;"
|-

|- style="text-align: center; font-size: 75%;"
| colspan="1" | '''Figura 4:''' Diferentes esténciles del esquema de 6 puntos.
|}
Una vez que se cuenta con una discretización del operador espacial, el problema de encontrar una aproximación a la solución de la ecuación de advección

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>   \frac{\partial u}{\partial t} = L_0,  </math>
|}
|}

puede resolverse como un sistema lineal de ecuaciones diferenciales ordinarias en el tiempo; el cual puede ser resuelto por medio de un método de Runge-Kutta. En el presente trabajo se propone utilizar Runge-Kutta de orden 2, 3 y 4 de la siguiente manera:

==Runge-Kutta de Orden 2==

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    u^{k} = u^{k-1} + \frac{\Delta t}{2}\left(r_1 + r_2\right),   </math>
|}
|}

donde

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    r_1 = u^{k-1},   </math>
|}
|}

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    r_2 = u^{k-1}+ \frac{\Delta t}{2} (r_1).   </math>
|}
|}

==Runge-Kutta de Orden 3==

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    u^{k} = u^{k-1} + \frac{\Delta t}{6}\left(r_1 + 4r_2 + r_3\right),   </math>
|}
|}

donde

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    r_1 = u^{k-1},   </math>
|}
|}

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    r_2 = u^{k-1} + \frac{\Delta t}{2} (r_1),   </math>
|}
|}

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    r_3 = u^{k-1} + \Delta t (2r_2-r_1),   </math>
|}
|}

==Runge-Kutta de Orden 4==

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    u^{k} = u^{k-1} + \frac{\Delta t}{6}\left(r_1 + 2r_2 + 2r_3 + r_4\right),   </math>
|}
|}

donde

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    r_1 = u^{k-1},   </math>
|}
|}

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    r_2 = u^{k-1} + \frac{\Delta t}{2} (r_1),   </math>
|}
|}

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    r_3 = u^{k-1} + \frac{\Delta t}{2} (r_2),   </math>
|}
|}

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>    r_4 = u^{k-1} + \Delta t (r_3),   </math>
|}
|}

en todos los casos, <math display="inline">k</math> representa el nivel de tiempo.

==3 Pruebas numéricas==

Para medir la precisión de los métodos se planteo el problema de obtener una aproximación a la ecuación

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>   u(x,y,t) = 0.2e^{((-(x-0.5-0.2t)^2-(y-0.3-0.2t)^2)/.01)},  </math>
|}
|}

y se aplicó a dos regiones de prueba denotadas como CAB y MIC, las cuales son regiones planas no rectangulares, como se muestra en la figura ([[#img-5|5]]). Para estas regiones se generaron mallas lógicamente rectangulares con 21, 41 y 81 puntos por lado respectivamente, en la figura ([[#img-6|6]]) se muestran las mallas generadas con 41 puntos por lado.  <div id='img-5'></div>
{| class="floating_imageSCP" style="text-align: center; border: 1px solid #BBB; margin: 1em auto; width: 100%;max-width: 100%;"
|-

|- style="text-align: center; font-size: 75%;"
| colspan="1" | '''Figura 5:''' Regiones de prueba.
|}
<div id='img-6'></div>
{| class="floating_imageSCP" style="text-align: center; border: 1px solid #BBB; margin: 1em auto; width: 100%;max-width: 100%;"
|-

|- style="text-align: center; font-size: 75%;"
| colspan="1" | '''Figura 6:''' Mallas generadas con 41 puntos por lado.
|}
Las pruebas numéricas se realizaron utilizando una discretizacion uniforme del intervalo de tiempo <math display="inline">[0,1]</math> dividido en 200 subintervalos. En todos los casos se calcularon el error cuadrático medio

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>   ECM = \hbox{max}\left(\sqrt{\sum _{i,j}(u_{i,j}^k - U_{i,j}^{k})^2A_{i,j}}\right),  </math>
|}
|}

donde <math display="inline">A_{i,j}</math> es el área del cuadrilátero correspondiente; y el error máximo normalizado

{| class="formulaSCP" style="width: 100%; text-align: left;" 
|-
| 
{| style="text-align: left; margin:auto;width: 100%;" 
|-
| style="text-align: center;" | <math>   EMN = \frac{\hbox{max}\left(u^k - U^k\right)}{\hbox{max}(U^k)},  </math>
|}
|}

siendo <math display="inline">u_{i,j}^{k}</math> y <math display="inline">U_{i,j}^{k}</math> la solución aproximada y la exacta, en el nodo <math display="inline">i,j</math> al tiempo <math display="inline">k</math>, respectivamente.

Los conjuntos de figuras ([[#img-7|7]]) y ([[#img-8|8]]) muestran los resultados obtenidos utilizando el método de 6 puntos con Runge-Kutta 4, en la región CAB con <math display="inline">41\times{41}</math> puntos espaciales en diferentes niveles de tiempo; por su parte los conjuntos de figuras ([[#img-9|9]]) y ([[#img-10|10]]) muestran los resultados correspondientes para la región MIC.

La tabla ([[#table-1|1]]) muestra los errores calculados en todas las pruebas para la región CAB, mientras que la tabla ([[#table-2|2]]) muestra los correspondientes para la región MIC. Los métodos se encuentran abreviados siguiendo la nomenclatura RK''N''-''P'', donde ''N'' representa el orden utilizado para el método de Runge-Kutta y ''P'' el número de nodos utilizados por el esténcil de Diferencias Finitas Generalizadas para la discretización del operador espacial.

<div id='img-7'></div>
{| class="floating_imageSCP" style="text-align: center; border: 1px solid #BBB; margin: 1em auto; width: 100%;max-width: 100%;"
|-

|- style="text-align: center; font-size: 75%;"
| colspan="1" | '''Figura 7:''' Resultados para la región CAB con <math>[41\times{41}]</math> puntos.
|}
<div id='img-8'></div>
{| class="floating_imageSCP" style="text-align: center; border: 1px solid #BBB; margin: 1em auto; width: 100%;max-width: 100%;"
|-

|- style="text-align: center; font-size: 75%;"
| colspan="1" | '''Figura 8:''' Resultados para la región CAB con <math>[41\times{41}]</math> puntos.
|}
<div id='img-9'></div>
{| class="floating_imageSCP" style="text-align: center; border: 1px solid #BBB; margin: 1em auto; width: 100%;max-width: 100%;"
|-

|- style="text-align: center; font-size: 75%;"
| colspan="1" | '''Figura 9:''' Resultados para la región MIC con <math>[41\times{41}]</math> puntos.
|}
<div id='img-10'></div>
{| class="floating_imageSCP" style="text-align: center; border: 1px solid #BBB; margin: 1em auto; width: 100%;max-width: 100%;"
|-

|- style="text-align: center; font-size: 75%;"
| colspan="1" | '''Figura 10:''' Resultados para la región MIC con <math>[41\times{41}]</math> puntos.
|}

{|  class="floating_tableSCP wikitable" style="text-align: center; margin: 1em auto;min-width:50%;"
|+ style="font-size: 75%;" |<span id='table-1'></span>Tabla. 1 Errores calculados para la región CAB.
|- style="border-top: 2px solid;"
| style="text-align: left;" |

Método 
|  ECM-21  
|  EMN-21  
|  ECM-41  
|  EMN-41  
|  ECM-81  
|  EMN-81
|- style="border-top: 2px solid;"
| style="text-align: left;" |

RK2-4 
|  1.4639E-02 
|  5.9141E-01 
|  1.0151E-02 
|  4.2571E-01 
|  6.2021E-03 
|  2.6868E-01
|-
| style="text-align: left;" |      RK3-4 
|  1.4717E-02 
|  5.9386E-01 
|  1.0308E-02 
|  4.3131E-01 
|  6.4582E-03 
|  2.7820E-01
|-
| style="text-align: left;" |      RK4-4 
|  1.4717E-02 
|  5.9386E-01 
|  1.0308E-02 
|  4.3131E-01 
|  6.4581E-03 
|  2.7820E-01
|-
| style="text-align: left;" |      RK2-6 
|  9.7173E-03 
|  3.6234E-01 
|  3.8362E-03 
|  1.4595E-01 
|  1.1686E-03 
|  4.2355E-02
|-
| style="text-align: left;" |      RK3-6 
|  9.7326E-03 
|  3.6546E-01 
|  3.8709E-03 
|  1.5144E-01 
|  1.1113E-03 
|  4.2459E-02
|- style="border-bottom: 2px solid;"
| style="text-align: left;" |      RK4-6 
|  9.7326E-03 
|  3.6546E-01 
|  3.8709E-03 
|  1.5144E-01 
|  1.1113E-03 
|  4.2459E-02

|}

{|  class="floating_tableSCP wikitable" style="text-align: center; margin: 1em auto;min-width:50%;"
|+ style="font-size: 75%;" |<span id='table-2'></span>Tabla. 2 Errores calculados para la región MIC.
|- style="border-top: 2px solid;"
| style="text-align: left;" |

Método 
|  ECM-21  
|  EMN-21  
|  ECM-41  
|  EMN-41  
|  ECM-81  
|  EMN-81
|- style="border-top: 2px solid;"
| style="text-align: left;" |

RK2-4 
|  1.4085E-02 
|  5.9370E-01 
|  9.7196E-03 
|  4.2643E-01 
|  5.9166E-03 
|  2.6669E-01
|-
| style="text-align: left;" |      RK3-4 
|  1.4167E-02 
|  5.9677E-01 
|  9.8742E-03 
|  4.3352E-01 
|  6.1416E-03 
|  2.7784E-01
|-
| style="text-align: left;" |      RK4-4 
|  1.4167E-02 
|  5.9677E-01 
|  9.8742E-03 
|  4.3352E-01 
|  6.1416E-03 
|  2.7784E-01
|-
| style="text-align: left;" |      RK2-6 
|  1.0115E-02 
|  4.0059E-01 
|  4.2626E-03 
|  1.6303E-01 
|  1.2992E-03 
|  4.9904E-02
|-
| style="text-align: left;" |      RK3-6 
|  1.0104E-02 
|  4.0413E-01 
|  4.2624E-03 
|  1.6741E-01 
|  1.2385E-03 
|  5.0770E-02
|- style="border-bottom: 2px solid;"
| style="text-align: left;" |      RK4-6 
|  1.0104E-02 
|  4.0413E-01 
|  4.2624E-03 
|  1.6741E-01 
|  1.2385E-03 
|  5.0770E-02

|}

==4 Conclusiones==

Puede observarse en los resultados presentados en la sección ([[#3 Pruebas numéricas|3]]) que el Método de Líneas propuesto para la solución de la ecuación advección produce aproximaciones satisfactorias a la solución de dicha ecuación. En las pruebas realizadas no se perciben oscilaciones espurias ni inestabilidades; además, se muestra que el método es mucho más eficiente si se combina el esquema de Diferencias Finitas Generalizadas que utiliza 6 puntos con un método de Runge-Kutta 4.

Adicionalmente, a pesar de que en principio parece que el método que utiliza 4 puntos para la discretización del operador espacial no produce buenos resultados, los resultados numéricos en las tablas ([[#table-1|1]]) y ([[#table-2|2]]) muestran que una refinación de la malla espacial puede lograr mejorar los resultados del método; como es de esperarse en esta clase de métodos. Vale la pena hacer mención de que, para todas las pruebas, se utilizaron únicamente 200 pasos en la discretización temporal, lo cual hace que el costo computacional de este método resulte bajo, ya que no requiere hacer discretizaciones temporales muy pequeñas, como sucede en otros casos.

==5 Agradecimientos==

Los autores desean agradecer el apoyo brindado por CIC-UMSNH y Aula CIMNE-Morelia para la realización del presente trabajo.

===BIBLIOGRAFÍA===

<div id="cite-1"></div>
'''[1]'''  M.&nbsp;Celia and W.&nbsp;Gray, ''Numerical Methods for Differential Equations'', Prentice-Hall, (1992).    <div id="cite-2"></div>
'''[2]'''  F.&nbsp;J.&nbsp;Domínguez-Mota, P.&nbsp;M.&nbsp;Fernández-Valdez, E.&nbsp;Ruiz-Díaz, G.&nbsp;Tinoco-Guerrero and J.&nbsp;G.&nbsp;Tinoco-Ruiz, An Heuristic Finite Difference Scheme on Irregular Plane Regions, in ''Applied Mathematical Sciences'', (14), '''8''', (2014), 671-683.    <div id="cite-3"></div>
'''[3]'''  F.&nbsp;J.&nbsp;Domínguez-Mota, S.&nbsp;Mendoza-Armenta and J.&nbsp;G.&nbsp;Tinoco-Ruiz, Finite Difference Schemes Satisfying an Optimality Condition, in ''Meeting on Applied Scientific Computation and Tools 2011 Proceedings'', IMACS Series, (2011)    <div id="cite-4"></div>
'''[4]'''  R.&nbsp;J.&nbsp;LeVeque, ''Finite difference methods for ordinary and partial differential equations : steady-state and time-dependent problems'', Society for Industrial and Applied Mathematics, 2007.    <div id="cite-5"></div>
'''[5]'''  R.&nbsp;Silhavy, P.&nbsp;Silhavy and Z.&nbsp;Prokopova, ''Applied Computational Intelligence and Mathematical Methods: Computational Methods in Systems and Software 2017, Volume 2'', Springer, (2017)    <div id="cite-6"></div>
'''[6]'''  J.&nbsp;C.&nbsp;Strikwerda, ''Finite difference schemes and partial differential equations'', Society for Industrial and Applied Mathematics, 2004.    <div id="cite-7"></div>
'''[7]'''  J.&nbsp;W.&nbsp;Thomas, ''Numerical Partial Differential Equations: Finite Difference Methods'', Springer, 1998.    <div id="cite-8"></div>
'''[8]'''  G.&nbsp;Tinoco-Guerrero, F.&nbsp;J.&nbsp;Domínguez-Mota, J.&nbsp;G.&nbsp;Tinoco-Ruiz and E.&nbsp;Ruiz-Díaz, Stability aspects of a modified Lax-Wendroff scheme for irregular 2D regions, in ''Meeting on Applied Scientific Computing and Tools 2015 Proceedings'', IMACS Series, 2017.    <div id="cite-9"></div>
'''[9]'''  G. Tinoco-Guerrero, F.J. Domínguez-Mota, A. Gaona-Arias, M.L. Ruiz-Zavala and J.G. Tinoco-Ruiz, A stability analysis for a generalized finite-difference scheme applied to the pure advection equation, in ''Mathematics and Computers in Simulation'', '''147''', 2018, 293-300.