Solución Numérica de Ecuaciones Diferenciales

Solucin numrica de ecuaciones
diferenciales (I)
Las leyes que gobiernan los fenmenos de la naturaleza se expresan
habitualmente en forma de ecuaciones diferenciales. Las ecuaciones del
movimiento de los cuerpos (la segunda ley de Newton) es una ecuacin
diferencial de segundo orden, como lo es la ecuacin que describe los sistemas
oscilantes, la propagacin de las ondas, la transmisin del calor, la difusin, el
movimiento de partculas subatmicas, etc.
Pocas ecuaciones diferenciales tienen una solucin analtica sencilla, la mayor
parte de las veces es necesario realizar aproximaciones, estudiar el
comportamiento del sistema bajo ciertas condiciones. As, en un sistema tan
simple como un pndulo, la amplitud de la oscilacin ha de ser pequea y el
rozamiento ha de ser despreciable, para obtener una solucin sencilla que
describa aproximadamente su movimiento peridico.
Se estudia el procedimiento de Runge-Kutta que se aplica de forma directa a
una ecuacin diferencial de primer orden, pero veremos como se extiende a un
sistema de ecuaciones de primer orden, a un ecuacin diferencial de segundo
orden y a un sistema de ecuaciones diferenciales de segundo orden.
El procedimiento de Runge-Kutta se puede programar fcilmente en los
ordenadores y adems, se emplea mucho en la prctica, debido a la su
exactitud relativamente elevada de la solucin aproximada de la ecuacin
diferencial. La justificacin del procedimiento de Runge-Kutta no es sencilla,
el lector interesado puede consultar algn libro de mtodos numricos de
anlisis.
Mtodo de Euler
Vamos aresolver la ecuacin diferencial de primer orden
dxdt=f(t,x)
con con la condicin inicial de que en el instante t0 la posicin es x0
La primera derivada nos permite conocer la posicin xi+1 en el instante ti+1, a

partir de la posicin xi en el instante ti de acuerdo a la frmula siguiente. La
lnea de color rojo es la tangente a la curva en el instante ti
xi+1=xi+f(ti,xi)h
El procedimiento de Euler produce un error que se acumula a cada paso h de
integracin, que es el segmento en color azul que une los dos puntos en la
figura.
Escribimos una funcin denominada euler, a la que le pasaremos:
la funcin f(t,x),
la condicin inicial de que en el instante t0 la posicin es x0,
el instante final tf
el nmero de pasos de integracin n
y nos devolver un vector t y su correspondiente vector x.

function [t,x] =euler(f,t0,tf,x0,n)
h=(tf-t0)/n;
t=t0:h:tf;
x=zeros(n+1,1); %reserva memoria para n+1 elementos del vector x
x(1)=x0;
for i=1:n
x(i+1)=x(i)+f(t(i),x(i))*h;
end
end
Supongamos que queremos integrar la ecuacin diferencial

dx
=cos ( t)
dt
con las condicin inicial t = 0, x = 0.

t
x0= cos ( t ) dt
0
x=sin ( t )
Tomamos un intervalo h=/6, y construimos la siguiente tabla

t
0
/6
/3
/2
2/3
5/6
dx/dt=cost
1
0.866
0.5
0
-0.5
-0.866
x(Euler)
0
0.523
0.977
1.239
1.239
0.977
0.523
x=sint
0
0.5
0.866
1
0.866
0.5
0
Esta tabla nos ilustra el modo de aplicar el mtodo de Euler a una ecuacin
diferencial de primer orden. Para aplicar el mtodo de Euler precisamos de un
paso h pequeo, incluso as los errores se van acumulando y al cabo de cierto
tiempo la diferencia entre el valor exacto y el calculado es grande.
Escribimos en script euler_script en el que definiremos la funcin f(t,x), las
condiciones iniciales y llamaremos a la funcin euler. Finalmente,
representaremos grficamente la solucin exacta y la obtenida aplicando el
mtodo de Euler
tf=input('tiempo final, tf: ');
n=input('nmero de pasos, n: ');
f=@(t,x) cos(t);
%condiciones iniciales
t0=0;
x0=0;
[t,x]=euler(f,t0,tf,x0,n);
hold on
plot(t,x,'b')
y=sin(t);
plot(t,y,'r')
xlabel('t')
ylabel('x');
legend('aproximada','exacta')
title('dx/dt=cost')
hold off
En la ventana de comandos corremos el script euler_script
>> euler_script
tiempo final, tf: pi
nmero de pasos, n: 40
Hay diferencia entre la solucin exacta y la obtenida mediante integracin

numrica por el mtodo de Euler
Mtodo de Runge-Kutta
En esta seccin vamos a estudiar la aplicacin del mtodo de Runge-Kutta a:
Una ecuacin diferencial de primer orden
Un sistema de dos ecuaciones diferenciales de primer orden
Una ecuacin difrencial de segundo orden
Un sistema de dos ecuaciones diferenciales de segundo orden
Ecuacin diferencial de primer orden

Sea una ecuacin diferencial de primer orden, con la condicin inicial de que
en el instante t0 el valor inicial de xes x0
Se elige una anchura de paso h y se calculan cuatro nmeros k1, k2, k3, k4 de
acuerdo con el procedimiento esquematizado en la tabla adjunta. Segn el
procedimiento ordinario de Runge-Kutta, a partir del valor de x en el
instante t se determina el valor de x en el instante t+h mediante la frmula que
figura en la ltima fila de dicha tabla.
Definimos la funcin rk_1 que resuelve la ecuacin diferencial de primer

orden, cuando le pasamos:
la funcin f(t,x),
la condicin inicial de que en el instante t0el valor inicial es x0,
el instante final tf
el nmero de pasos de integracin n comprendidos entre el instante

inical t0 y final tf.
y nos devolver un vector t y su correspondiente vector x.

function [t,x] =rk_1(f,t0,tf,x0,n)
h=(tf-t0)/n;
t=t0:h:tf;
x=zeros(n+1,1); %reserva memoria para n elementos del vector x
x(1)=x0;
for i=1:n
k1=h*f(t(i),x(i));
k2=h*f(t(i)+h/2,x(i)+k1/2);
k3=h*f(t(i)+h/2,x(i)+k2/2);
k4=h*f(t(i)+h,x(i)+k3);
x(i+1)=x(i)+(k1+2*k2+2*k3+k4)/6;
end
end
Considrese el circuito en serie de la figura. Inicialmente el condensador est

descargado. Si se cierra el interruptor I la carga empieza a fluir produciendo
corriente en el circuito, el condensador se empieza a cargar. Una vez que el
condensador adquiere la carga mxima, la corriente cesa en el circuito.
Escribimos el script carga para que realice las siguientes tareas:

1.
2.
Establezca, mediante comandos input:

o
La resistencia R del circuito
La capacidad C del condensador
El tiempo final, tf
el nmero de pasos, n.
Fije las condiciones iniciales, en el instante inicial t=0, el condensador est

descargado x=0.
3.
Defina la funcin f(t,x),
4.
Llame al procedimiento numrico rk_1
5.
6.
Mediante el comando plot realice una representacin grfica de la solucin

numrica
Realice una representacin grfica de la solucin exacta
Ejemplo: R=2.0, C=0.8, y tf=10.

V0=10;
R=input('Resistencia R: ');
C=input('Capacidad C: ');
f=@(t,x) V0/R-x/(R*C);
t0=0; x0=0;
[t,x]=rk_1(f,t0,tf,x0,n);
hold on
plot(t,x,'b')
y=C*V0*(1-exp(-t/(R*C)));
plot(t,y,'r')
xlabel('t')
ylabel('q');
legend('aproximada','exacta','Location','Southeast')
title('Carga del condensador')
hold off
En la ventana de comandos corremos el script carga

>> carga
Resistencia R: 2
Capacidad C: 0.8
tiempo final, tf: 10
No se aprecia diferencia entre la solucin exacta y la numrica, aplicando el

procedimiento de Runge_Kutta.
Sistema de dos ecuaciones diferenciales de primer orden
El procedimiento de Runge-Kutta es igualmente efectivo en la resolucin de
un sistema de dos ecuaciones diferenciales de primer orden.
El procedimiento de aplicacin del mtodo de Runge-Kutta a cada una de las

ecuaciones diferenciales, con las condicin inicial siguiente, en el instante t0
el valor inicial de x es x0
el valor inicial de y es y0
se esquematiza en la tabla adjunta. Como vemos adems de los cuatro

nmeros k1, k2, k3, k4 para la primera ecuacin diferencial precisamos otros
cuatro nmeros l1, l2, l3, l4 para la segunda ecuacin diferencial. A partir del
valor de x en el instante t, se determina el valor de x en el instante t+h, y a
partir del valor de y en el instante t se determina el valor de y en el
instante t+h mediante las frmulas de la ltima fila de la tabla.
Definimos la funcin rk_2_1 que resuelve el sistema de dos ecuaciones

diferenciales de primer orden, cuando le pasamos:
las funciones f (t,x,y) y g(t,x,y)
las condiciones iniciales (x0,y0) en el instante t0
el nmero n de pasos de integracin entre t0 y el tiempo final tf
Nos devuelve los vectores x e y para cada instante que se guarda en el

