Diferencia entre revisiones de «Ecuación de ondas (GRwM)»
(→Ecuación de ondas II) |
(→Programa) |
||
| Línea 69: | Línea 69: | ||
=== Programa === | === Programa === | ||
'''Nota''': En este programa y en los siguientes la solución se obtiene de forma numérica. Discretizaremos el espacio mediante una malla en la cual obtenemos un valor aproximado de la solución. En los siguientes programas los comentarios indicarán los valores que se pueden modificar y qué cambian. | '''Nota''': En este programa y en los siguientes la solución se obtiene de forma numérica. Discretizaremos el espacio mediante una malla en la cual obtenemos un valor aproximado de la solución. En los siguientes programas los comentarios indicarán los valores que se pueden modificar y qué cambian. | ||
| + | |||
| + | Código para representar la solución del sistema de EDP's: | ||
| + | |||
| + | {{matlab|codigo= | ||
| + | % EJERCICIO 1 ONDAS Ap3 | ||
| + | |||
| + | clear all | ||
| + | close all | ||
| + | |||
| + | % Intervalos de definición | ||
| + | x0=0; xf=1; % Valor inicial y final de x | ||
| + | t0=0; tf=2; % Valor inicial y final de t | ||
| + | difx=10^-3; dift=10^-3; % División del intervalo de x y t respectivamente | ||
| + | X=x0:difx:xf; % Discretización del intervalo de x | ||
| + | T=t0:dift:tf; % Discretización del intervalo de x | ||
| + | |||
| + | [XX,TT]=meshgrid(X,T); | ||
| + | |||
| + | % Intervalo de integración | ||
| + | |||
| + | difint=10^-3; | ||
| + | Int=x0:difint:xf; | ||
| + | |||
| + | % Condiciones iniciales | ||
| + | u0=@(x)exp(-100*(x-1/2).^2); | ||
| + | U0=u0(Int); | ||
| + | |||
| + | |||
| + | U=zeros(size(XX)); | ||
| + | |||
| + | N=1000; % Número de términos de la serie que sumamos | ||
| + | |||
| + | % Obtención de la solución | ||
| + | |||
| + | for k=1:N | ||
| + | S=sin(k*pi*XX); | ||
| + | ck=2*trapz(U0.*S(1,:),Int); % Coeficientes de Fourier ck con la fórmula del trapecio | ||
| + | U=U+ck*cos(k*pi*TT).*S; | ||
| + | end | ||
| + | |||
| + | % Dibujamos | ||
| + | surf(XX,TT,U) | ||
| + | shading interp | ||
| + | title("Solución para t \in [0,2]") | ||
| + | xlabel("Espacio") | ||
| + | ylabel("Tiempo") | ||
| + | zlabel("u(x,t)") | ||
| + | }} | ||
==Otra particularización del problema== | ==Otra particularización del problema== | ||
Revisión del 16:30 24 may 2024
Contenido
1 Introducción
A lo largo de este trabajo vamos a representar diferentes soluciones de la ecuación de ondas en una dimensión, así como la solución fundamental de dicha ecuación en 1, 2 y 3 dimensiones. Además, esto nos será de utilidad para interpretar el principio de Huygens.
Es importante destacar que todos los códigos y gráficas que se verán durante el trabajo han sido realizados con MatLab.
2 Conceptos previos
Antes de introducirnos de lleno en el trabajo, vamos a ver algunos conceptos que son necesarios para la comprensión de este:
Velocidad de propagación: La velocidad de propagación de una onda es la magnitud que mide la velocidad a la que se propaga la perturbación de la onda a lo largo de su desplazamiento. La velocidad a la que se propaga la onda depende tanto del tipo de onda como del medio por el que esta se propaga.
Además, en este trabajo vamos a emplear series de Fourier.
3 Ecuación de ondas I
En esta sección, vamos a representar diferentes soluciones de la ecuación de ondas en una dimensión. Para ello, vamos a considerar una cuerda vibrante en el intervalo [math] [0,1][/math], con densidad [math] d[/math] y tensión [math] \tau_0 [/math] constante. De modo que la velocidad de propagación [math] c=1 m/s[/math] . Además, vamos a suponer que la cuerda está fija en los extremos y vamos a denotar [math] u_0(x)[/math] y [math] u_1(x)[/math] su posición e impulso iniciales respectivamente.
3.1 Planteamiento del problema
Comenzamos plantando el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, basta considerar la ecuación de ondas [math] u_{tt} – c^2u_{xx}=0[/math] y añadir las condiciones iniciales y de frontera descritas en el apartado anterior. De esta manera se obtiene que el sistema EDP a resolver es:
3.2 Resolución del sistema
Para resolver el sistema, vamos a aplicar el método de separación. Para ello, vamos a considerar que la solución es de la forma [math] u(x,t) = T(t) X(x)[/math] .
Haciendo las cuentas pertinentes y aplicando el principio de superposición obtenemos que la solución del sistema es:
con [math] c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}[/math] y [math] d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}[/math]
3.3 Particularización del problema
Ahora vamos a considerar como datos iniciales [math] u_0(x)= e^{-100 (x- \frac{1}{2})^2}[/math] y [math] u_1(x)= 0[/math] y vamos a representar la solución en el intervalo de tiempo [math] [0,2][/math]. Teniendo en cuenta la solución general obtenida en el caso anterior, se tiene que la solución de este problema es:
ya que en la expresión de [math] d_k[/math] aparece la función [math] u_1(x)[/math], cuyo valor es cero por hipótesis. Para obtener el valor de [math] c_k [/math] vamos a emplear el método del trapecio, que al ser un método numérico, lleva asociado un error. En este trabajo no estudiaremos este error, para un análisis detallado del mismo consulte el trabajo Ecuación de Laplace (GRwM).
Teniendo esto en cuenta, hemos representado la solución en el intervalo de tiempo mencionado:
[[Archivo:Ejercicio1apartado3.jpg|600px|thumb|center| Gráfica de la solución para [math] x \in [0,1] [/math], [math] t \in [0,2] [/math] y considerando como datos iniciales [math] u_0(x) = e^{ −100(x−\frac{1}{2})^2} [/math] y [math] u_1(x) = 0[/math].]
Como podemos observar que para [math]x=0 [/math] y [math]x=1[/math] se tiene que [math]u(x,t)=0[/math], pues por hipótesis la cuerda está fija en los extremos.
Además, la solución es periódica en tiempo. Para poder apreciar esto, vamos se presenta el siguiente vídeo.
3.3.1 Programa
Nota: En este programa y en los siguientes la solución se obtiene de forma numérica. Discretizaremos el espacio mediante una malla en la cual obtenemos un valor aproximado de la solución. En los siguientes programas los comentarios indicarán los valores que se pueden modificar y qué cambian.
Código para representar la solución del sistema de EDP's:
% EJERCICIO 1 ONDAS Ap3
clear all
close all
% Intervalos de definición
x0=0; xf=1; % Valor inicial y final de x
t0=0; tf=2; % Valor inicial y final de t
difx=10^-3; dift=10^-3; % División del intervalo de x y t respectivamente
X=x0:difx:xf; % Discretización del intervalo de x
T=t0:dift:tf; % Discretización del intervalo de x
[XX,TT]=meshgrid(X,T);
% Intervalo de integración
difint=10^-3;
Int=x0:difint:xf;
% Condiciones iniciales
u0=@(x)exp(-100*(x-1/2).^2);
U0=u0(Int);
U=zeros(size(XX));
N=1000; % Número de términos de la serie que sumamos
% Obtención de la solución
for k=1:N
S=sin(k*pi*XX);
ck=2*trapz(U0.*S(1,:),Int); % Coeficientes de Fourier ck con la fórmula del trapecio
U=U+ck*cos(k*pi*TT).*S;
end
% Dibujamos
surf(XX,TT,U)
shading interp
title("Solución para t \in [0,2]")
xlabel("Espacio")
ylabel("Tiempo")
zlabel("u(x,t)")
3.4 Otra particularización del problema
Ahora vamos a considerar que la onda viaja en un solo sentido, es decir, [math] u(x,t)=f(x-t)[/math]. Para hacerlo, vamos a tomar como datos iniciales [math] u_0(x)= f(x)[/math] y [math] u_1(x)= - f’(x)[/math], con [math] f(x)= e^{-100 (x- \frac{1}{2})^2}[/math].
En este caso el sistema a resolver es:
Resolviendo al igual que en los casos anteriores, obtenemos una solución cuya representación es la siguiente:
Como podemos observar, el perfil de la solución avanza con una velocidad de propagación [math]c= 1 m/s [/math].
Además vemos que en la frontera… En este caso, cuando la onda llega al extremo, como este se mantiene fijo, la onda rebota simétricamente , sufriendo un cambio en el signo de la tensión.
3.4.1 Programa
Código para representar la solución del sistema de EDP's anterior.
% EJERCICIO 1 ONDAS Ap4
clear all
close all
% Intervalos de definición
x0=0; xf=1; % Valor inicial y final de x
t0=0; tf=2; % Valor inicial y final de t
difx=10^-3; dift=10^-3; % División del intervalo de x y t respectivamente
X=x0:difx:xf; % Discretización del intervalo de x
T=t0:dift:tf; % Discretización del intervalo de x
[XX,TT]=meshgrid(X,T);
% Intervalo de integración
difint=10^-3;
Int=x0:difint:xf;
% Condiciones iniciales
u0=@(x)exp(-100*(x-1/2).^2);
U0=u0(Int);
u1=@(x)100*2*(x-1/2).*exp(-100*(x-1/2).^2);
U1=u1(Int);
U=zeros(size(XX));
N=1000; % Número de términos de la serie que sumamos
% Obtención de la solución
for k=1:N
S=sin(k*pi*XX);
s=S(1,:);
ck=2*trapz(U0.*s,Int); % Coeficientes de Fourier ck con la fórmula del trapecio
dk=2/(k*pi)*trapz(U1.*s,Int); % Coeficientes de Fourier ck con la fórmula del trapecio
U=U+(ck*cos(k*pi*TT)+dk*sin(k*pi*TT)).*S;
end
% Dibujamos
surf(XX,TT,U)
shading interp
title("Solución para t \in [0,2]")
xlabel("Espacio")
ylabel("Tiempo")
zlabel("u(x,t)")
3.5 Cambio a condición frontera de tipo Neumann
Por último, vamos a estudiar cómo varía la solución al considerar condiciones de frontera de tipo Neumann en lugar de tipo Dirichlet. Para ello, en este caso vamos a tomar [math]u_x(0,t) = u_x(1,t) =0[/math]
En este caso, como los extremos no están fijos, cuando lla onda llega a uno de los extremos, este varía, pues debe mantenerse que ux=0.
4 Ecuación de ondas II
En esta sección, vamos a estudiar la solución fundamental de la a ecuación de ondas en dimensiones 1, 2 y 3. Hay que tener en cuenta que la solución fundamental es la solución que se obtiene al dar un impulso inicial muy localizado en [math] x=0 [/math].
Para ello, consideramos el siguiente sistema:
donde [math] \delta(x) [/math] es la delta de Dirac, que formalmente se define como el siguiente límite:
donde [math]\chi_{B(0,r)}(x) [/math] es la función característica de la bola centrada en 0 de radio [math] r [/math] y [math]|B(0,r)|[/math] es el volumen de la bola. La expresión de esta es: [math]1)[/math] En dimensión [math]n=1[/math]:
Donde [math]H(s)[/math] es la función de Heaviside,
[math]2)[/math] En dimensión [math]n=2[/math]:
donde [math] \chi_{B(0,ct)}(x) [/math] es la función característica de la bola de centro 0 y radio [math] ct [/math]. [math]3)[/math] En dimensión [math]n=3[/math]: