<?xml version="1.0"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="es">
		<id>https://mat.caminos.upm.es/w/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=Eduardopereiras</id>
		<title>MateWiki - Contribuciones del usuario [es]</title>
		<link rel="self" type="application/atom+xml" href="https://mat.caminos.upm.es/w/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=Eduardopereiras"/>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/wiki/Especial:Contribuciones/Eduardopereiras"/>
		<updated>2026-04-30T09:29:24Z</updated>
		<subtitle>Contribuciones del usuario</subtitle>
		<generator>MediaWiki 1.26.2</generator>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12552</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12552"/>
				<updated>2014-05-19T07:19:27Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por Euler implícito */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
 [[Archivo:Tubo1.png|thumb|200px|left|Situación inicial de las concentraciones]]&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Grafica1b|miniaturadeimagen]]&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=U0';&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12551</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12551"/>
				<updated>2014-05-19T07:18:32Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por Euler implícito */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
 [[Archivo:Tubo1.png|thumb|200px|left|Situación inicial de las concentraciones]]&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Grafica1b|miniaturadeimagen]]&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=U0';&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12548</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12548"/>
				<updated>2014-05-19T07:11:12Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Planteamiento del problema bien propuesto */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
 [[Archivo:Tubo1.png|thumb|200px|left|Situación inicial de las concentraciones]]&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Grafica1b|miniaturadeimagen]]&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12547</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12547"/>
				<updated>2014-05-19T07:10:08Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Planteamiento del problema bien propuesto */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
 [[Archivo:Tubo1.png|thumb|200px|Representación de las concentraciones del tubo en el estado inicial]]&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Grafica1b|miniaturadeimagen]]&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Tubo1.png&amp;diff=12546</id>
		<title>Archivo:Tubo1.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Tubo1.png&amp;diff=12546"/>
				<updated>2014-05-19T07:07:43Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12480</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12480"/>
				<updated>2014-05-18T21:52:28Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por método del trapecio */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Grafica1b|miniaturadeimagen]]&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12479</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12479"/>
				<updated>2014-05-18T21:52:05Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por método del trapecio */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
[[Archivo:Grafica1b|miniaturadeimagen]]&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12478</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12478"/>
				<updated>2014-05-18T21:51:14Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por método del trapecio */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Grafica1b|miniaturadeimagen]]&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Grafica1b.bmp&amp;diff=12477</id>
		<title>Archivo:Grafica1b.bmp</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Grafica1b.bmp&amp;diff=12477"/>
				<updated>2014-05-18T21:49:37Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12309</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12309"/>
				<updated>2014-05-18T19:00:17Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución numérica */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12307</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12307"/>
				<updated>2014-05-18T18:59:25Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Método de Euler Modificado */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12305</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12305"/>
				<updated>2014-05-18T18:58:35Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por Euler explícito */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12276</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12276"/>
				<updated>2014-05-18T17:49:38Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución numérica */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N)+dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
surf(xx,tt,sol)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12271</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12271"/>
				<updated>2014-05-18T17:44:29Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Método de Euler Modificado = */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12270</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12270"/>
				<updated>2014-05-18T17:44:10Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Método de Euler Modificado ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
k1=-K*U;&lt;br /&gt;
k2=-K*(U+dt*k1);&lt;br /&gt;
U=U+(dt/2)*(k1+k2;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12267</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12267"/>
				<updated>2014-05-18T17:41:57Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por Euler implícito */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12266</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12266"/>
				<updated>2014-05-18T17:40:29Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por Euler explícito */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12265</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12265"/>
				<updated>2014-05-18T17:39:42Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por método del trapecio */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N+1,N)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=K/dx^2;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt*K)/2)\((eye(N+1)-(K*dt)/2)*U);&lt;br /&gt;