vector t comprendido entre el instante inicial t0 y el final tf.
function [t,x,y] =rk_2_1(f,g,t0,tf,x0,y0,n)
h=(tf-t0)/n;
t=t0:h:tf;
x=zeros(n+1,1); %reserva memoria para n+1 element(i)os del
vect(i)or x(i)
y=zeros(n+1,1);
x(1)=x0; y(1)=y0;
for i=1:n
k1=h*f(t(i),x(i),y(i));
l1=h*g(t(i),x(i),y(i));
k2=h*f(t(i)+h/2,x(i)+k1/2,y(i)+l1/2);
l2=h*g(t(i)+h/2,x(i)+k1/2,y(i)+l1/2);
k3=h*f(t(i)+h/2,x(i)+k2/2,y(i)+l2/2);
l3=h*g(t(i)+h/2,x(i)+k2/2,y(i)+l2/2);
k4=h*f(t(i)+h,x(i)+k3,y(i)+l3);
l4=h*g(t(i)+h,x(i)+k3,y(i)+l3);
x(i+1)=x(i)+(k1+2*k2+2*k3+k4)/6;
y(i+1)=y(i)+(l1+2*l2+2*l3+l4)/6;
end
end
Consideremos una serie radioactiva de tres elementos A-->B-->C en la que,

una sustancia radiactiva A se desintegra y se transforma en otra sustancia
radiactiva B, que a su vez se desintegra y se transforma en una sustancia C
estable. Las ecuaciones diferenciales que gobiernan el proceso y sus
soluciones analticas son, respectivamente,
La solucin analtica que aparece a la derecha, se ha obtenido con las

condiciones iniciales t=0, x=x0 e y=0. La segunda solucin se obtiene siempre
que a sea distinto de b. En el caso de que a sea igual a b, la solucin analtica
para y es
y=x0aexp(at)
La interpretacin del sistema de ecuaciones diferenciales no es complicada. En

la unidad de tiempo, desaparecenax ncleos de la sustancia A al desintegrarse
(primera ecuacin). En la unidad de tiempo, se producen ax ncleos de la
sustancia B y a su vez desaparecen bx ncleos de la sustancia B, que al
desintegrarse se transforman en ncleos de la sustancia C estable (segunda
ecuacin).
Escribimos el script radioactivo en el que definiremos las
funciones f(t,x,y), g(t,x,y), las condiciones iniciales y llamaremos a la
funcin rk_2_1
a=input('parmetro a: ');
b=input('parmetro b: ');
x0=input('valor inicial de x: ');
y0=input('valor inicial de y: ');
f=@(t,x,y) -a*x;
g=@(t,x,y) a*x-b*y;
t0=0;
[t,x,y]=rk_2_1(f,g,t0,tf,x0,y0,n);
hold on
plot(t,x,'b')
plot(t,y,'r')
xlabel('t')
ylabel('x,y');
legend('x(t)','y(t)')
title('dx/dt=-ax, dy/dt=ax-by')
hold off
En la ventana de comandos corremos el script radioactivo

>> radioactivo
parmetro a: 0.1
parmetro b: .2
valor inicial de x: 100
valor inicial de y: 0
tiempo final, tf: 10
Ecuacin diferencial de segundo orden

Existen muchas situaciones en las que es necesario resolver una ecuacin
diferencial de segundo orden.
Definimos la funcin rk_2 que resuelve la ecuacin diferencial de segundo

orden, cuando le pasamos:
la funcin f (t,x,v)
las condiciones iniciales: posicin inicial x0 y velocidad inicial v0 en el
instante t0
el nmero n de pasos de integracin entre t0 y el tiempo final tf
Nos devuelve los vectores de las posiciones x y las velocidades v para cada
instante que se guarda en el vector tcomprendido entre el instante inicial t0 y el
final tf.
function [t,x,v] =rk_2(f,t0,tf,x0,v0,n)
h=(tf-t0)/n;
t=t0:h:tf;
x=zeros(n+1,1); %reserva memoria para n+1 element(i)os del
vect(i)or x(i)
v=zeros(n+1,1);
x(1)=x0; v(1)=v0;
for i=1:n
k1=h*v(i);
l1=h*f(t(i),x(i),v(i));
k2=h*(v(i)+l1/2);
l2=h*f(t(i)+h/2,x(i)+k1/2,v(i)+l1/2);
k3=h*(v(i)+l2/2);
l3=h*f(t(i)+h/2,x(i)+k2/2,v(i)+l2/2);
k4=h*(v(i)+l3);
l4=h*f(t(i)+h,x(i)+k3,v(i)+l3);
x(i+1)=x(i)+(k1+2*k2+2*k3+k4)/6;
v(i+1)=v(i)+(l1+2*l2+2*l3+l4)/6;
end
end
La ecuacin diferencial que describe un oscilador armnico amortiguado y su