sol(j+1,:)=U';&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12073</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12073"/>
				<updated>2014-05-18T14:30:59Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución numérica */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=10;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0',10*sin(0)];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U', 10*sin(t(j+1))];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12068</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12068"/>
				<updated>2014-05-18T14:27:56Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Modificación de las condiciones de fronteras */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12067</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12067"/>
				<updated>2014-05-18T14:27:03Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Modificación de las condiciones de fronteras */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
&lt;br /&gt;
Supondremos una ligera modificación en el problema respecto a las condiciones de contorno, en las que en el extremo izquierdo consideraremos el flujo de salida de la sustancia de forma constante e igual a tres (&amp;lt;math&amp;gt; u_x(0,t)=3&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
En el extremo derecho, consideraremos el caso en que se conecta un aparato que extraiga y a la vez introduzca sustancia de forma armónica, en un intervalo que tiene como máximo de entrada &amp;lt;math&amp;gt;u(5,t)=10&amp;lt;/math&amp;gt; y como máximo de salida &amp;lt;math&amp;gt;u(5,t)=-10&amp;lt;/math&amp;gt;, por lo que seguirá una función de la forma &amp;lt;math&amp;gt;u(5,t)=10sin(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12063</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12063"/>
				<updated>2014-05-18T14:18:24Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Caso particular 2: Limpiador en un extremo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Modificación de las condiciones de fronteras ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12061</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12061"/>
				<updated>2014-05-18T14:16:17Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución numérica */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12060</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12060"/>
				<updated>2014-05-18T14:12:44Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Conclusión comparativa de los resultados */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12059</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12059"/>
				<updated>2014-05-18T14:05:04Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de las diferencias finitas */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12058</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12058"/>
				<updated>2014-05-18T14:04:47Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de las diferencias finitas */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\Delta t= \Delta x/4 &amp;lt;/math&amp;gt;.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12057</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12057"/>
				<updated>2014-05-18T14:04:20Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de las diferencias finitas */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones. Los datos de la discretización que utilizaremos serán: &amp;lt;math&amp;gt; \Delta x=0.1 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \Delta t= \Delta x/4 &amp;lt;/math&amp;gt;.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12056</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12056"/>
				<updated>2014-05-18T14:00:35Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por Euler modificado */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12055</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12055"/>
				<updated>2014-05-18T14:00:17Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por Euler explícito */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=U+dt*K*U;&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12054</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12054"/>
				<updated>2014-05-18T13:59:42Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por Euler explícito */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12053</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12053"/>
				<updated>2014-05-18T13:58:36Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por Euler implícito */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)-dt*K)\(U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12052</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12052"/>
				<updated>2014-05-18T13:55:17Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por Euler implícito */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12051</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12051"/>
				<updated>2014-05-18T13:54:59Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por Euler explícito */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12050</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12050"/>
				<updated>2014-05-18T13:54:22Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de Fourier */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==== Resolución numérica ====&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12048</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12048"/>
				<updated>2014-05-18T13:43:18Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución numérica */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
xint=dx:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);&lt;br /&gt;
K(N,N-1)=-2; ;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(xint&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[0,U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('t');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12047</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12047"/>
				<updated>2014-05-18T13:40:01Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Comprobación de la conservación de la masa */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla y debe ser nula. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx= u_x(x,t)]^L_0=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12045</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12045"/>
				<updated>2014-05-18T13:38:15Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Comprobación de la conservación de la masa */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta integral, si se&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12043</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12043"/>
				<updated>2014-05-18T13:36:00Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Comprobación de la conservación de la masa */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
La propia ley de conservación de materia, en la que se expone la no creación espontánea (en el caso en que las condiciones de fronteras exigen al tubo cerrado), se puede comprobar analíticamente como la suma de todas las variaciones de sustancia en la varilla. Expresado analíticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d}{dt}\displaystyle\int_{0}^{L}u(x,t)\,dx=\displaystyle\int_{0}^{L}u_{xx}(x,t)\,dx&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12040</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12040"/>
				<updated>2014-05-18T13:26:04Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12039</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12039"/>
				<updated>2014-05-18T13:25:41Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Planteamiento del problema bien propuesto */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0, x\leq 3\\&lt;br /&gt;