solucin para unas condiciones iniciales fijadas es
Escribimos el script oscilador en el que definiremos la funcin f(t,x,v), las

condiciones iniciales y llamaremos a la funcin rk_2
w0=input('frecuencia angular w0: ');
g=input('rozamiento, gamma: ');
x0=input('posicin inicial, x0: ');
v0=input('velocidad inicial,v0: ');
f=@(t,x,v) -2*g*v-w0*w0*x;
t0=0;
hold on
%solucin numrica
[t,x,v]=rk_2(f,t0,tf,x0,v0,n);
plot(t,x,'b')
%solucin analtica
w=sqrt(w0*w0-g*g);
x=((v0+g*x0)*sin(w*t)/w+x0*cos(w*t)).*exp(-g*t);
plot(t,x,'r')
grid on
xlabel('t')
ylabel('x');
legend('aproximado','exacto')
title('oscilador amortiguado')
hold off
En la ventana de comandos corremos el script oscilador con distintas

condiciones iniciales
>> oscilador
frecuencia angular, w0: 2
rozamiento, gamma: 0.5
posicin inicial, x0: 1.5

velocidad inicial, v0: 0
tiempo final, tf: 8
No se aprecia tampoco diferencia entre la solucin exacta y la numrica,

aplicando el procedimiento de Runge_Kutta.

Solución Numérica de Ecuaciones Diferenciales

Cargado por

Copyright:

Formatos disponibles

Solución Numérica de Ecuaciones Diferenciales

Cargado por

Información del documento

Descripción original:

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Solución Numérica de Ecuaciones Diferenciales

Cargado por

Copyright:

Formatos disponibles

Solucin numrica de ecuaciones

con con la condicin inicial de que en el instante t0 la posicin es x0

La primera derivada nos permite conocer la posicin xi+1 en el instante ti+1, a

la condicin inicial de que en el instante t0 la posicin es x0,

el nmero de pasos de integracin n

y nos devolver un vector t y su correspondiente vector x.

Supongamos que queremos integrar la ecuacin diferencial

con las condicin inicial t = 0, x = 0.

Tomamos un intervalo h=/6, y construimos la siguiente tabla

En la ventana de comandos corremos el script euler_script

Hay diferencia entre la solucin exacta y la obtenida mediante integracin

Una ecuacin diferencial de primer orden

Un sistema de dos ecuaciones diferenciales de primer orden

Una ecuacin difrencial de segundo orden

Un sistema de dos ecuaciones diferenciales de segundo orden

Ecuacin diferencial de primer orden

Definimos la funcin rk_1 que resuelve la ecuacin diferencial de primer

la condicin inicial de que en el instante t0el valor inicial es x0,

el nmero de pasos de integracin n comprendidos entre el instante

y nos devolver un vector t y su correspondiente vector x.

Considrese el circuito en serie de la figura. Inicialmente el condensador est

Escribimos el script carga para que realice las siguientes tareas:

Establezca, mediante comandos input:

La resistencia R del circuito

La capacidad C del condensador

Fije las condiciones iniciales, en el instante inicial t=0, el condensador est

Defina la funcin f(t,x),

Llame al procedimiento numrico rk_1

Mediante el comando plot realice una representacin grfica de la solucin

Ejemplo: R=2.0, C=0.8, y tf=10.

En la ventana de comandos corremos el script carga

No se aprecia diferencia entre la solucin exacta y la numrica, aplicando el

El procedimiento de aplicacin del mtodo de Runge-Kutta a cada una de las

se esquematiza en la tabla adjunta. Como vemos adems de los cuatro

Definimos la funcin rk_2_1 que resuelve el sistema de dos ecuaciones

las funciones f (t,x,y) y g(t,x,y)

las condiciones iniciales (x0,y0) en el instante t0

el nmero n de pasos de integracin entre t0 y el tiempo final tf

Nos devuelve los vectores x e y para cada instante que se guarda en el

Consideremos una serie radioactiva de tres elementos A-->B-->C en la que,

La solucin analtica que aparece a la derecha, se ha obtenido con las

La interpretacin del sistema de ecuaciones diferenciales no es complicada. En

En la ventana de comandos corremos el script radioactivo

Ecuacin diferencial de segundo orden

Definimos la funcin rk_2 que resuelve la ecuacin diferencial de segundo

La ecuacin diferencial que describe un oscilador armnico amortiguado y su

Escribimos el script oscilador en el que definiremos la funcin f(t,x,v), las

En la ventana de comandos corremos el script oscilador con distintas

posicin inicial, x0: 1.5

No se aprecia tampoco diferencia entre la solucin exacta y la numrica,

También podría gustarte