3,x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_{xx}(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12038</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12038"/>
				<updated>2014-05-18T13:25:10Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Modelización de la ecuación diferencial */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_{xx}(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0,  si x\leq 3\\&lt;br /&gt;
3,  si x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12037</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=12037"/>
				<updated>2014-05-18T13:24:24Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Modelización de la ecuación diferencial */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_{xx}(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_xx(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0,  si x\leq 3\\&lt;br /&gt;
3,  si x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11489</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11489"/>
				<updated>2014-05-16T10:00:24Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de Fourier */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_xx(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_xx(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0,  si x\leq 3\\&lt;br /&gt;
3,  si x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lambda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11488</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11488"/>
				<updated>2014-05-16T09:59:54Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de Fourier */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_xx(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_xx(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0,  si x\leq 3\\&lt;br /&gt;
3,  si x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \lamda_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que la solución del problema del tubo, para las condiciones de contorno &amp;lt;math&amp;gt;u(0,t)=0, u_x(L,t)=0&amp;lt;/math&amp;gt;, será:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)=cos(\frac{\pi x}{L})e^{-\frac{\pi^2k^2}{L^2} t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11486</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11486"/>
				<updated>2014-05-16T09:56:37Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de Fourier */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_xx(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_xx(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0,  si x\leq 3\\&lt;br /&gt;
3,  si x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(x)e^{-\lambda t}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11485</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11485"/>
				<updated>2014-05-16T09:56:19Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de Fourier */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_xx(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_xx(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0,  si x\leq 3\\&lt;br /&gt;
3,  si x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la solución de &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt; será: &amp;lt;math&amp;gt; u(x,t)=\phi(X)e^{-\lambdat}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11483</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11483"/>
				<updated>2014-05-16T09:54:28Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de Fourier */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_xx(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_xx(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0,  si x\leq 3\\&lt;br /&gt;
3,  si x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi (0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cuyas autofunciones y autovalores, respectivamente &amp;lt;math&amp;gt;\phi_k(x)=cos(\frac{\pi x}{L})&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \nu_k=\frac{\pi^2k^2}{L^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11471</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11471"/>
				<updated>2014-05-16T09:39:57Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de Fourier */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_xx(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_xx(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0,  si x\leq 3\\&lt;br /&gt;
3,  si x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi (x) T(t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si consideramos &amp;lt;math&amp;gt; \phi(x) &amp;lt;/math&amp;gt; solución del problema de autovalores &amp;lt;math&amp;gt;(PA)&amp;lt;/math&amp;gt; asociado a &amp;lt;math&amp;gt;(P)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;(PA)=\begin{cases}&lt;br /&gt;
\phi''(x)- \lambda \phi(x)= 0 \\&lt;br /&gt;
\phi '(0)=0, \phi '(L)=0 &lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11468</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11468"/>
				<updated>2014-05-16T09:36:20Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de Fourier */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_xx(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_xx(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0,  si x\leq 3\\&lt;br /&gt;
3,  si x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \phi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11467</id>
		<title>Difusión de una sustancia contaminante en un tubo (grupo B17)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Difusi%C3%B3n_de_una_sustancia_contaminante_en_un_tubo_(grupo_B17)&amp;diff=11467"/>
				<updated>2014-05-16T09:36:07Z</updated>
		
		<summary type="html">&lt;p&gt;Eduardopereiras: /* Resolución por el método de Fourier */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED |Difusión de una sustancia contaminante en un tubo (grupo B17) | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] | Eduardo Pereiras Navas&lt;br /&gt;
 &lt;br /&gt;
Álvaro Ramírez Fernández de la Puente&lt;br /&gt;
 &lt;br /&gt;
Jesús Infestas Robles&lt;br /&gt;
&lt;br /&gt;
Miguel Fandiño Álvarez  &lt;br /&gt;
&lt;br /&gt;
Rachel L’Hostis}}&lt;br /&gt;
&lt;br /&gt;
El estudio de la difusión de una sustancia en un medio determinado, se considera un problema bastante común dentro de diversas áreas de la ingeniería civil, como puede ser el tratamiento de aguas.&lt;br /&gt;
&lt;br /&gt;
Conocer cómo se distribuye la concentración en un medio cualquiera implica la introducción de muchas variables que pueden afectar a esta. Para obtener soluciones más sencillas, consideraremos el caso particular de un tubo hueco largo (por ejemplo, una tubería), considerando un tramo de este, en el cual se aislarán las superficies laterales.&lt;br /&gt;
&lt;br /&gt;
= Planteamiento y modelización del problema=&lt;br /&gt;
&lt;br /&gt;
Para una modelización más sencilla, tendremos en cuenta varias consideraciones para simplificar el cálculo.&lt;br /&gt;
&lt;br /&gt;
Suponemos que solamente se trata de una sustancia en suspensión, definimos su concentración con la variable &amp;lt;math&amp;gt; u (\frac{mol}{m^2})&amp;lt;/math&amp;gt;, por unidad de superficie, constante en cada sección determinada del tubo.  De esta forma, &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt; será una variable que exclusivamente dependerá de la sección tomada en el tubo , definida por &amp;lt;math&amp;gt;x \in(0,L)&amp;lt;/math&amp;gt;, con &amp;lt;math&amp;gt;L &amp;lt;/math&amp;gt; como la longitud del tubo; y el tiempo &amp;lt;math&amp;gt;t \geq 0&amp;lt;/math&amp;gt;, en que se encuentre. En este caso, consideraremos la longitud del tubo &amp;lt;math&amp;gt; L=5 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Además, consideraremos la simplificación de que se trata de un tubo aislado por sus laterales, pero abierto por las bases del cilindro.&lt;br /&gt;
&lt;br /&gt;
== Base física ==&lt;br /&gt;
&lt;br /&gt;
Para poder conocer la concentración en cada instante y punto de la tubería, haremos uso de dos principios físicos: la '''ley de conservación de la masa''', y la '''Ley de Fick'''.&lt;br /&gt;
&lt;br /&gt;
=== Ley de conservación de masa ===&lt;br /&gt;
&lt;br /&gt;
La ley de conservación de masas exige que no haya una generación espontánea de materia. Es decir, si en la región del espacio estudiada, no existe entrada o salida por un punto cualquiera (frontera o interior), la masa en esta región se mantiene constante.&lt;br /&gt;
Esta suposición, en términos de variación de masa, puede quedar determinada como:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
''Variación de la de masa en el tiempo = flujo de masa a través de la frontera por unidad de tiempo + flujo de masa en los puntos interiores por unidad de tiempo. ''&lt;br /&gt;
&lt;br /&gt;
=== Ley de Fick ===&lt;br /&gt;
&lt;br /&gt;
Se trata de una ley cuantitativa en forma diferencial que describe la difusión de materia o energía en un medio en el que inicialmente existe equilibrio químico o físico. Esta ley se trata de una generalización de los fenómenos descritos por la '''Ley de Fourier''', ya que esta es una consideración concreta del calor.&lt;br /&gt;
&lt;br /&gt;
La ley de Fick anuncia que en el caso de existir diferencias de concentración en cualquier especie, el paso de estas especies se llevará a cabo desde las regiones con mayor concentración a las de menor. Formulado matemáticamente:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)=-D\frac{\partial u}{\partial x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;F&amp;lt;/math&amp;gt; es el flujo de la sustancia y &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; el coeficiente de difusión, que representa la facilidad en que un soluto particular se mueve por un disolvente determinado.&lt;br /&gt;
&lt;br /&gt;
== Modelización de la ecuación diferencial ==&lt;br /&gt;
&lt;br /&gt;
En base a las dos leyes anteriores, se puede definir a partir de la variable &amp;lt;math&amp;gt; u(x,t)&amp;lt;/math&amp;gt; en unidades de sustancia por área, es decir, concentración por superficie del tubo.&lt;br /&gt;
&lt;br /&gt;
Consideramos &amp;lt;math&amp;gt; A &amp;lt;/math&amp;gt; como variable superficie, y tomamos un pequeño trozo, definido por &amp;lt;math&amp;gt;\Delta x&amp;lt;/math&amp;gt;. Entonces, para obtener la variación de la masa en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u(x,t) \Delta x &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Y derivando en el tiempo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; A u_t(x,t) \Delta x &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
obtenemos el primer término de la igualdad anteriormente enunciada.&lt;br /&gt;
&lt;br /&gt;
En el segundo, consideramos nulo el flujo de masa en los puntos interiores por unidad de tiempo, pues suponemos la tubería perfecta y sin sumideros.&lt;br /&gt;
&lt;br /&gt;
Como la superﬁcie lateral del tubo está aislada, solamente habrá flujo de sustancia en la dirección del eje &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt;. Si &amp;lt;math&amp;gt;F(x,t)&amp;gt; 0&amp;lt;/math&amp;gt; pensamos que el ﬂujo va hacia la derecha, si &amp;lt;math&amp;gt;F(x,t)&amp;lt; 0&amp;lt;/math&amp;gt;, este va a hacia la izquierda. El ﬂujo de&lt;br /&gt;
calor en un intervalo &amp;lt;math&amp;gt;[x, x + ∆x ] &amp;lt;/math&amp;gt; viene dado dado por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Igualando los resultados anteriores:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;A u_t(x,t) \Delta x = F(x,t)A-F(x+\Delta x, t)A&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y seguidamente pasamos dividiendo &amp;lt;math&amp;gt;A \Delta x&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= \frac {F(x,t)-F(x+\Delta x, t)}{\Delta x}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si hacemos &amp;lt;math&amp;gt;\Delta x \rightarrow 0 &amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)= -F_x(x,t)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Aplicando la ley de Fick:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)=-\frac{\partial }{\partial x}(-D u_x(x,t)) = D u_xx(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y de esta forma podemos obtener la ecuación en derivadas parciales que nos define la concentración de sustancia:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u_t(x,t)- D u_xx(x,t)= 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Planteamiento del problema bien propuesto ==&lt;br /&gt;
&lt;br /&gt;
Esta ecuación en derivadas parciales exige al menos de tres condiciones para su resolución. Dos de ellas serán de contorno y la restante, condición inicial.&lt;br /&gt;
&lt;br /&gt;
Como ejemplo, suponemos que existe una situación inicial, definida por &amp;lt;math&amp;gt;u_0(x,0)&amp;lt;/math&amp;gt;, tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u_0(x,0)=\begin{cases}&lt;br /&gt;
0,  si x\leq 3\\&lt;br /&gt;
3,  si x&amp;gt;3&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la situación de contorno que utilizaremos, supondremos que existe una tapa en los extremos del tubo, por lo que el flujo de sustancia a través de ello es nulo (y en consecuencia, la variación de este, su derivada, es cero).&lt;br /&gt;
&lt;br /&gt;
Por lo que al final podemos escribir el problema mediante:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Resolución numérica =&lt;br /&gt;
&lt;br /&gt;
==Caso particular 1: fronteras aisladas y concentraciones iniciales conocidas==&lt;br /&gt;
En el primer caso particular que estudiaremos, trataremos de obtener una resolución numérica del problema anteriormente planteado:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
La resolución por el método de las diferencias finitas se basa en expresar el problema continuo a un sistema discreto de ecuaciones diferenciales de primer orden.&lt;br /&gt;
&lt;br /&gt;
Particularizando para nuestro caso con las condiciones dadas, el problema planteado sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
\frac{u_1(t)-u_-1(t)}{2h} \rightarrow u_1(t)=u_-1(t) \\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N+1&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
==== Resolución por método del trapecio ====&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==== Resolución por Euler explícito ====&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all&lt;br /&gt;
%%Problema de difusión de barrera&lt;br /&gt;
%Datos&lt;br /&gt;
L=5;&lt;br /&gt;
T=6;&lt;br /&gt;
%Discretización temporal y espacial&lt;br /&gt;
dx=0.1;&lt;br /&gt;
N=L/dx;&lt;br /&gt;
dt=dx^2/2;&lt;br /&gt;
x=0:dx:L;&lt;br /&gt;
t=0:dt:T;&lt;br /&gt;
%Matriz de coeficientes&lt;br /&gt;
K=2*diag(ones(1,N+1))-diag(ones(1,N),1)-diag(ones(1,N),-1);&lt;br /&gt;
K(N,N-1)=-2; &lt;br /&gt;
K(1,2)=-2;&lt;br /&gt;
K=(1/dx^2)*K;&lt;br /&gt;
%Condición inicial&lt;br /&gt;
U0=(3.*(x&amp;gt;3))';&lt;br /&gt;
sol(1,:)=[U0'];&lt;br /&gt;
U=U0;&lt;br /&gt;
%Bucle iterativo aplicando método de diferencias finitas con método del trapecio&lt;br /&gt;
for j=length(t)-1&lt;br /&gt;
U=(eye(N+1)+(dt/2)*K)\(U-(dt/2)*K*U);&lt;br /&gt;
sol(j+1,:)=[U'];&lt;br /&gt;
end&lt;br /&gt;
[xx,tt]=meshgrid(x,t);&lt;br /&gt;
figure(1)&lt;br /&gt;
mesh(xx,tt,sol);&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
grid&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
==== Resolución por Euler implícito ====&lt;br /&gt;
==== Resolución por Euler modificado ====&lt;br /&gt;
==== Conclusión comparativa de los resultados====&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de Fourier ===&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;(P)=\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u_x(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El método de Fourier se basa en buscar soluciones del tipo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u(x,t)= \fi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación de la conservación de la masa===&lt;br /&gt;
&lt;br /&gt;
== Caso particular 2: Limpiador en un extremo ==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora en el problema que, con las mismas condiciones que antes, se modifica la condición de contorno en el extremo &amp;lt;math&amp;gt; x=0 &amp;lt;/math&amp;gt; donde se coloca un limpiador. Esto matemáticamente se traduce como que en ese punto la concentración es en todo instante nula. Podemos reescribir el problema como&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u_t(x,t)- D u_xx(x,t)= 0 \\&lt;br /&gt;
u_0(x,0), x\in (0,L) \\&lt;br /&gt;
u(0,t)=0, u_x(L,t)=0, t\geq 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Resolución por el método de las diferencias finitas ===&lt;br /&gt;
&lt;br /&gt;
Esta vez, podemos reescribir el problema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
u'_n(t)+\frac{-u_{n-1}(t)+2u_n(t)+u_{n+1}(t)}{h^2} \\&lt;br /&gt;
u_0(t)=0\\&lt;br /&gt;
\frac{u_{N+1}(t)-u_{N-1}(t)}{2h} \rightarrow u_{N+1}(t)=u_{N-1}\\&lt;br /&gt;
u_n(0)=u^0(x)&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo que tenemos un sistema de la forma:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{cases}&lt;br /&gt;
U'(t)+KU(t)=F(t)=0\\&lt;br /&gt;
U(0)=U^0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con &amp;lt;math&amp;gt;N&amp;lt;/math&amp;gt; ecuaciones.&lt;br /&gt;
&lt;br /&gt;
=== Resolución numérica ===&lt;br /&gt;
[[Categoría:Ecuaciones Diferenciales]]&lt;br /&gt;
[[Categoría:ED13/14]]&lt;br /&gt;
[[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Eduardopereiras</name></author>	</entry>

	</feed>