MateWiki - Contribuciones del usuario [es]

Visualización de campos escalares y vectoriales en elasticidad. Grupo C30

2014-12-16T12:04:28Z

María garcía Fernández: /* Desplazamiento del sólido */

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC14/15|2014-15]] |
María García Fernández

Sergio Ortega Pajares

Noemí Palomino Bustos

Diego Paramio Sastre

Álvaro Ramón López
}}

==Introducción==

En este trabajo estudiaremos la visualización de campos escalares y vectoriales en elasticidad de la placa plana que ocupa la región comprendida entre estas dos parábolas:

<math>P1: 18y-81x^2-1=0 </math>
:
<math>P2: 2y+x^2-1=0 </math>

Utilizaremos un cambio de coordenadas para hacer más sencilla su representación (sistema de coordenadas adaptado a la geometría dada):

<math>x=uv</math>
:
<math>y=\frac{1}{2}(u^2-v^2)</math>

con u,v definidas en el intervalo [1/3,1]x[-1,1]

Comenzaremos dibujando el mallado del sólido, así como sus líneas coordenadas y los vectores de la base natural en cada punto. Conociendo la función de la temperatura de la placa, seremos capaces de representar sus curvas de nivel y su gradiente.
Después aplicaremos un campo de desplazamientos a nuestro sólido y observaremos como ha variado tras él. Calcularemos el tensor de tensiones y lo representaremos. Finalmente calcularemos numéricamente (por el método de los rectángulos) la masa de la placa.

==Mallado de los puntos interiores del sólido==
Hemos representado los puntos interiores del sólido mediante un mallado,considerando un paso de muestreo h=1/20 para las coordenadas u,v que hemos definido en la introducción.

.[[Archivo:MalladoC30.jpg|325px|miniaturadeimagen|derecha|Aquí vemos el resultado de dibujar el mallado]]
{{matlab|codigo=
h=1/20; %paso de muestreo
u=1/3:h:1; %intervalo de u
v=-1:h:1; %intervalo de v
[uu,vv]=meshgrid(u,v);%mallado de la gráfica
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2); %cambio de coorde
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Líneas coordenadas y vectores de la base natural ===
Los vectores de la base natural son aquellos obtenidos al derivar las compentes x e y respecto de u y v.
Las llamaremos <math>\vec{g_u}</math> y <math>\vec{g_u}</math>
:
<math>\vec{g_u}= v\vec{i}+u\vec{j}</math>
:
<math>\vec{g_v}=u\vec{i}-v\vec{j}</math>

Para hacer más sencillo su interpretación hemos dividido <math>\vec{g_u}</math> y <math>\vec{g_u}</math> en partes.
A continuación vemos el código y la representación gráfica de las líneas coordenadas:
.[[Archivo:LineascoordenadasC30.jpg|300px|miniaturadeimagen|derecha|Líneas de gu (en azul) y líneas de gv (en rojo)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=1/2.*(uu.^2-vv.^2);
guu=vv;
guv=uu;
gvu=uu;
gvv=-vv;
hold on
quiver(xx,yy,guu,guv)%representamos los vectores gu en cada punto del mallado
quiver(xx,yy,gvu,gvv)%representamos los vectores gv en cada punto del mallado
hold off
}}

==Temperatura del sólido==
La temperatura del sólido viene dada por la función <math>T(x,y)=e^{(-y)}</math>. Hemos representado sus curvas de nivel y se puede observar que la temperatura es simétrica en la placa respecto al eje OY, siendo la parte más cálida el extremo inferior y las más fría la superior.
Podríamos obtener el punto más cálido de la placa y el punto más frío calculando sus derivadas parciales e igualandolas a 0, si los resultados quedasen fuera de la placa, buscaríamos máximos y mínimos en la frontera.
[[Archivo:TemperaturaC30.jpg|300px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
figure(1)
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente de un campo indica la dirección en la cual el campo varía más rápidamente, se denota con <math>\nabla </math>.Las curvas de nivel de un campo son aquellas que conecta los puntos que tienen un mismo valor constante.
De forma geométrica el gradiente es un vector que se encuentra normal (perpendicular) a a las curvas de nivel,como se puede observar en el siguiente gráfico.

El gradiente y las curvas de nivel de dicho campo (T) son los siguientes:
[[Archivo:GradTemperaturaC30.jpg|400px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
Tx=-xx.*0;% derivada parcial en x
Ty=-yy.*exp(-yy);% derivada parcial en y
figure(1)
quiver(xx,yy,Tx,Ty) %Gradiente de la temperatura
axis([-1,1,-1,1])
figure(2)
contour(xx,yy,T,20)%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)

}}

== Desplazamiento del sólido==

Considerando el vector desplazamiento <math>\vec{u}(u,v)=\vec{a}(\vec{b}·\vec{r_0})^2</math> siendo <math>\vec{a}=\frac{\vec{g_u}}{|\vec{g_u}|}</math> <math>\vec{b}=\frac{-4\vec{g_v}}{|\vec{g_v}|}</math> y <math>\vec{r_0}=x\vec{i}+y\vec{j}</math>

Cambiaremos <math>\vec{r_0}</math> a coordenadas curvilíneas

<math>\vec{r_0}=(uv,\frac{1}{2}(v^2+u^2))\begin{pmatrix} v\over(v^2+u^2) & u\over( v^2+u^2) \\u\over( v^2+u^2) & - v\over(v^2+u^2) \end{pmatrix}=4v^2(u^2+v^2)\vec{g_u}</math>

Si aplicamos <math>\vec{u}</math> a nuestra placa sufrirá una deformación producida por una fuerza determinada, el vector posición después de la deformación viene dada por <math>\vec{r}(u,v)=\vec{r_0}(u,v)+\vec{u}(u,v)</math>. Aplicando el campo al sólido inicial obtenemos el sólido deformado.

A continuación tenemos el sólido antes y después del desplazamiento dado por el campo de vectores <math>\vec{u}</math>
:
[[Archivo:DespC30.jpg|500px|miniaturadeimagen|centro|Representación del campo y de su desplazamiento]]

El vector desplazamiento tiene diferente sentido a ambos lados del eje de simetría de la placa, de modo que la placa se estira en la dirección del eje de abscisas.

==Divergencia y rotacional de <math>\vec{u}</math>==

La divergencia de un campo vectorial mide la diferencia entre el flujo saliente y el flujo entrante.
Si la divergencia es positiva, es una fuente, si es negativa es un sumidero.

La divergencia del desplazamiento<math>\vec{u}</math> la hemos manualmente a través de la fórmula
<math>\nabla \cdot \vec{u}=\frac{1}{ \sqrt{g} } \frac{\partial}{\partial u^i} \sqrt{g} u^{i} </math>

<math>\nabla\cdot\vec{u}=\frac{1}{u^2+v^2}( \frac{\partial}{\partial u}(u^2+v^2)(4v^2)+ (\frac{\partial}{\partial v}((u^2+v^2)(0))=\frac{12uv^2}{\sqrt{u^2+v^2}}</math>

[[Archivo:DivergenciaC30.jpg|300px|miniaturadeimagen|derecha|Representación de la divergencia del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
div=12.*uu.*vv.^2./sqrt(uu.^2+vv.^2);
surf(xx,yy,div)
axis([-1,1,-1,1])
view(2)
}}
Vemos que la divergencia alcanza sus valores más altos en aquellos puntos en los que la variación de volumen es mayor, en este caso se corresponden con los extremos de la placa.

Vamos a calcular ahora el rotacional de <math>\vec{u}</math>:
<math>\nabla\times\vec{u} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial u} & \frac{\partial }{\partial v} & \frac{\partial }{\partial w}\\ u_1 & u_2 & u_3 \end{pmatrix} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial u} & \frac{\partial }{\partial v} & \frac{\partial }{\partial w}\\ 4v^3 \sqrt{u^2+v^2} & 4uv^2 \sqrt{u^2+v^2} & 0 \end{pmatrix} =\frac{-4v^2(u^2+3v^2)}{\sqrt{u^2+v^2}} \vec{k} </math>.
Vemos en la representación del valor absoluto del rotacional que los puntos con mayor rotacional (los de color más amarillo) representarán los puntos del sólido en los que se induce un mayor giro debido a la deformación inducida por el campo <math>\vec{u}</math>
[[Archivo:RotacionalC30.jpg|300px|miniaturadeimagen|derecha|Representación del rotacional del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
figure(1)
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
rot=abs(-4*(vv.^2).*sqrt(uu.^2+vv.^2));
surf(xx,yy,rot)
axis([-1,1,-1,1])
view(2)
}}

==Tensiones==
Vamos a ver la representación del tensor de tensiones resultante de aplicar el campo <math>\vec{u} </math> al sólido. Dicho tensor de tensiones viene dado por la fórmula:
<math>\sigma= \lambda \nabla \cdot \vec{u} 1 + 2 \mu \epsilon </math>
donde <math>\epsilon = \frac{(\nabla \vec{u} + \nabla \vec{u}^t)}{2}</math> . <math> \lambda </math> y <math> \mu </math> son los parámetros de Lamé que dependen de las propiedades del material, en nuestro caso ambos valen <math> 1 </math>.
Definimos <math>\epsilon </math> y con la divergencia que ya la conocemos obtenemos <math>\sigma </math> :
<math>\epsilon =\begin{pmatrix} \frac{4uv^3}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2)}{\sqrt{u^2+v^2}} \end{pmatrix}</math>

Tensor de tensiones:
<math>\sigma =\begin{pmatrix} \frac{4uv^2(2v+3)}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} & 0 \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2+3v)}{\sqrt{u^2+v^2}} & 0 \\ 0 & 0 & 1\end{pmatrix}</math>

Con la ayuda de MatLab obtenemos las tensiones normales en las direcciones <math>g_u</math> y <math>g_v </math>:
[[Archivo:gugv.jpg|500px|miniaturadeimagen|centro|Tensiones normales en las direcciones de <math>g_u</math> y <math>g_v </math> ]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
sigmauu=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*vv.^3.*uu./sqrt(uu.^2+vv.^2);
sigmavv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*uu.*vv.*(2*uu.^2+3*vv.^2)./sqrt(uu.^2+vv.^2);
sigmauv=2*10*vv.^2.*sqrt(uu.^2+vv.^2);
sigmavu=sigmauv;
subplot(1,2,1)
quiver(xx,yy,sigmauu,sigmauv)
axis([-1,1,-1,1])
subplot(1,2,2)
quiver(xx,yy,sigmauv,sigmavv)
axis([-1,1,-1,1])
}}
Podemos observar al comparar las tensiones y el rotacional que coinciden los puntos de mayor tensión con los de mayor rotacional.

==Masa de la placa==
Tengamos la siguiente función de densidad:
<math>d(x,y)=|x|e^{(-1/y^2)}</math>
Vamos a calcular la masa total del sólido integrando la función en el área del sólido de manera numérica dividiendo el sólido en pequeños rectángulos y sumando todo al final. Aquí vemos el codigo MatLab utilizado:
{{matlab|codigo=
h=1/100; %Tomamos un paso de 1/100 para conseguir un resultado mejor aproximado
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
f=abs(xx).*exp(-1./yy.^2); %Definimos la función
a=h.^2*f; %Parte diferencial del sólido
masa=sum(sum(a)) %Suma de todas las partes del sólido
}}
Obtenemos una masa total de <math>Masa = 8.029 \cdot 10^-5</math>
[[Categoría:Teoría de Campos]]
[[Categoría:TC14/15]]

Visualización de campos escalares y vectoriales en elasticidad. Grupo C30

2014-12-15T23:12:21Z

María garcía Fernández: /* Desplazamiento del sólido */

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC14/15|2014-15]] |
María García Fernández

Sergio Ortega Pajares

Noemí Palomino Bustos

Diego Paramio Sastre

Álvaro Ramón López
}}

==Introducción==

En este trabajo estudiaremos la visualización de campos escalares y vectoriales en elasticidad de la placa plana que ocupa la región comprendida entre estas dos parábolas:

<math>P1: 18y-81x^2-1=0 </math>
:
<math>P2: 2y+x^2-1=0 </math>

Utilizaremos un cambio de coordenadas para hacer más sencilla su representación (sistema de coordenadas adaptado a la geometría dada):

<math>x=uv</math>
:
<math>y=\frac{1}{2}(u^2-v^2)</math>

con u,v definidas en el intervalo [1/3,1]x[-1,1]

Comenzaremos dibujando el mallado del sólido, así como sus líneas coordenadas y los vectores de la base natural en cada punto. Conociendo la función de la temperatura de la placa, seremos capaces de representar sus curvas de nivel y su gradiente.
Después aplicaremos un campo de desplazamientos a nuestro sólido y observaremos como ha variado tras él. Calcularemos el tensor de tensiones y lo representaremos. Finalmente calcularemos numéricamente (por el método de los rectángulos) la masa de la placa.

==Mallado de los puntos interiores del sólido==
Hemos representado los puntos interiores del sólido mediante un mallado,considerando un paso de muestreo h=1/20 para las coordenadas u,v que hemos definido en la introducción.

.[[Archivo:MalladoC30.jpg|325px|miniaturadeimagen|derecha|Aquí vemos el resultado de dibujar el mallado]]
{{matlab|codigo=
h=1/20; %paso de muestreo
u=1/3:h:1; %intervalo de u
v=-1:h:1; %intervalo de v
[uu,vv]=meshgrid(u,v);%mallado de la gráfica
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2); %cambio de coorde
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Líneas coordenadas y vectores de la base natural ===
Los vectores de la base natural son aquellos obtenidos al derivar las compentes x e y respecto de u y v.
Las llamaremos <math>\vec{g_u}</math> y <math>\vec{g_u}</math>
:
<math>\vec{g_u}= v\vec{i}+u\vec{j}</math>
:
<math>\vec{g_v}=u\vec{i}-v\vec{j}</math>

Para hacer más sencillo su interpretación hemos dividido <math>\vec{g_u}</math> y <math>\vec{g_u}</math> en partes.
A continuación vemos el código y la representación gráfica de las líneas coordenadas:
.[[Archivo:LineascoordenadasC30.jpg|300px|miniaturadeimagen|derecha|Líneas de gu (en azul) y líneas de gv (en rojo)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=1/2.*(uu.^2-vv.^2);
guu=vv;
guv=uu;
gvu=uu;
gvv=-vv;
hold on
quiver(xx,yy,guu,guv)%representamos los vectores gu en cada punto del mallado
quiver(xx,yy,gvu,gvv)%representamos los vectores gv en cada punto del mallado
hold off
}}

==Temperatura del sólido==
La temperatura del sólido viene dada por la función <math>T(x,y)=e^{(-y)}</math>. Hemos representado sus curvas de nivel y se puede observar que la temperatura es simétrica en la placa respecto al eje OY, siendo la parte más cálida el extremo inferior y las más fría la superior.
Podríamos obtener el punto más cálido de la placa y el punto más frío calculando sus derivadas parciales e igualandolas a 0, si los resultados quedasen fuera de la placa, buscaríamos máximos y mínimos en la frontera.
[[Archivo:TemperaturaC30.jpg|300px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
figure(1)
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente de un campo indica la dirección en la cual el campo varía más rápidamente, se denota con <math>\nabla </math>.Las curvas de nivel de un campo son aquellas que conecta los puntos que tienen un mismo valor constante.
De forma geométrica el gradiente es un vector que se encuentra normal (perpendicular) a a las curvas de nivel,como se puede observar en el siguiente gráfico.

El gradiente y las curvas de nivel de dicho campo (T) son los siguientes:
[[Archivo:GradTemperaturaC30.jpg|400px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
Tx=-xx.*0;% derivada parcial en x
Ty=-yy.*exp(-yy);% derivada parcial en y
figure(1)
quiver(xx,yy,Tx,Ty) %Gradiente de la temperatura
axis([-1,1,-1,1])
figure(2)
contour(xx,yy,T,20)%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)

}}

== Desplazamiento del sólido==

Considerando el vector desplazamiento <math>\vec{u}(u,v)=\vec{a}(\vec{b}·\vec{r_0})^2</math> siendo <math>\vec{a}=\frac{\vec{g_u}}{|\vec{g_u}|}</math> <math>\vec{b}=\frac{-4\vec{g_v}}{|\vec{g_v}|}</math> y <math>\vec{r_0}=x\vec{i}+y\vec{j}</math>

Cambiaremos <math>\vec{r_0}</math> a coordenadas curvilíneas

<math>\vec{r_0}=(uv,\frac{1}{2}(v^2+u^2))\begin{pmatrix} v\over(v^2+u^2) & u\over( v^2+u^2) \\u\over( v^2+u^2) & - v\over(v^2+u^2) \end{pmatrix}=4v^2(u^2+v^2)\vec{g_u}</math>

Si aplicamos <math>\vec{u}</math> a nuestra placa sufrirá una deformación producida por una fuerza determinada, el vector posición después de la deformación viene dada por <math>\vec{r}(u,v)=\vec{r_0}(u,v)+\vec{u}(u,v)</math>. Aplicando el campo al sólido inicial obtenemos el sólido deformado.

A continuación tenemos el sólido antes y después del desplazamiento dado por el campo de vectores <math>\vec{u}</math>
:
[[Archivo:DespC30.jpg|500px|miniaturadeimagen|centro|Representación del campo y de su desplazamiento]]

El vector desplazamiento tiene diferente sentido a ambos lados del eje de simetría de la placa, de modo que la placa se estira en la dirección del eje de abscisas y se achata verticalmente.

==Divergencia y rotacional de <math>\vec{u}</math>==

La divergencia de un campo vectorial mide la diferencia entre el flujo saliente y el flujo entrante.
Si la divergencia es positiva, es una fuente, si es negativa es un sumidero.

La divergencia del desplazamiento<math>\vec{u}</math> la hemos manualmente a través de la fórmula
<math>\nabla \cdot \vec{u}=\frac{1}{ \sqrt{g} } \frac{\partial}{\partial u^i} \sqrt{g} u^{i} </math>

<math>\nabla\cdot\vec{u}=\frac{1}{u^2+v^2}( \frac{\partial}{\partial u}(u^2+v^2)(4v^2)+ (\frac{\partial}{\partial v}((u^2+v^2)(0))=\frac{12uv^2}{\sqrt{u^2+v^2}}</math>

[[Archivo:DivergenciaC30.jpg|300px|miniaturadeimagen|derecha|Representación de la divergencia del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
div=12.*uu.*vv.^2./sqrt(uu.^2+vv.^2);
surf(xx,yy,div)
axis([-1,1,-1,1])
view(2)
}}
Vemos que la divergencia alcanza sus valores más altos en aquellos puntos en los que la variación de volumen es mayor, en este caso se corresponden con los extremos de la placa.

Vamos a calcular ahora el rotacional de <math>\vec{u}</math>:
<math>\nabla\times\vec{u} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial u} & \frac{\partial }{\partial v} & \frac{\partial }{\partial w}\\ u_1 & u_2 & u_3 \end{pmatrix} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial u} & \frac{\partial }{\partial v} & \frac{\partial }{\partial w}\\ 4v^3 \sqrt{u^2+v^2} & 4uv^2 \sqrt{u^2+v^2} & 0 \end{pmatrix} =\frac{-4v^2(u^2+3v^2)}{\sqrt{u^2+v^2}} \vec{k} </math>.
Vemos en la representación del valor absoluto del rotacional que los puntos con mayor rotacional (los de color más amarillo) representarán los puntos del sólido en los que se induce un mayor giro debido a la deformación inducida por el campo <math>\vec{u}</math>
[[Archivo:RotacionalC30.jpg|300px|miniaturadeimagen|derecha|Representación del rotacional del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
figure(1)
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
rot=abs(-4*(vv.^2).*sqrt(uu.^2+vv.^2));
surf(xx,yy,rot)
axis([-1,1,-1,1])
view(2)
}}

==Tensiones==
Vamos a ver la representación del tensor de tensiones resultante de aplicar el campo <math>\vec{u} </math> al sólido. Dicho tensor de tensiones viene dado por la fórmula:
<math>\sigma= \lambda \nabla \cdot \vec{u} 1 + 2 \mu \epsilon </math>
donde <math>\epsilon = \frac{(\nabla \vec{u} + \nabla \vec{u}^t)}{2}</math> . <math> \lambda </math> y <math> \mu </math> son los parámetros de Lamé que dependen de las propiedades del material, en nuestro caso ambos valen <math> 1 </math>.
Definimos <math>\epsilon </math> y con la divergencia que ya la conocemos obtenemos <math>\sigma </math> :
<math>\epsilon =\begin{pmatrix} \frac{4uv^3}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2)}{\sqrt{u^2+v^2}} \end{pmatrix}</math>

Tensor de tensiones:
<math>\sigma =\begin{pmatrix} \frac{4uv^2(2v+3)}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} & 0 \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2+3v)}{\sqrt{u^2+v^2}} & 0 \\ 0 & 0 & 1\end{pmatrix}</math>

Con la ayuda de MatLab obtenemos las tensiones normales en las direcciones <math>g_u</math> y <math>g_v </math>:
[[Archivo:gugv.jpg|500px|miniaturadeimagen|centro|Tensiones normales en las direcciones de <math>g_u</math> y <math>g_v </math> ]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
sigmauu=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*vv.^3.*uu./sqrt(uu.^2+vv.^2);
sigmavv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*uu.*vv.*(2*uu.^2+3*vv.^2)./sqrt(uu.^2+vv.^2);
sigmauv=2*10*vv.^2.*sqrt(uu.^2+vv.^2);
sigmavu=sigmauv;
subplot(1,2,1)
quiver(xx,yy,sigmauu,sigmauv)
axis([-1,1,-1,1])
subplot(1,2,2)
quiver(xx,yy,sigmauv,sigmavv)
axis([-1,1,-1,1])
}}
Podemos observar al comparar las tensiones y el rotacional que coinciden los puntos de mayor tensión con los de mayor rotacional.

==Masa de la placa==
Tengamos la siguiente función de densidad:
<math>d(x,y)=|x|e^{(-1/y^2)}</math>
Vamos a calcular la masa total del sólido integrando la función en el área del sólido de manera numérica dividiendo el sólido en pequeños rectángulos y sumando todo al final. Aquí vemos el codigo MatLab utilizado:
{{matlab|codigo=
h=1/100; %Tomamos un paso de 1/100 para conseguir un resultado mejor aproximado
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
f=abs(xx).*exp(-1./yy.^2); %Definimos la función
a=h.^2*f; %Parte diferencial del sólido
masa=sum(sum(a)) %Suma de todas las partes del sólido
}}
Obtenemos una masa total de <math>Masa = 8.029 \cdot 10^-5</math>
[[Categoría:Teoría de Campos]]
[[Categoría:TC14/15]]

Visualización de campos escalares y vectoriales en elasticidad. Grupo C30

2014-12-15T18:56:28Z

María garcía Fernández: /* Divergencia y rotacional de \vec{u} */

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC14/15|2014-15]] |
María García Fernández

Sergio Ortega Pajares

Noemí Palomino Bustos

Diego Paramio Sastre

Álvaro Ramón López
}}

==Introducción==

En este trabajo estudiaremos la visualización de campos escalares y vectoriales en elasticidad de la placa plana que ocupa la región comprendida entre estas dos parábolas:

<math>P1: 18y-81x^2-1=0 </math>
:
<math>P2: 2y+x^2-1=0 </math>

Utilizaremos un cambio de coordenadas para hacer más sencilla su representación (sistema de coordenadas adaptado a la geometría dada):

<math>x=uv</math>
:
<math>y=\frac{1}{2}(u^2-v^2)</math>

con u,v definidas en el intervalo [1/3,1]x[-1,1]

Comenzaremos dibujando el mallado del sólido, así como sus líneas coordenadas y los vectores de la base natural en cada punto. Conociendo la función de la temperatura de la placa, seremos capaces de representar sus curvas de nivel y su gradiente.
Después aplicaremos un campo de desplazamientos a nuestro sólido y observaremos como ha variado tras él. Calcularemos el tensor de tensiones y lo representaremos. Finalmente calcularemos numéricamente (por el método de los rectángulos) la masa de la placa.

==Mallado de los puntos interiores del sólido==
Hemos representado los puntos interiores del sólido mediante un mallado,considerando un paso de muestreo h=1/20 para las coordenadas u,v que hemos definido en la introducción.

.[[Archivo:MalladoC30.jpg|325px|miniaturadeimagen|derecha|Aquí vemos el resultado de dibujar el mallado]]
{{matlab|codigo=
h=1/20; %paso de muestreo
u=1/3:h:1; %intervalo de u
v=-1:h:1; %intervalo de v
[uu,vv]=meshgrid(u,v);%mallado de la gráfica
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2); %cambio de coorde
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Líneas coordenadas y vectores de la base natural ===
Los vectores de la base natural son aquellos obtenidos al derivar las compentes x e y respecto de u y v.
Las llamaremos <math>\vec{g_u}</math> y <math>\vec{g_u}</math>
:
<math>\vec{g_u}= v\vec{i}+u\vec{j}</math>
:
<math>\vec{g_v}=u\vec{i}-v\vec{j}</math>

Para hacer más sencillo su interpretación hemos dividido <math>\vec{g_u}</math> y <math>\vec{g_u}</math> en partes.
A continuación vemos el código y la representación gráfica de las líneas coordenadas:
.[[Archivo:LineascoordenadasC30.jpg|300px|miniaturadeimagen|derecha|Líneas de gu (en azul) y líneas de gv (en rojo)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=1/2.*(uu.^2-vv.^2);
guu=vv;
guv=uu;
gvu=uu;
gvv=-vv;
hold on
quiver(xx,yy,guu,guv)%representamos los vectores gu en cada punto del mallado
quiver(xx,yy,gvu,gvv)%representamos los vectores gv en cada punto del mallado
hold off
}}

==Temperatura del sólido==
La temperatura del sólido viene dada por la función <math>T(x,y)=e^{(-y)}</math>. Hemos representado sus curvas de nivel y se puede observar que la temperatura es simétrica en la placa respecto al eje OY, siendo la parte más cálida el extremo inferior y las más fría la superior.
Podríamos obtener el punto más cálido de la placa y el punto más frío calculando sus derivadas parciales e igualandolas a 0, si los resultados quedasen fuera de la placa, buscaríamos máximos y mínimos en la frontera.
[[Archivo:TemperaturaC30.jpg|300px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
figure(1)
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente de un campo indica la dirección en la cual el campo varía más rápidamente, se denota con <math>\nabla </math>.Las curvas de nivel de un campo son aquellas que conecta los puntos que tienen un mismo valor constante.
De forma geométrica el gradiente es un vector que se encuentra normal (perpendicular) a a las curvas de nivel,como se puede observar en el siguiente gráfico.

El gradiente y las curvas de nivel de dicho campo (T) son los siguientes:
[[Archivo:GradTemperaturaC30.jpg|400px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
Tx=-xx.*0;% derivada parcial en x
Ty=-yy.*exp(-yy);% derivada parcial en y
figure(1)
quiver(xx,yy,Tx,Ty) %Gradiente de la temperatura
axis([-1,1,-1,1])
figure(2)
contour(xx,yy,T,20)%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)

}}

== Desplazamiento del sólido==

Considerando el vector desplazamiento <math>\vec{u}(u,v)=\vec{a}(\vec{b}·\vec{r_0})^2</math> siendo <math>\vec{a}=\frac{\vec{g_u}}{|\vec{g_u}|}</math> <math>\vec{b}=\frac{-4\vec{g_v}}{|\vec{g_v}|}</math> y <math>\vec{r_0}=x\vec{i}+y\vec{j}</math>

Cambiaremos <math>\vec{r_0}</math> a coordenadas curvilíneas

<math>\vec{r_0}=(uv,\frac{1}{2}(v^2+u^2))\begin{pmatrix} v\over(v^2+u^2) & u\over( v^2+u^2) \\u\over( v^2+u^2) & - v\over(v^2+u^2) \end{pmatrix}=4v^2(u^2+v^2)\vec{g_u}</math>

Si aplicamos <math>\vec{u}</math> a nuestra placa sufrirá una deformación producida por una fuerza determinada, el vector posición después de la deformación viene dada por <math>\vec{r}(u,v)=\vec{r_0}(u,v)+\vec{u}(u,v)</math>. Aplicando el campo al sólido inicial obtenemos el sólido deformado.

A continuación tenemos el sólido antes y después del desplazamiento dado por el campo de vectores <math>\vec{u}</math>
:
[[Archivo:DespC30.jpg|500px|miniaturadeimagen|centro|Representación del campo y de su desplazamiento]]

El vector desplazamiento es paralelo al eje X con diferente sentido a ambos lados del eje de simetría de la placa, de modo que la placa se estira en la dirección del eje de abscisas y se achata verticalmente.

==Divergencia y rotacional de <math>\vec{u}</math>==

La divergencia de un campo vectorial mide la diferencia entre el flujo saliente y el flujo entrante.
Si la divergencia es positiva, es una fuente, si es negativa es un sumidero.

La divergencia del desplazamiento<math>\vec{u}</math> la hemos manualmente a través de la fórmula
<math>\nabla \cdot \vec{u}=\frac{1}{ \sqrt{g} } \frac{\partial}{\partial u^i} \sqrt{g} u^{i} </math>

<math>\nabla\cdot\vec{u}=\frac{1}{u^2+v^2}( \frac{\partial}{\partial u}(u^2+v^2)(4v^2)+ (\frac{\partial}{\partial v}((u^2+v^2)(0))=\frac{12uv^2}{\sqrt{u^2+v^2}}</math>

[[Archivo:DivergenciaC30.jpg|300px|miniaturadeimagen|derecha|Representación de la divergencia del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
div=12.*uu.*vv.^2./sqrt(uu.^2+vv.^2);
surf(xx,yy,div)
axis([-1,1,-1,1])
view(2)
}}
Vemos que la divergencia alcanza sus valores más altos en aquellos puntos en los que la variación de volumen es mayor, en este caso se corresponden con los extremos de la placa.

Vamos a calcular ahora el rotacional de <math>\vec{u}</math>:
<math>\nabla\times\vec{u} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial u} & \frac{\partial }{\partial v} & \frac{\partial }{\partial w}\\ u_1 & u_2 & u_3 \end{pmatrix} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial u} & \frac{\partial }{\partial v} & \frac{\partial }{\partial w}\\ 4v^3 \sqrt{u^2+v^2} & 4uv^2 \sqrt{u^2+v^2} & 0 \end{pmatrix} =\frac{-4v^2(u^2+3v^2)}{\sqrt{u^2+v^2}} \vec{k} </math>.
Vemos en la representación del valor absoluto del rotacional que los puntos con mayor rotacional (los de color más amarillo) representarán los puntos del sólido en los que se induce un mayor giro debido a la deformación inducida por el campo <math>\vec{u}</math>
[[Archivo:RotacionalC30.jpg|300px|miniaturadeimagen|derecha|Representación del rotacional del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
figure(1)
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
rot=abs(-4*(vv.^2).*sqrt(uu.^2+vv.^2));
surf(xx,yy,rot)
axis([-1,1,-1,1])
view(2)
}}

==Tensiones==
Vamos a ver la representación del tensor de tensiones resultante de aplicar el campo <math>\vec{u} </math> al sólido. Dicho tensor de tensiones viene dado por la fórmula:
<math>\sigma= \lambda \nabla \cdot \vec{u} 1 + 2 \mu \epsilon </math>
donde <math>\epsilon = \frac{(\nabla \vec{u} + \nabla \vec{u}^t)}{2}</math> . <math> \lambda </math> y <math> \mu </math> son los parámetros de Lamé que dependen de las propiedades del material, en nuestro caso ambos valen <math> 1 </math>.
Definimos <math>\epsilon </math> y con la divergencia que ya la conocemos obtenemos <math>\sigma </math> :
<math>\epsilon =\begin{pmatrix} \frac{4uv^3}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2)}{\sqrt{u^2+v^2}} \end{pmatrix}</math>

Tensor de tensiones:
<math>\sigma =\begin{pmatrix} \frac{4uv^2(2v+3)}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} & 0 \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2+3v)}{\sqrt{u^2+v^2}} & 0 \\ 0 & 0 & 1\end{pmatrix}</math>

Con la ayuda de MatLab obtenemos las tensiones normales en las direcciones <math>g_u</math> y <math>g_v </math>:
[[Archivo:gugv.jpg|500px|miniaturadeimagen|centro|Tensiones normales en las direcciones de <math>g_u</math> y <math>g_v </math> ]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
sigmauu=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*vv.^3.*uu./sqrt(uu.^2+vv.^2);
sigmavv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*uu.*vv.*(2*uu.^2+3*vv.^2)./sqrt(uu.^2+vv.^2);
sigmauv=2*10*vv.^2.*sqrt(uu.^2+vv.^2);
sigmavu=sigmauv;
subplot(1,2,1)
quiver(xx,yy,sigmauu,sigmauv)
axis([-1,1,-1,1])
subplot(1,2,2)
quiver(xx,yy,sigmauv,sigmavv)
axis([-1,1,-1,1])
}}
Podemos observar al comparar las tensiones y el rotacional que coinciden los puntos de mayor tensión con los de mayor rotacional.

==Masa de la placa==
Tengamos la siguiente función de densidad:
<math>d(x,y)=|x|e^{(-1/y^2)}</math>
Vamos a calcular la masa total del sólido integrando la función en el área del sólido de manera numérica dividiendo el sólido en pequeños rectángulos y sumando todo al final. Aquí vemos el codigo MatLab utilizado:
{{matlab|codigo=
h=1/100; %Tomamos un paso de 1/100 para conseguir un resultado mejor aproximado
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
f=abs(xx).*exp(-1./yy.^2); %Definimos la función
a=h.^2*f; %Parte diferencial del sólido
masa=sum(sum(a)) %Suma de todas las partes del sólido
}}
Obtenemos una masa total de <math>Masa = 8.029 \cdot 10^-5</math>
[[Categoría:Teoría de Campos]]
[[Categoría:TC14/15]]

Visualización de campos escalares y vectoriales en elasticidad. Grupo C30

2014-12-15T16:14:20Z

María garcía Fernández: /* Desplazamiento del sólido */

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC14/15|2014-15]] |
María García Fernández

Sergio Ortega Pajares

Noemí Palomino Bustos

Diego Paramio Sastre

Álvaro Ramón López
}}

==Introducción==

En este trabajo estudiaremos la visualización de campos escalares y vectoriales en elasticidad de la placa plana que ocupa la región comprendida entre estas dos parábolas:

<math>P1: 18y-81x^2-1=0 </math>
:
<math>P2: 2y+x^2-1=0 </math>

Utilizaremos un cambio de coordenadas para hacer más sencilla su representación (sistema de coordenadas adaptado a la geometría dada):

<math>x=uv</math>
:
<math>y=\frac{1}{2}(u^2-v^2)</math>

con u,v definidas en el intervalo [1/3,1]x[-1,1]

Comenzaremos dibujando el mallado del sólido, así como sus líneas coordenadas y los vectores de la base natural en cada punto. Conociendo la función de la temperatura de la placa, seremos capaces de representar sus curvas de nivel y su gradiente.
Después aplicaremos un campo de desplazamientos a nuestro sólido y observaremos como ha variado tras él. Calcularemos el tensor de tensiones y lo representaremos. Finalmente calcularemos numéricamente (por el método de los rectángulos) la masa de la placa.

==Mallado de los puntos interiores del sólido==
Hemos representado los puntos interiores del sólido mediante un mallado,considerando un paso de muestreo h=1/20 para las coordenadas u,v que hemos definido en la introducción.

.[[Archivo:MalladoC30.jpg|325px|miniaturadeimagen|derecha|Aquí vemos el resultado de dibujar el mallado]]
{{matlab|codigo=
h=1/20; %paso de muestreo
u=1/3:h:1; %intervalo de u
v=-1:h:1; %intervalo de v
[uu,vv]=meshgrid(u,v);%mallado de la gráfica
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2); %cambio de coorde
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Líneas coordenadas y vectores de la base natural ===
Los vectores de la base natural son aquellos obtenidos al derivar las compentes x e y respecto de u y v.
Las llamaremos <math>\vec{g_u}</math> y <math>\vec{g_u}</math>
:
<math>\vec{g_u}= v\vec{i}+u\vec{j}</math>
:
<math>\vec{g_v}=u\vec{i}-v\vec{j}</math>

Para hacer más sencillo su interpretación hemos dividido <math>\vec{g_u}</math> y <math>\vec{g_u}</math> en partes.
A continuación vemos el código y la representación gráfica de las líneas coordenadas:
.[[Archivo:LineascoordenadasC30.jpg|300px|miniaturadeimagen|derecha|Líneas de gu (en azul) y líneas de gv (en rojo)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=1/2.*(uu.^2-vv.^2);
guu=vv;
guv=uu;
gvu=uu;
gvv=-vv;
hold on
quiver(xx,yy,guu,guv)%representamos los vectores gu en cada punto del mallado
quiver(xx,yy,gvu,gvv)%representamos los vectores gv en cada punto del mallado
hold off
}}

==Temperatura del sólido==
La temperatura del sólido viene dada por la función <math>T(x,y)=e^{(-y)}</math>. Hemos representado sus curvas de nivel y se puede observar que la temperatura es simétrica en la placa respecto al eje OY, siendo la parte más cálida el extremo inferior y las más fría la superior.
Podríamos obtener el punto más cálido de la placa y el punto más frío calculando sus derivadas parciales e igualandolas a 0, si los resultados quedasen fuera de la placa, buscaríamos máximos y mínimos en la frontera.
[[Archivo:TemperaturaC30.jpg|300px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
figure(1)
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente de un campo indica la dirección en la cual el campo varía más rápidamente, se denota con <math>\nabla </math>.Las curvas de nivel de un campo son aquellas que conecta los puntos que tienen un mismo valor constante.
De forma geométrica el gradiente es un vector que se encuentra normal (perpendicular) a a las curvas de nivel,como se puede observar en el siguiente gráfico.

El gradiente y las curvas de nivel de dicho campo (T) son los siguientes:
[[Archivo:GradTemperaturaC30.jpg|400px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
Tx=-xx.*0;% derivada parcial en x
Ty=-yy.*exp(-yy);% derivada parcial en y
figure(1)
quiver(xx,yy,Tx,Ty) %Gradiente de la temperatura
axis([-1,1,-1,1])
figure(2)
contour(xx,yy,T,20)%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)

}}

== Desplazamiento del sólido==

Considerando el vector desplazamiento <math>\vec{u}(u,v)=\vec{a}(\vec{b}·\vec{r_0})^2</math> siendo <math>\vec{a}=\frac{\vec{g_u}}{|\vec{g_u}|}</math> <math>\vec{b}=\frac{-4\vec{g_v}}{|\vec{g_v}|}</math> y <math>\vec{r_0}=x\vec{i}+y\vec{j}</math>

Cambiaremos <math>\vec{r_0}</math> a coordenadas curvilíneas

<math>\vec{r_0}=(uv,\frac{1}{2}(v^2+u^2))\begin{pmatrix} v\over(v^2+u^2) & u\over( v^2+u^2) \\u\over( v^2+u^2) & - v\over(v^2+u^2) \end{pmatrix}=4v^2(u^2+v^2)\vec{g_u}</math>

Si aplicamos <math>\vec{u}</math> a nuestra placa sufrirá una deformación producida por una fuerza determinada, el vector posición después de la deformación viene dada por <math>\vec{r}(u,v)=\vec{r_0}(u,v)+\vec{u}(u,v)</math>. Aplicando el campo al sólido inicial obtenemos el sólido deformado.

A continuación tenemos el sólido antes y después del desplazamiento dado por el campo de vectores <math>\vec{u}</math>
:
[[Archivo:DespC30.jpg|500px|miniaturadeimagen|centro|Representación del campo y de su desplazamiento]]

El vector desplazamiento es paralelo al eje X con diferente sentido a ambos lados del eje de simetría de la placa, de modo que la placa se estira en la dirección del eje de abscisas y se achata verticalmente.

==Divergencia y rotacional de <math>\vec{u}</math>==

La divergencia de un campo vectorial mide la diferencia entre el flujo saliente y el flujo entrante.
Si la divergencia es positiva, es una fuente, si es negativa es un sumidero.

La divergencia del desplazamiento<math>\vec{u}</math> la hemos manualmente a través de la fórmula
<math>\nabla \cdot \vec{u}=\frac{1}{ \sqrt{g} } \frac{\partial}{\partial u^i} \sqrt{g} u^{i} </math>

<math>\nabla\cdot\vec{u}=\frac{1}{u^2+v^2}( \frac{\partial}{\partial u}(u^2+v^2)(4v^2)+ (\frac{\partial}{\partial v}((u^2+v^2)(0))=\frac{12uv^2}{\sqrt{u^2+v^2}}</math>

[[Archivo:DivergenciaC30.jpg|300px|miniaturadeimagen|derecha|Representación de la divergencia del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
div=12.*uu.*vv.^2./sqrt(uu.^2+vv.^2);
surf(xx,yy,div)
axis([-1,1,-1,1])
view(2)
}}
Vemos que la divergencia alcanza sus valores más altos en aquellos puntos en los que la variación de volumen es mayor, en este caso se corresponden con los extremos de la placa.

Vamos a calcular ahora el rotacional de <math>\vec{u}</math>:
<math>\nabla\times\vec{u} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ u_1 & u_2 & u_3 \end{pmatrix} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ 4v^3 \sqrt{u^2+v^2} & 4uv^2 \sqrt{u^2+v^2} & 0 \end{pmatrix} =\frac{-4v^2(u^2+3v^2)}{\sqrt{u^2+v^2}} \vec{k} </math>.
Vemos en la representación del valor absoluto del rotacional que los puntos con mayor rotacional (los de color más amarillo) representarán los puntos del sólido en los que se induce un mayor giro debido a la deformación inducida por el campo <math>\vec{u}</math>
[[Archivo:RotacionalC30.jpg|300px|miniaturadeimagen|derecha|Representación del rotacional del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
figure(1)
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
rot=abs(-4*(vv.^2).*sqrt(uu.^2+vv.^2));
surf(xx,yy,rot)
axis([-1,1,-1,1])
view(2)
}}

==Tensiones==
Vamos a ver la representación del tensor de tensiones resultante de aplicar el campo <math>\vec{u} </math> al sólido. Dicho tensor de tensiones viene dado por la fórmula:
<math>\sigma= \lambda \nabla \cdot \vec{u} 1 + 2 \mu \epsilon </math>
donde <math>\epsilon = \frac{(\nabla \vec{u} + \nabla \vec{u}^t)}{2}</math> . <math> \lambda </math> y <math> \mu </math> son los parámetros de Lamé que dependen de las propiedades del material, en nuestro caso ambos valen <math> 1 </math>.
Definimos <math>\epsilon </math> y con la divergencia que ya la conocemos obtenemos <math>\sigma </math> :
<math>\epsilon =\begin{pmatrix} \frac{4uv^3}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2)}{\sqrt{u^2+v^2}} \end{pmatrix}</math>

Tensor de tensiones:
<math>\sigma =\begin{pmatrix} \frac{4uv^2(2v+3)}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} & 0 \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2+3v)}{\sqrt{u^2+v^2}} & 0 \\ 0 & 0 & 1\end{pmatrix}</math>

Con la ayuda de MatLab obtenemos las tensiones normales en las direcciones <math>g_u</math> y <math>g_v </math>:
[[Archivo:gugv.jpg|500px|miniaturadeimagen|centro|Tensiones normales en las direcciones de <math>g_u</math> y <math>g_v </math> ]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
sigmauu=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*vv.^3.*uu./sqrt(uu.^2+vv.^2);
sigmavv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*uu.*vv.*(2*uu.^2+3*vv.^2)./sqrt(uu.^2+vv.^2);
sigmauv=2*10*vv.^2.*sqrt(uu.^2+vv.^2);
sigmavu=sigmauv;
subplot(1,2,1)
quiver(xx,yy,sigmauu,sigmauv)
axis([-1,1,-1,1])
subplot(1,2,2)
quiver(xx,yy,sigmauv,sigmavv)
axis([-1,1,-1,1])
}}
Podemos observar al comparar las tensiones y el rotacional que coinciden los puntos de mayor tensión con los de mayor rotacional.

==Masa de la placa==
Tengamos la siguiente función de densidad:
<math>d(x,y)=|x|e^{(-1/y^2)}</math>
Vamos a calcular la masa total del sólido integrando la función en el área del sólido de manera numérica dividiendo el sólido en pequeños rectángulos y sumando todo al final. Aquí vemos el codigo MatLab utilizado:
{{matlab|codigo=
h=1/100; %Tomamos un paso de 1/100 para conseguir un resultado mejor aproximado
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
f=abs(xx).*exp(-1./yy.^2); %Definimos la función
a=h.^2*f; %Parte diferencial del sólido
masa=sum(sum(a)) %Suma de todas las partes del sólido
}}
Obtenemos una masa total de <math>Masa = 8.029 \cdot 10^-5</math>
[[Categoría:Teoría de Campos]]
[[Categoría:TC14/15]]

Visualización de campos escalares y vectoriales en elasticidad. Grupo C30

2014-12-05T22:06:31Z

María garcía Fernández: /* Divergencia y rotacional de \vec{u} */

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC14/15|2014-15]] |
María García Fernández

Sergio Ortega Pajares

Noemí Palomino Bustos

Diego Paramio Sastre

Álvaro Ramón López
}}

==Introducción==
{{beta}}
En este trabajo estudiaremos la visualización de campos escalares y vectoriales en elasticidad de la placa plana que ocupa la región comprendida entre estas dos parábolas:

<math>P1: 18y-81x^2-1=0 </math>
:
<math>P2: 2y+x^2-1=0 </math>

Utilizaremos un cambio de coordenadas para hacer más sencilla su representación (sistema de coordenadas adaptado a la geometría dada):

<math>x=uv</math>
:
<math>y=1/2(u^2-v^2)</math>

con u,v definidas en el intervalo [1/3,1]x[-1,1]

Comenzaremos dibujando el mallado del sólido, así como sus líneas coordenadas y los vectores de la base natural en cada punto. Conociendo la función de la temperatura de la placa, seremos capaces de representar sus curvas de nivel y su gradiente.
Después aplicaremos un campo de desplazamientos a nuestro sólido y observaremos como ha variado tras él. Calcularemos el tensor de tensiones y lo representaremos. Finalmente calcularemos numéricamente (por el método de los rectángulos) la masa de la placa.

==Mallado de los puntos interiores del sólido==
Hemos representado los puntos interiores del sólido mediante un mallado,considerando un paso de muestreo h=1/20 para las coordenadas u,v que hemos definido en la introducción.

.[[Archivo:MalladoC30.jpg|325px|miniaturadeimagen|derecha|Aquí vemos el resultado de dibujar el mallado]]
{{matlab|codigo=
h=1/20; %paso de muestreo
u=1/3:h:1; %intervalo de u
v=-1:h:1; %intervalo de v
[uu,vv]=meshgrid(u,v);%mallado de la gráfica
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2); %cambio de coorde
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Líneas coordenadas y vectores de la base natural ===
Los vectores de la base natural son aquellos obtenidos al derivar las compentes x e y respecto de u y v.
Las llamaremos <math>\vec{g_u}</math> y <math>\vec{g_u}</math>
:
<math>\vec{g_u}= v\vec{i}+u\vec{j}</math>
:
<math>\vec{g_v}=u\vec{i}-v\vec{j}</math>

Para hacer más sencillo su interpretación hemos dividido <math>\vec{g_u}</math> y <math>\vec{g_u}</math> en partes.
A continuación vemos el código y la representación gráfica de las líneas coordenadas:
.[[Archivo:LineascoordenadasC30.jpg|300px|miniaturadeimagen|derecha|Líneas de gu (en azul) y líneas de gv (en rojo)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=1/2.*(uu.^2-vv.^2);
guu=vv;
guv=uu;
gvu=uu;
gvv=-vv;
hold on
quiver(xx,yy,guu,guv)%representamos los vectores gu en cada punto del mallado
quiver(xx,yy,gvu,gvv)%representamos los vectores gv en cada punto del mallado
hold off
}}

==Temperatura del sólido==
La temperatura del sólido viene dada por la función <math>T(x,y)=e^{(-y)}</math>. Hemos representado sus curvas de nivel y se puede observar que la temperatura es simétrica en la placa respecto al eje OY, siendo la parte más cálida el extremo inferior y las más fría la superior.
Podríamos obtener el punto más cálido de la placa y el punto más frío calculando sus derivadas parciales e igualandolas a 0, si los resultados quedasen fuera de la placa, buscaríamos máximos y mínimos en la frontera.
[[Archivo:TemperaturaC30.jpg|300px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
figure(1)
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente de un campo indica la dirección en la cual el campo varía más rápidamente, se denota con <math>\nabla </math>.Las curvas de nivel de un campo son aquellas que conecta los puntos que tienen un mismo valor constante.
De forma geométrica el gradiente es un vector que se encuentra normal (perpendicular) a a las curvas de nivel,como se puede observar en el siguiente gráfico.

El gradiente y las curvas de nivel de dicho campo (T) son los siguientes:
[[Archivo:GradTemperaturaC30.jpg|400px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
Tx=-xx.*0;% derivada parcial en x
Ty=-yy.*exp(-yy);% derivada parcial en y
figure(1)
quiver(xx,yy,Tx,Ty) %Gradiente de la temperatura
axis([-1,1,-1,1])
figure(2)
contour(xx,yy,T,20)%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)

}}

== Desplazamiento del sólido==

Considerando el vector desplazamiento <math>\vec{u}(u,v)=\vec{a}(\vec{b}·\vec{r_0})^2</math> siendo <math>\vec{a}=\frac{\vec{g_u}}{|\vec{g_u}|}</math> <math>\vec{b}=\frac{-4\vec{g_v}}{|\vec{g_v}|}</math> y <math>\vec{r_0}=\vec{x}+\vec{y}</math>

Cambiaremos <math>\vec{u}</math> a coordenadas curvilíneas

<math>\vec{u}=(uv,\frac{1}{2}(v^2+u^2))\begin{pmatrix} v\over(v^2+u^2) & u\over( v^2+u^2) \\u\over( v^2+u^2) & - v\over(v^2+u^2) \end{pmatrix}=4v^2(u^2+v^2)\vec{g_u}</math>

Si aplicamos <math>\vec{u}</math> a nuestra placa sufrirá una deformación producida por una fuerza determinada, el vector posición después de la deformación viene dada por <math>\vec{r}(u,v)=\vec{r_0}(u,v)+\vec{u}(u,v)</math>. Aplicando el campo al sólido inicial obtenemos el sólido deformado.

A continuación tenemos el sólido antes y después del desplazamiento dado por el campo de vectores <math>\vec{u}</math>
:
[[Archivo:DespC30.jpg|500px|miniaturadeimagen|centro|Representación del campo y de su desplazamiento]]

El vector desplazamiento es paralelo al eje X con diferente sentido a ambos lados del eje de simetría de la placa, de modo que la placa se estira en la dirección del eje de abscisas y se achata verticalmente.

==Divergencia y rotacional de <math>\vec{u}</math>==

La divergencia de un campo vectorial mide la diferencia entre el flujo saliente y el flujo entrante.
Si la divergencia es positiva, es una fuente, si es negativa es un sumidero.

La divergencia del desplazamiento<math>\vec{u}</math> la hemos manualmente a través de la fórmula
<math>\nabla \cdot \vec{u}=\frac{1}{ \sqrt{g} } \frac{\partial}{\partial u^i} \sqrt{g} u^{i} </math>

<math>\nabla\cdot\vec{u}=\frac{1}{u^2+v^2}( \frac{\partial}{\partial u}(u^2+v^2)(4v^2)+ (\frac{\partial}{\partial v}((u^2+v^2)(0))=\frac{12uv^2}{\sqrt{u^2+v^2}}</math>

[[Archivo:DivergenciaC30.jpg|300px|miniaturadeimagen|derecha|Representación de la divergencia del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
div=12.*uu.*vv.^2./sqrt(uu.^2+vv.^2);
surf(xx,yy,div)
axis([-1,1,-1,1])
view(2)
}}
Vemos que la divergencia alcanza sus valores más altos en aquellos puntos en los que la variación de volumen es mayor, en este caso se corresponden con los extremos de la placa.

Vamos a calcular ahora el rotacional de <math>\vec{u}</math>:
<math>\nabla\times\vec{u} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ u_1 & u_2 & u_3 \end{pmatrix} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ 4v^3 \sqrt{u^2+v^2} & 4uv^2 \sqrt{u^2+v^2} & 0 \end{pmatrix} =\frac{-4v^2(u^2+3v^2)}{\sqrt{u^2+v^2}} \vec{k} </math>.
Vemos en la representación del valor absoluto del rotacional que los puntos con mayor rotacional (los de color más amarillo) representarán los puntos del sólido en los que se induce un mayor giro debido a la deformación inducida por el campo <math>\vec{u}</math>
[[Archivo:RotacionalC30.jpg|300px|miniaturadeimagen|derecha|Representación del rotacional del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
figure(1)
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
rot=abs(-4*(vv.^2).*sqrt(uu.^2+vv.^2));
surf(xx,yy,rot)
axis([-1,1,-1,1])
view(2)
}}

==Tensiones==
Vamos a ver la representación del tensor de tensiones resultante de aplicar el campo <math>\vec{u} </math> al sólido. Dicho tensor de tensiones viene dado por la fórmula:
<math>\sigma= \lambda \nabla \cdot \vec{u} 1 + 2 \mu \epsilon </math>
donde <math>\epsilon = \frac{(\nabla \vec{u} + \nabla \vec{u}^t)}{2}</math> . <math> \lambda </math> y <math> \mu </math> son los parámetros de Lamé que dependen de las propiedades del material, en nuestro caso ambos valen <math> 1 </math>.
Definimos <math>\epsilon </math> y con la divergencia que ya la conocemos obtenemos <math>\sigma </math> :
<math>\epsilon =\begin{pmatrix} \frac{4uv^3}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2)}{\sqrt{u^2+v^2}} \end{pmatrix}</math>

Tensor de tensiones:
<math>\sigma =\begin{pmatrix} \frac{4uv^2(2v+3)}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} & 0 \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2+3v)}{\sqrt{u^2+v^2}} & 0 \\ 0 & 0 & 1\end{pmatrix}</math>

Con la ayuda de MatLab obtenemos las tensiones normales en las direcciones <math>g_u</math> y <math>g_v </math>:
[[Archivo:gugv.jpg|500px|miniaturadeimagen|centro|Tensiones normales en las direcciones de <math>g_u</math> y <math>g_v </math> ]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
sigmauu=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*vv.^3.*uu./sqrt(uu.^2+vv.^2);
sigmavv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*uu.*vv.*(2*uu.^2+3*vv.^2)./sqrt(uu.^2+vv.^2);
sigmauv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*10*vv.^2.*sqrt(uu.^2+vv.^2);
sigmavu=sigmauv;
subplot(1,2,1)
quiver(xx,yy,sigmauu,sigmauv)
axis([-1,1,-1,1])
subplot(1,2,2)
quiver(xx,yy,sigmauv,sigmavv)
axis([-1,1,-1,1])
}}
Podemos observar al comparar las tensiones y el rotacional que coinciden los puntos de mayor tensión con los de mayor rotacional.

==Masa de la placa==
Tengamos la siguiente función de densidad:
<math>d(x,y)=|x|e^{(-1/y^2)}</math>
Vamos a calcular la masa total del sólido integrando la función en el área del sólido de manera numérica dividiendo el sólido en pequeños rectángulos y sumando todo al final. Aquí vemos el codigo MatLab utilizado:
{{matlab|codigo=
h=1/100; %Tomamos un paso de 1/100 para conseguir un resultado mejor aproximado
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
f=abs(xx).*exp(-1./yy.^2); %Definimos la función
a=h.^2*f; %Parte diferencial del sólido
masa=sum(sum(a)) %Suma de todas las partes del sólido
}}
Obtenemos una masa total de <math>Masa = 8.029 \cdot 10^-5</math>
[[Categoría:Teoría de Campos]]
[[Categoría:TC14/15]]

Visualización de campos escalares y vectoriales en elasticidad. Grupo C30

2014-12-05T22:03:04Z

María garcía Fernández: /* Desplazamiento del sólido */

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC14/15|2014-15]] |
María García Fernández

Sergio Ortega Pajares

Noemí Palomino Bustos

Diego Paramio Sastre

Álvaro Ramón López
}}

==Introducción==
{{beta}}
En este trabajo estudiaremos la visualización de campos escalares y vectoriales en elasticidad de la placa plana que ocupa la región comprendida entre estas dos parábolas:

<math>P1: 18y-81x^2-1=0 </math>
:
<math>P2: 2y+x^2-1=0 </math>

Utilizaremos un cambio de coordenadas para hacer más sencilla su representación (sistema de coordenadas adaptado a la geometría dada):

<math>x=uv</math>
:
<math>y=1/2(u^2-v^2)</math>

con u,v definidas en el intervalo [1/3,1]x[-1,1]

Comenzaremos dibujando el mallado del sólido, así como sus líneas coordenadas y los vectores de la base natural en cada punto. Conociendo la función de la temperatura de la placa, seremos capaces de representar sus curvas de nivel y su gradiente.
Después aplicaremos un campo de desplazamientos a nuestro sólido y observaremos como ha variado tras él. Calcularemos el tensor de tensiones y lo representaremos. Finalmente calcularemos numéricamente (por el método de los rectángulos) la masa de la placa.

==Mallado de los puntos interiores del sólido==
Hemos representado los puntos interiores del sólido mediante un mallado,considerando un paso de muestreo h=1/20 para las coordenadas u,v que hemos definido en la introducción.

.[[Archivo:MalladoC30.jpg|325px|miniaturadeimagen|derecha|Aquí vemos el resultado de dibujar el mallado]]
{{matlab|codigo=
h=1/20; %paso de muestreo
u=1/3:h:1; %intervalo de u
v=-1:h:1; %intervalo de v
[uu,vv]=meshgrid(u,v);%mallado de la gráfica
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2); %cambio de coorde
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Líneas coordenadas y vectores de la base natural ===
Los vectores de la base natural son aquellos obtenidos al derivar las compentes x e y respecto de u y v.
Las llamaremos <math>\vec{g_u}</math> y <math>\vec{g_u}</math>
:
<math>\vec{g_u}= v\vec{i}+u\vec{j}</math>
:
<math>\vec{g_v}=u\vec{i}-v\vec{j}</math>

Para hacer más sencillo su interpretación hemos dividido <math>\vec{g_u}</math> y <math>\vec{g_u}</math> en partes.
A continuación vemos el código y la representación gráfica de las líneas coordenadas:
.[[Archivo:LineascoordenadasC30.jpg|300px|miniaturadeimagen|derecha|Líneas de gu (en azul) y líneas de gv (en rojo)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=1/2.*(uu.^2-vv.^2);
guu=vv;
guv=uu;
gvu=uu;
gvv=-vv;
hold on
quiver(xx,yy,guu,guv)%representamos los vectores gu en cada punto del mallado
quiver(xx,yy,gvu,gvv)%representamos los vectores gv en cada punto del mallado
hold off
}}

==Temperatura del sólido==
La temperatura del sólido viene dada por la función <math>T(x,y)=e^{(-y)}</math>. Hemos representado sus curvas de nivel y se puede observar que la temperatura es simétrica en la placa respecto al eje OY, siendo la parte más cálida el extremo inferior y las más fría la superior.
Podríamos obtener el punto más cálido de la placa y el punto más frío calculando sus derivadas parciales e igualandolas a 0, si los resultados quedasen fuera de la placa, buscaríamos máximos y mínimos en la frontera.
[[Archivo:TemperaturaC30.jpg|300px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
figure(1)
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente de un campo indica la dirección en la cual el campo varía más rápidamente, se denota con <math>\nabla </math>.Las curvas de nivel de un campo son aquellas que conecta los puntos que tienen un mismo valor constante.
De forma geométrica el gradiente es un vector que se encuentra normal (perpendicular) a a las curvas de nivel,como se puede observar en el siguiente gráfico.

El gradiente y las curvas de nivel de dicho campo (T) son los siguientes:
[[Archivo:GradTemperaturaC30.jpg|400px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
Tx=-xx.*0;% derivada parcial en x
Ty=-yy.*exp(-yy);% derivada parcial en y
figure(1)
quiver(xx,yy,Tx,Ty) %Gradiente de la temperatura
axis([-1,1,-1,1])
figure(2)
contour(xx,yy,T,20)%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)

}}

== Desplazamiento del sólido==

Considerando el vector desplazamiento <math>\vec{u}(u,v)=\vec{a}(\vec{b}·\vec{r_0})^2</math> siendo <math>\vec{a}=\frac{\vec{g_u}}{|\vec{g_u}|}</math> <math>\vec{b}=\frac{-4\vec{g_v}}{|\vec{g_v}|}</math> y <math>\vec{r_0}=\vec{x}+\vec{y}</math>

Cambiaremos <math>\vec{u}</math> a coordenadas curvilíneas

<math>\vec{u}=(uv,\frac{1}{2}(v^2+u^2))\begin{pmatrix} v\over(v^2+u^2) & u\over( v^2+u^2) \\u\over( v^2+u^2) & - v\over(v^2+u^2) \end{pmatrix}=4v^2(u^2+v^2)\vec{g_u}</math>

Si aplicamos <math>\vec{u}</math> a nuestra placa sufrirá una deformación producida por una fuerza determinada, el vector posición después de la deformación viene dada por <math>\vec{r}(u,v)=\vec{r_0}(u,v)+\vec{u}(u,v)</math>. Aplicando el campo al sólido inicial obtenemos el sólido deformado.

A continuación tenemos el sólido antes y después del desplazamiento dado por el campo de vectores <math>\vec{u}</math>
:
[[Archivo:DespC30.jpg|500px|miniaturadeimagen|centro|Representación del campo y de su desplazamiento]]

El vector desplazamiento es paralelo al eje X con diferente sentido a ambos lados del eje de simetría de la placa, de modo que la placa se estira en la dirección del eje de abscisas y se achata verticalmente.

==Divergencia y rotacional de <math>\vec{u}</math>==

La divergencia de un campo vectorial mide la diferencia entre el flujo saliente y el flujo entrante.
Si la divergencia es positiva, es una fuente, si es negativa es un sumidero.

La divergencia del desplazamiento<math>\vec{u}</math> la hemos manualmente a través de la fórmula
<math>\nabla \cdot \vec{u}=\frac{1}{ \sqrt{g} } \frac{\partial}{\partial u^i} \sqrt{g} u^{i} </math>

<math>\nabla\cdot\vec{u}=\frac{1}{u^2+v^2}( \frac{\partial}{\partial u}(u^2+v^2)(4v^2)+ (\frac{\partial}{\partial v}((u^2+v^2)(0))=\frac{12uv^2}{\sqrt{u^2+v^2}}</math>

[[Archivo:DivergenciaC30.jpg|300px|miniaturadeimagen|derecha|Representación de la divergencia del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
div=12.*uu.*vv.^2./sqrt(uu.^2+vv.^2);
surf(xx,yy,div)
axis([-1,1,-1,1])
view(2)
}}
Vemos que la divergencia alcanza sus valores más altos en aquellos puntos en los que la variación de volumen es mayor, en este caso se corresponden con los extremos de la placa.

Vamos a calcular ahora el rotacional de <math>\vec{u}</math>:
<math>\nabla\times\vec{u} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ u_1 & u_2 & u_3 \end{pmatrix} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ 4v^3 \sqrt{u^2+v^2} & 4uv^2 \sqrt{u^2+v^2} & 0 \end{pmatrix} =\frac{-4v^2(u^2+3v^2)}{\sqrt{u^2+v^2}} \vec{k} </math>.
Vemos en la representación del valor absoluto del rotacionalque los puntos con mayor rotacional (los de color más amarillo) representarán los puntos del sólido en los que se induce un mayor giro debido a la deformación inducida por el campo <math>\vec{u}</math>
[[Archivo:RotacionalC30.jpg|300px|miniaturadeimagen|derecha|Representación del rotacional del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
figure(1)
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
rot=abs(-4*(vv.^2).*sqrt(uu.^2+vv.^2));
surf(xx,yy,rot)
axis([-1,1,-1,1])
view(2)
}}

==Tensiones==
Vamos a ver la representación del tensor de tensiones resultante de aplicar el campo <math>\vec{u} </math> al sólido. Dicho tensor de tensiones viene dado por la fórmula:
<math>\sigma= \lambda \nabla \cdot \vec{u} 1 + 2 \mu \epsilon </math>
donde <math>\epsilon = \frac{(\nabla \vec{u} + \nabla \vec{u}^t)}{2}</math> . <math> \lambda </math> y <math> \mu </math> son los parámetros de Lamé que dependen de las propiedades del material, en nuestro caso ambos valen <math> 1 </math>.
Definimos <math>\epsilon </math> y con la divergencia que ya la conocemos obtenemos <math>\sigma </math> :
<math>\epsilon =\begin{pmatrix} \frac{4uv^3}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2)}{\sqrt{u^2+v^2}} \end{pmatrix}</math>

Tensor de tensiones:
<math>\sigma =\begin{pmatrix} \frac{4uv^2(2v+3)}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} & 0 \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2+3v)}{\sqrt{u^2+v^2}} & 0 \\ 0 & 0 & 1\end{pmatrix}</math>

Con la ayuda de MatLab obtenemos las tensiones normales en las direcciones <math>g_u</math> y <math>g_v </math>:
[[Archivo:gugv.jpg|500px|miniaturadeimagen|centro|Tensiones normales en las direcciones de <math>g_u</math> y <math>g_v </math> ]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
sigmauu=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*vv.^3.*uu./sqrt(uu.^2+vv.^2);
sigmavv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*uu.*vv.*(2*uu.^2+3*vv.^2)./sqrt(uu.^2+vv.^2);
sigmauv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*10*vv.^2.*sqrt(uu.^2+vv.^2);
sigmavu=sigmauv;
subplot(1,2,1)
quiver(xx,yy,sigmauu,sigmauv)
axis([-1,1,-1,1])
subplot(1,2,2)
quiver(xx,yy,sigmauv,sigmavv)
axis([-1,1,-1,1])
}}
Podemos observar al comparar las tensiones y el rotacional que coinciden los puntos de mayor tensión con los de mayor rotacional.

==Masa de la placa==
Tengamos la siguiente función de densidad:
<math>d(x,y)=|x|e^{(-1/y^2)}</math>
Vamos a calcular la masa total del sólido integrando la función en el área del sólido de manera numérica dividiendo el sólido en pequeños rectángulos y sumando todo al final. Aquí vemos el codigo MatLab utilizado:
{{matlab|codigo=
h=1/100; %Tomamos un paso de 1/100 para conseguir un resultado mejor aproximado
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
f=abs(xx).*exp(-1./yy.^2); %Definimos la función
a=h.^2*f; %Parte diferencial del sólido
masa=sum(sum(a)) %Suma de todas las partes del sólido
}}
Obtenemos una masa total de <math>Masa = 8.029 \cdot 10^-5</math>
[[Categoría:Teoría de Campos]]
[[Categoría:TC14/15]]

Visualización de campos escalares y vectoriales en elasticidad. Grupo C30

2014-12-05T21:53:45Z

María garcía Fernández: /* Temperatura del sólido */

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC14/15|2014-15]] |
María García Fernández

Sergio Ortega Pajares

Noemí Palomino Bustos

Diego Paramio Sastre

Álvaro Ramón López
}}

==Introducción==
{{beta}}
En este trabajo estudiaremos la visualización de campos escalares y vectoriales en elasticidad de la placa plana que ocupa la región comprendida entre estas dos parábolas:

<math>P1: 18y-81x^2-1=0 </math>
:
<math>P2: 2y+x^2-1=0 </math>

Utilizaremos un cambio de coordenadas para hacer más sencilla su representación (sistema de coordenadas adaptado a la geometría dada):

<math>x=uv</math>
:
<math>y=1/2(u^2-v^2)</math>

con u,v definidas en el intervalo [1/3,1]x[-1,1]

Comenzaremos dibujando el mallado del sólido, así como sus líneas coordenadas y los vectores de la base natural en cada punto. Conociendo la función de la temperatura de la placa, seremos capaces de representar sus curvas de nivel y su gradiente.
Después aplicaremos un campo de desplazamientos a nuestro sólido y observaremos como ha variado tras él. Calcularemos el tensor de tensiones y lo representaremos. Finalmente calcularemos numéricamente (por el método de los rectángulos) la masa de la placa.

==Mallado de los puntos interiores del sólido==
Hemos representado los puntos interiores del sólido mediante un mallado,considerando un paso de muestreo h=1/20 para las coordenadas u,v que hemos definido en la introducción.

.[[Archivo:MalladoC30.jpg|325px|miniaturadeimagen|derecha|Aquí vemos el resultado de dibujar el mallado]]
{{matlab|codigo=
h=1/20; %paso de muestreo
u=1/3:h:1; %intervalo de u
v=-1:h:1; %intervalo de v
[uu,vv]=meshgrid(u,v);%mallado de la gráfica
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2); %cambio de coorde
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Líneas coordenadas y vectores de la base natural ===
Los vectores de la base natural son aquellos obtenidos al derivar las compentes x e y respecto de u y v.
Las llamaremos <math>\vec{g_u}</math> y <math>\vec{g_u}</math>
:
<math>\vec{g_u}= v\vec{i}+u\vec{j}</math>
:
<math>\vec{g_v}=u\vec{i}-v\vec{j}</math>

Para hacer más sencillo su interpretación hemos dividido <math>\vec{g_u}</math> y <math>\vec{g_u}</math> en partes.
A continuación vemos el código y la representación gráfica de las líneas coordenadas:
.[[Archivo:LineascoordenadasC30.jpg|300px|miniaturadeimagen|derecha|Líneas de gu (en azul) y líneas de gv (en rojo)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=1/2.*(uu.^2-vv.^2);
guu=vv;
guv=uu;
gvu=uu;
gvv=-vv;
hold on
quiver(xx,yy,guu,guv)%representamos los vectores gu en cada punto del mallado
quiver(xx,yy,gvu,gvv)%representamos los vectores gv en cada punto del mallado
hold off
}}

==Temperatura del sólido==
La temperatura del sólido viene dada por la función <math>T(x,y)=e^{(-y)}</math>. Hemos representado sus curvas de nivel y se puede observar que la temperatura es simétrica en la placa respecto al eje OY, siendo la parte más cálida el extremo inferior y las más fría la superior.
Podríamos obtener el punto más cálido de la placa y el punto más frío calculando sus derivadas parciales e igualandolas a 0, si los resultados quedasen fuera de la placa, buscaríamos máximos y mínimos en la frontera.
[[Archivo:TemperaturaC30.jpg|300px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
figure(1)
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente de un campo indica la dirección en la cual el campo varía más rápidamente, se denota con <math>\nabla </math>.Las curvas de nivel de un campo son aquellas que conecta los puntos que tienen un mismo valor constante.
De forma geométrica el gradiente es un vector que se encuentra normal (perpendicular) a a las curvas de nivel,como se puede observar en el siguiente gráfico.

El gradiente y las curvas de nivel de dicho campo (T) son los siguientes:
[[Archivo:GradTemperaturaC30.jpg|400px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
Tx=-xx.*0;% derivada parcial en x
Ty=-yy.*exp(-yy);% derivada parcial en y
figure(1)
quiver(xx,yy,Tx,Ty) %Gradiente de la temperatura
axis([-1,1,-1,1])
figure(2)
contour(xx,yy,T,20)%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)

}}

== Desplazamiento del sólido==

Considerando el vector desplazamiento <math>\vec{u}(u,v)=\vec{a}(\vec{b}·\vec{r_0})^2</math> siendo <math>\vec{a}=\frac{\vec{g_u}}{|\vec{g_u}|}</math> <math>\vec{b}=\frac{-4\vec{g_v}}{|\vec{g_v}|}</math> y <math>\vec{r_0}=\vec{x}+\vec{y}</math>

Cambiaremos <math>\vec{u}</math> a coordenadas curvilíneas

<math>\vec{u}=(uv,\frac{1}{2}(v^2+u^2))\begin{pmatrix} v\over(v^2+u^2) & u\over( v^2+u^2) \\u\over( v^2+u^2) & - v\over(v^2+u^2) \end{pmatrix}=4v^2(u^2+v^2)\vec{g_u}</math>

Si aplicamos <math>\vec{u}</math> a nuestra placa sufrirá una deformación producida por una fuerza determinada, el vector posición después de la deformación viene dada por <math>\vec{r}(u,v)=\vec{r_0}(u,v)+\vec{u}(u,v)</math>. Aplicando el campo al sólido inicial obtenemos el sólido deformado.

A continuación tenemos el sólido antes y después del desplazamiento dado por el campo de vectores <math>\vec{u}</math>
:
[[Archivo:DespC30.jpg|500px|miniaturadeimagen|centro|Representación del campo y de su desplazamiento]]

==Divergencia y rotacional de <math>\vec{u}</math>==

La divergencia de un campo vectorial mide la diferencia entre el flujo saliente y el flujo entrante.
Si la divergencia es positiva, es una fuente, si es negativa es un sumidero.

La divergencia del desplazamiento<math>\vec{u}</math> la hemos manualmente a través de la fórmula
<math>\nabla \cdot \vec{u}=\frac{1}{ \sqrt{g} } \frac{\partial}{\partial u^i} \sqrt{g} u^{i} </math>

<math>\nabla\cdot\vec{u}=\frac{1}{u^2+v^2}( \frac{\partial}{\partial u}(u^2+v^2)(4v^2)+ (\frac{\partial}{\partial v}((u^2+v^2)(0))=\frac{12uv^2}{\sqrt{u^2+v^2}}</math>

[[Archivo:DivergenciaC30.jpg|300px|miniaturadeimagen|derecha|Representación de la divergencia del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
div=12.*uu.*vv.^2./sqrt(uu.^2+vv.^2);
surf(xx,yy,div)
axis([-1,1,-1,1])
view(2)
}}
Vemos que la divergencia alcanza sus valores más altos en aquellos puntos en los que la variación de volumen es mayor, en este caso se corresponden con los extremos de la placa.

Vamos a calcular ahora el rotacional de <math>\vec{u}</math>:
<math>\nabla\times\vec{u} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ u_1 & u_2 & u_3 \end{pmatrix} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ 4v^3 \sqrt{u^2+v^2} & 4uv^2 \sqrt{u^2+v^2} & 0 \end{pmatrix} =\frac{-4v^2(u^2+3v^2)}{\sqrt{u^2+v^2}} \vec{k} </math>.
Vemos en la representación del valor absoluto del rotacionalque los puntos con mayor rotacional (los de color más amarillo) representarán los puntos del sólido en los que se induce un mayor giro debido a la deformación inducida por el campo <math>\vec{u}</math>
[[Archivo:RotacionalC30.jpg|300px|miniaturadeimagen|derecha|Representación del rotacional del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
figure(1)
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
rot=abs(-4*(vv.^2).*sqrt(uu.^2+vv.^2));
surf(xx,yy,rot)
axis([-1,1,-1,1])
view(2)
}}

==Tensiones==
Vamos a ver la representación del tensor de tensiones resultante de aplicar el campo <math>\vec{u} </math> al sólido. Dicho tensor de tensiones viene dado por la fórmula:
<math>\sigma= \lambda \nabla \cdot \vec{u} 1 + 2 \mu \epsilon </math>
donde <math>\epsilon = \frac{(\nabla \vec{u} + \nabla \vec{u}^t)}{2}</math> . <math> \lambda </math> y <math> \mu </math> son los parámetros de Lamé que dependen de las propiedades del material, en nuestro caso ambos valen <math> 1 </math>.
Definimos <math>\epsilon </math> y con la divergencia que ya la conocemos obtenemos <math>\sigma </math> :
<math>\epsilon =\begin{pmatrix} \frac{4uv^3}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2}{\sqrt{u^2+v^2}} \end{pmatrix}</math>
Con la ayuda de MatLab obtenemos las tensiones normales en las direcciones <math>g_u</math> y <math>g_v </math>:
[[Archivo:gugv.jpg|500px|miniaturadeimagen|centro|Tensiones normales en las direcciones de <math>g_u</math> y <math>g_v </math> ]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
sigmauu=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*vv.^3.*uu./sqrt(uu.^2+vv.^2);
sigmavv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*uu.*vv.*(2*uu.^2+3*vv.^2)./sqrt(uu.^2+vv.^2);
sigmauv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*10*vv.^2.*sqrt(uu.^2+vv.^2);
sigmavu=sigmauv;
subplot(1,2,1)
quiver(xx,yy,sigmauu,sigmauv)
axis([-1,1,-1,1])
subplot(1,2,2)
quiver(xx,yy,sigmauv,sigmavv)
axis([-1,1,-1,1])
}}
Podemos observar al comparar las tensiones y el rotacional que coinciden los puntos de mayor tensión con los de mayor rotacional.

==Masa de la placa==
Tengamos la siguiente función de densidad:
<math>d(x,y)=|x|e^{(-1/y^2)}</math>
Vamos a calcular la masa total del sólido integrando la función en el área del sólido de manera numérica dividiendo el sólido en pequeños rectángulos y sumando todo al final. Aquí vemos el codigo MatLab utilizado:
{{matlab|codigo=
h=1/100; %Tomamos un paso de 1/100 para conseguir un resultado mejor aproximado
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
f=abs(xx).*exp(-1./yy.^2); %Definimos la función
a=h.^2*f; %Parte diferencial del sólido
masa=sum(sum(a)) %Suma de todas las partes del sólido
}}
Obtenemos una masa total de <math>Masa = 8.029 \cdot 10^-5</math>
[[Categoría:Teoría de Campos]]
[[Categoría:TC14/15]]

Visualización de campos escalares y vectoriales en elasticidad. Grupo C30

2014-12-05T21:52:55Z

María garcía Fernández: /* Temperatura del sólido */

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC14/15|2014-15]] |
María García Fernández

Sergio Ortega Pajares

Noemí Palomino Bustos

Diego Paramio Sastre

Álvaro Ramón López
}}

==Introducción==
{{beta}}
En este trabajo estudiaremos la visualización de campos escalares y vectoriales en elasticidad de la placa plana que ocupa la región comprendida entre estas dos parábolas:

<math>P1: 18y-81x^2-1=0 </math>
:
<math>P2: 2y+x^2-1=0 </math>

Utilizaremos un cambio de coordenadas para hacer más sencilla su representación (sistema de coordenadas adaptado a la geometría dada):

<math>x=uv</math>
:
<math>y=1/2(u^2-v^2)</math>

con u,v definidas en el intervalo [1/3,1]x[-1,1]

Comenzaremos dibujando el mallado del sólido, así como sus líneas coordenadas y los vectores de la base natural en cada punto. Conociendo la función de la temperatura de la placa, seremos capaces de representar sus curvas de nivel y su gradiente.
Después aplicaremos un campo de desplazamientos a nuestro sólido y observaremos como ha variado tras él. Calcularemos el tensor de tensiones y lo representaremos. Finalmente calcularemos numéricamente (por el método de los rectángulos) la masa de la placa.

==Mallado de los puntos interiores del sólido==
Hemos representado los puntos interiores del sólido mediante un mallado,considerando un paso de muestreo h=1/20 para las coordenadas u,v que hemos definido en la introducción.

.[[Archivo:MalladoC30.jpg|325px|miniaturadeimagen|derecha|Aquí vemos el resultado de dibujar el mallado]]
{{matlab|codigo=
h=1/20; %paso de muestreo
u=1/3:h:1; %intervalo de u
v=-1:h:1; %intervalo de v
[uu,vv]=meshgrid(u,v);%mallado de la gráfica
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2); %cambio de coorde
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Líneas coordenadas y vectores de la base natural ===
Los vectores de la base natural son aquellos obtenidos al derivar las compentes x e y respecto de u y v.
Las llamaremos <math>\vec{g_u}</math> y <math>\vec{g_u}</math>
:
<math>\vec{g_u}= v\vec{i}+u\vec{j}</math>
:
<math>\vec{g_v}=u\vec{i}-v\vec{j}</math>

Para hacer más sencillo su interpretación hemos dividido <math>\vec{g_u}</math> y <math>\vec{g_u}</math> en partes.
A continuación vemos el código y la representación gráfica de las líneas coordenadas:
.[[Archivo:LineascoordenadasC30.jpg|300px|miniaturadeimagen|derecha|Líneas de gu (en azul) y líneas de gv (en rojo)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=1/2.*(uu.^2-vv.^2);
guu=vv;
guv=uu;
gvu=uu;
gvv=-vv;
hold on
quiver(xx,yy,guu,guv)%representamos los vectores gu en cada punto del mallado
quiver(xx,yy,gvu,gvv)%representamos los vectores gv en cada punto del mallado
hold off
}}

==Temperatura del sólido==
La temperatura del sólido viene dada por la función <math>T(x,y)=e^{(-y)}</math>. Hemos representado sus curvas de nivel y se puede observar que la temperatura es simétrica en la placa respecto al eje OY, siendo la parte más cálida el extremo inferior y las más fría la superior.
Podríamos obtener el punto más cálido de la placa y el punto más frío calculando sus derivadas parciales e igualandolas a 0, si los resultados quedasen fuera de la placa, buscaríamos máximos y mínimos en la frontera.
[[Archivo:TemperaturaC30.jpg|300px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
figure(1)
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente de un campo indica la dirección en la cual el campo varía más rápidamente, se denota con <math>\nabla </math>.Las curvas de nivel de un campo son aquellas que conecta los puntos que tienen un mismo valor constante.
De forma geométrica el gradiente es un vector que se encuentra normal(perpendicular)a a las curvas de nivel,como se puede observar en el siguiente gráfico.

El gradiente y las curvas de nivel de dicho campo (T) son los siguientes:
[[Archivo:GradTemperaturaC30.jpg|400px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
Tx=-xx.*0;% derivada parcial en x
Ty=-yy.*exp(-yy);% derivada parcial en y
figure(1)
quiver(xx,yy,Tx,Ty) %Gradiente de la temperatura
axis([-1,1,-1,1])
figure(2)
contour(xx,yy,T,20)%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)

}}

== Desplazamiento del sólido==

Considerando el vector desplazamiento <math>\vec{u}(u,v)=\vec{a}(\vec{b}·\vec{r_0})^2</math> siendo <math>\vec{a}=\frac{\vec{g_u}}{|\vec{g_u}|}</math> <math>\vec{b}=\frac{-4\vec{g_v}}{|\vec{g_v}|}</math> y <math>\vec{r_0}=\vec{x}+\vec{y}</math>

Cambiaremos <math>\vec{u}</math> a coordenadas curvilíneas

<math>\vec{u}=(uv,\frac{1}{2}(v^2+u^2))\begin{pmatrix} v\over(v^2+u^2) & u\over( v^2+u^2) \\u\over( v^2+u^2) & - v\over(v^2+u^2) \end{pmatrix}=4v^2(u^2+v^2)\vec{g_u}</math>

Si aplicamos <math>\vec{u}</math> a nuestra placa sufrirá una deformación producida por una fuerza determinada, el vector posición después de la deformación viene dada por <math>\vec{r}(u,v)=\vec{r_0}(u,v)+\vec{u}(u,v)</math>. Aplicando el campo al sólido inicial obtenemos el sólido deformado.

A continuación tenemos el sólido antes y después del desplazamiento dado por el campo de vectores <math>\vec{u}</math>
:
[[Archivo:DespC30.jpg|500px|miniaturadeimagen|centro|Representación del campo y de su desplazamiento]]

==Divergencia y rotacional de <math>\vec{u}</math>==

La divergencia de un campo vectorial mide la diferencia entre el flujo saliente y el flujo entrante.
Si la divergencia es positiva, es una fuente, si es negativa es un sumidero.

La divergencia del desplazamiento<math>\vec{u}</math> la hemos manualmente a través de la fórmula
<math>\nabla \cdot \vec{u}=\frac{1}{ \sqrt{g} } \frac{\partial}{\partial u^i} \sqrt{g} u^{i} </math>

<math>\nabla\cdot\vec{u}=\frac{1}{u^2+v^2}( \frac{\partial}{\partial u}(u^2+v^2)(4v^2)+ (\frac{\partial}{\partial v}((u^2+v^2)(0))=\frac{12uv^2}{\sqrt{u^2+v^2}}</math>

[[Archivo:DivergenciaC30.jpg|300px|miniaturadeimagen|derecha|Representación de la divergencia del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
div=12.*uu.*vv.^2./sqrt(uu.^2+vv.^2);
surf(xx,yy,div)
axis([-1,1,-1,1])
view(2)
}}
Vemos que la divergencia alcanza sus valores más altos en aquellos puntos en los que la variación de volumen es mayor, en este caso se corresponden con los extremos de la placa.

Vamos a calcular ahora el rotacional de <math>\vec{u}</math>:
<math>\nabla\times\vec{u} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ u_1 & u_2 & u_3 \end{pmatrix} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ 4v^3 \sqrt{u^2+v^2} & 4uv^2 \sqrt{u^2+v^2} & 0 \end{pmatrix} =\frac{-4v^2(u^2+3v^2)}{\sqrt{u^2+v^2}} \vec{k} </math>.
Vemos en la representación del valor absoluto del rotacionalque los puntos con mayor rotacional (los de color más amarillo) representarán los puntos del sólido en los que se induce un mayor giro debido a la deformación inducida por el campo <math>\vec{u}</math>
[[Archivo:RotacionalC30.jpg|300px|miniaturadeimagen|derecha|Representación del rotacional del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
figure(1)
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
rot=abs(-4*(vv.^2).*sqrt(uu.^2+vv.^2));
surf(xx,yy,rot)
axis([-1,1,-1,1])
view(2)
}}

==Tensiones==
Vamos a ver la representación del tensor de tensiones resultante de aplicar el campo <math>\vec{u} </math> al sólido. Dicho tensor de tensiones viene dado por la fórmula:
<math>\sigma= \lambda \nabla \cdot \vec{u} 1 + 2 \mu \epsilon </math>
donde <math>\epsilon = \frac{(\nabla \vec{u} + \nabla \vec{u}^t)}{2}</math> . <math> \lambda </math> y <math> \mu </math> son los parámetros de Lamé que dependen de las propiedades del material, en nuestro caso ambos valen <math> 1 </math>.
Definimos <math>\epsilon </math> y con la divergencia que ya la conocemos obtenemos <math>\sigma </math> :
<math>\epsilon =\begin{pmatrix} \frac{4uv^3}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2}{\sqrt{u^2+v^2}} \end{pmatrix}</math>
Con la ayuda de MatLab obtenemos las tensiones normales en las direcciones <math>g_u</math> y <math>g_v </math>:
[[Archivo:gugv.jpg|500px|miniaturadeimagen|centro|Tensiones normales en las direcciones de <math>g_u</math> y <math>g_v </math> ]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
sigmauu=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*vv.^3.*uu./sqrt(uu.^2+vv.^2);
sigmavv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*uu.*vv.*(2*uu.^2+3*vv.^2)./sqrt(uu.^2+vv.^2);
sigmauv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*10*vv.^2.*sqrt(uu.^2+vv.^2);
sigmavu=sigmauv;
subplot(1,2,1)
quiver(xx,yy,sigmauu,sigmauv)
axis([-1,1,-1,1])
subplot(1,2,2)
quiver(xx,yy,sigmauv,sigmavv)
axis([-1,1,-1,1])
}}
Podemos observar al comparar las tensiones y el rotacional que coinciden los puntos de mayor tensión con los de mayor rotacional.

==Masa de la placa==
Tengamos la siguiente función de densidad:
<math>d(x,y)=|x|e^{(-1/y^2)}</math>
Vamos a calcular la masa total del sólido integrando la función en el área del sólido de manera numérica dividiendo el sólido en pequeños rectángulos y sumando todo al final. Aquí vemos el codigo MatLab utilizado:
{{matlab|codigo=
h=1/100; %Tomamos un paso de 1/100 para conseguir un resultado mejor aproximado
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
f=abs(xx).*exp(-1./yy.^2); %Definimos la función
a=h.^2*f; %Parte diferencial del sólido
masa=sum(sum(a)) %Suma de todas las partes del sólido
}}
Obtenemos una masa total de <math>Masa = 8.029 \cdot 10^-5</math>
[[Categoría:Teoría de Campos]]
[[Categoría:TC14/15]]

Visualización de campos escalares y vectoriales en elasticidad. Grupo C30

2014-12-05T21:51:34Z

María garcía Fernández: /* Introducción */

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC14/15|2014-15]] |
María García Fernández

Sergio Ortega Pajares

Noemí Palomino Bustos

Diego Paramio Sastre

Álvaro Ramón López
}}

==Introducción==
{{beta}}
En este trabajo estudiaremos la visualización de campos escalares y vectoriales en elasticidad de la placa plana que ocupa la región comprendida entre estas dos parábolas:

<math>P1: 18y-81x^2-1=0 </math>
:
<math>P2: 2y+x^2-1=0 </math>

Utilizaremos un cambio de coordenadas para hacer más sencilla su representación (sistema de coordenadas adaptado a la geometría dada):

<math>x=uv</math>
:
<math>y=1/2(u^2-v^2)</math>

con u,v definidas en el intervalo [1/3,1]x[-1,1]

Comenzaremos dibujando el mallado del sólido, así como sus líneas coordenadas y los vectores de la base natural en cada punto. Conociendo la función de la temperatura de la placa, seremos capaces de representar sus curvas de nivel y su gradiente.
Después aplicaremos un campo de desplazamientos a nuestro sólido y observaremos como ha variado tras él. Calcularemos el tensor de tensiones y lo representaremos. Finalmente calcularemos numéricamente (por el método de los rectángulos) la masa de la placa.

==Mallado de los puntos interiores del sólido==
Hemos representado los puntos interiores del sólido mediante un mallado,considerando un paso de muestreo h=1/20 para las coordenadas u,v que hemos definido en la introducción.

.[[Archivo:MalladoC30.jpg|325px|miniaturadeimagen|derecha|Aquí vemos el resultado de dibujar el mallado]]
{{matlab|codigo=
h=1/20; %paso de muestreo
u=1/3:h:1; %intervalo de u
v=-1:h:1; %intervalo de v
[uu,vv]=meshgrid(u,v);%mallado de la gráfica
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2); %cambio de coorde
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Líneas coordenadas y vectores de la base natural ===
Los vectores de la base natural son aquellos obtenidos al derivar las compentes x e y respecto de u y v.
Las llamaremos <math>\vec{g_u}</math> y <math>\vec{g_u}</math>
:
<math>\vec{g_u}= v\vec{i}+u\vec{j}</math>
:
<math>\vec{g_v}=u\vec{i}-v\vec{j}</math>

Para hacer más sencillo su interpretación hemos dividido <math>\vec{g_u}</math> y <math>\vec{g_u}</math> en partes.
A continuación vemos el código y la representación gráfica de las líneas coordenadas:
.[[Archivo:LineascoordenadasC30.jpg|300px|miniaturadeimagen|derecha|Líneas de gu (en azul) y líneas de gv (en rojo)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=1/2.*(uu.^2-vv.^2);
guu=vv;
guv=uu;
gvu=uu;
gvv=-vv;
hold on
quiver(xx,yy,guu,guv)%representamos los vectores gu en cada punto del mallado
quiver(xx,yy,gvu,gvv)%representamos los vectores gv en cada punto del mallado
hold off
}}

==Temperatura del sólido==
La temperatura del sólido viene dada por la función <math>T(x,y)=e^{(-y)}</math>.Hemos representado sus curvas de nivel, en el gráfico podemos observar que la temperatura es simétrica en la placa respecto al eje OY, siendo la parte más cálida el extremo inferior y las más fría la superior.
Podríamos obtener el punto más cálido de la placa y el punto más frío calculando sus derivadas parciales e igualandolas a 0, si los resultados quedasen fuera de la placa, buscariamos máximos y mínimos en la frontera.
[[Archivo:TemperaturaC30.jpg|300px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
figure(1)
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente de un campo indica la dirección en la cual el campo varía más rápidamente, se denota con <math>\nabla </math>.Las curvas de nivel de un campo son aquellas que conecta los puntos que tienen un mismo valor constante.
De forma geométrica el gradiente es un vector que se encuentra normal(perpendicular)a a las curvas de nivel,como se puede observar en el siguiente gráfico.

El gradiente y las curvas de nivel de dicho campo (T) son los siguientes:
[[Archivo:GradTemperaturaC30.jpg|400px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
Tx=-xx.*0;% derivada parcial en x
Ty=-yy.*exp(-yy);% derivada parcial en y
figure(1)
quiver(xx,yy,Tx,Ty) %Gradiente de la temperatura
axis([-1,1,-1,1])
figure(2)
contour(xx,yy,T,20)%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)

}}

== Desplazamiento del sólido==

Considerando el vector desplazamiento <math>\vec{u}(u,v)=\vec{a}(\vec{b}·\vec{r_0})^2</math> siendo <math>\vec{a}=\frac{\vec{g_u}}{|\vec{g_u}|}</math> <math>\vec{b}=\frac{-4\vec{g_v}}{|\vec{g_v}|}</math> y <math>\vec{r_0}=\vec{x}+\vec{y}</math>

Cambiaremos <math>\vec{u}</math> a coordenadas curvilíneas

<math>\vec{u}=(uv,\frac{1}{2}(v^2+u^2))\begin{pmatrix} v\over(v^2+u^2) & u\over( v^2+u^2) \\u\over( v^2+u^2) & - v\over(v^2+u^2) \end{pmatrix}=4v^2(u^2+v^2)\vec{g_u}</math>

Si aplicamos <math>\vec{u}</math> a nuestra placa sufrirá una deformación producida por una fuerza determinada, el vector posición después de la deformación viene dada por <math>\vec{r}(u,v)=\vec{r_0}(u,v)+\vec{u}(u,v)</math>. Aplicando el campo al sólido inicial obtenemos el sólido deformado.

A continuación tenemos el sólido antes y después del desplazamiento dado por el campo de vectores <math>\vec{u}</math>
:
[[Archivo:DespC30.jpg|500px|miniaturadeimagen|centro|Representación del campo y de su desplazamiento]]

==Divergencia y rotacional de <math>\vec{u}</math>==

La divergencia de un campo vectorial mide la diferencia entre el flujo saliente y el flujo entrante.
Si la divergencia es positiva, es una fuente, si es negativa es un sumidero.

La divergencia del desplazamiento<math>\vec{u}</math> la hemos manualmente a través de la fórmula
<math>\nabla \cdot \vec{u}=\frac{1}{ \sqrt{g} } \frac{\partial}{\partial u^i} \sqrt{g} u^{i} </math>

<math>\nabla\cdot\vec{u}=\frac{1}{u^2+v^2}( \frac{\partial}{\partial u}(u^2+v^2)(4v^2)+ (\frac{\partial}{\partial v}((u^2+v^2)(0))=\frac{12uv^2}{\sqrt{u^2+v^2}}</math>

[[Archivo:DivergenciaC30.jpg|300px|miniaturadeimagen|derecha|Representación de la divergencia del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
div=12.*uu.*vv.^2./sqrt(uu.^2+vv.^2);
surf(xx,yy,div)
axis([-1,1,-1,1])
view(2)
}}
Vemos que la divergencia alcanza sus valores más altos en aquellos puntos en los que la variación de volumen es mayor, en este caso se corresponden con los extremos de la placa.

Vamos a calcular ahora el rotacional de <math>\vec{u}</math>:
<math>\nabla\times\vec{u} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ u_1 & u_2 & u_3 \end{pmatrix} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ 4v^3 \sqrt{u^2+v^2} & 4uv^2 \sqrt{u^2+v^2} & 0 \end{pmatrix} =\frac{-4v^2(u^2+3v^2)}{\sqrt{u^2+v^2}} \vec{k} </math>.
Vemos en la representación del valor absoluto del rotacionalque los puntos con mayor rotacional (los de color más amarillo) representarán los puntos del sólido en los que se induce un mayor giro debido a la deformación inducida por el campo <math>\vec{u}</math>
[[Archivo:RotacionalC30.jpg|300px|miniaturadeimagen|derecha|Representación del rotacional del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
figure(1)
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
rot=abs(-4*(vv.^2).*sqrt(uu.^2+vv.^2));
surf(xx,yy,rot)
axis([-1,1,-1,1])
view(2)
}}

==Tensiones==
Vamos a ver la representación del tensor de tensiones resultante de aplicar el campo <math>\vec{u} </math> al sólido. Dicho tensor de tensiones viene dado por la fórmula:
<math>\sigma= \lambda \nabla \cdot \vec{u} 1 + 2 \mu \epsilon </math>
donde <math>\epsilon = \frac{(\nabla \vec{u} + \nabla \vec{u}^t)}{2}</math> . <math> \lambda </math> y <math> \mu </math> son los parámetros de Lamé que dependen de las propiedades del material, en nuestro caso ambos valen <math> 1 </math>.
Definimos <math>\epsilon </math> y con la divergencia que ya la conocemos obtenemos <math>\sigma </math> :
<math>\epsilon =\begin{pmatrix} \frac{4uv^3}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2}{\sqrt{u^2+v^2}} \end{pmatrix}</math>
Con la ayuda de MatLab obtenemos las tensiones normales en las direcciones <math>g_u</math> y <math>g_v </math>:
[[Archivo:gugv.jpg|500px|miniaturadeimagen|centro|Tensiones normales en las direcciones de <math>g_u</math> y <math>g_v </math> ]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
sigmauu=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*vv.^3.*uu./sqrt(uu.^2+vv.^2);
sigmavv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*uu.*vv.*(2*uu.^2+3*vv.^2)./sqrt(uu.^2+vv.^2);
sigmauv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*10*vv.^2.*sqrt(uu.^2+vv.^2);
sigmavu=sigmauv;
subplot(1,2,1)
quiver(xx,yy,sigmauu,sigmauv)
axis([-1,1,-1,1])
subplot(1,2,2)
quiver(xx,yy,sigmauv,sigmavv)
axis([-1,1,-1,1])
}}
Podemos observar al comparar las tensiones y el rotacional que coinciden los puntos de mayor tensión con los de mayor rotacional.

==Masa de la placa==
Tengamos la siguiente función de densidad:
<math>d(x,y)=|x|e^{(-1/y^2)}</math>
Vamos a calcular la masa total del sólido integrando la función en el área del sólido de manera numérica dividiendo el sólido en pequeños rectángulos y sumando todo al final. Aquí vemos el codigo MatLab utilizado:
{{matlab|codigo=
h=1/100; %Tomamos un paso de 1/100 para conseguir un resultado mejor aproximado
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
f=abs(xx).*exp(-1./yy.^2); %Definimos la función
a=h.^2*f; %Parte diferencial del sólido
masa=sum(sum(a)) %Suma de todas las partes del sólido
}}
Obtenemos una masa total de <math>Masa = 8.029 \cdot 10^-5</math>
[[Categoría:Teoría de Campos]]
[[Categoría:TC14/15]]

Visualización de campos escalares y vectoriales en elasticidad. Grupo C30

2014-12-05T21:33:28Z

María garcía Fernández: /* Introducción */

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC14/15|2014-15]] |
María García Fernández

Sergio Ortega Pajares

Noemí Palomino Bustos

Diego Paramio Sastre

Álvaro Ramón López
}}

==Introducción==
{{beta}}
En este trabajo estudiaremos la visualización de campos escalares y vectoriales en elasticidad de la placa plana que ocupa la región comprendida entre estas dos parábolas:

<math>P1: 18y-81x^2-1=0 </math>
:
<math>P2: 2y+x^2-1=0 </math>

Utilizaremos un cambio de coordenadas para hacer más sencilla su representación (sistema de coordenadas adaptado a la geometría dada):

<math>x=uv</math>
:
<math>y=1/2(u^2-v^2)</math>

con u,v definidas en el intervalo [1/3,1]x[-1,1]

Comenzaremos dibujando el mallado del sólido, así como sus líneas coordenadas y los vectores de la base natural en cada punto. Conociendo la expresión de la temperatura de la placa, seremos capaces de representar sus curvas de nivel y su gradiente.
Después aplicaremos un campo de desplazamientos a nuestro sólido y observaremos como ha variado tras él. Calcularemos el tensor de tensiones y lo representaremos. Finalmente calcularemos numéricamente (por el método de los rectángulos) la masa de la placa.

==Mallado de los puntos interiores del sólido==
Hemos representado los puntos interiores del sólido mediante un mallado,considerando un paso de muestreo h=1/20 para las coordenadas u,v que hemos definido en la introducción.

.[[Archivo:MalladoC30.jpg|325px|miniaturadeimagen|derecha|Aquí vemos el resultado de dibujar el mallado]]
{{matlab|codigo=
h=1/20; %paso de muestreo
u=1/3:h:1; %intervalo de u
v=-1:h:1; %intervalo de v
[uu,vv]=meshgrid(u,v);%mallado de la gráfica
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2); %cambio de coorde
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Líneas coordenadas y vectores de la base natural ===
Los vectores de la base natural son aquellos obtenidos al derivar las compentes x e y respecto de u y v.
Las llamaremos <math>\vec{g_u}</math> y <math>\vec{g_u}</math>
:
<math>\vec{g_u}= v\vec{i}+u\vec{j}</math>
:
<math>\vec{g_v}=u\vec{i}-v\vec{j}</math>

Para hacer más sencillo su interpretación hemos dividido <math>\vec{g_u}</math> y <math>\vec{g_u}</math> en partes.
A continuación vemos el código y la representación gráfica de las líneas coordenadas:
.[[Archivo:LineascoordenadasC30.jpg|300px|miniaturadeimagen|derecha|Líneas de gu (en azul) y líneas de gv (en rojo)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=1/2.*(uu.^2-vv.^2);
guu=vv;
guv=uu;
gvu=uu;
gvv=-vv;
hold on
quiver(xx,yy,guu,guv)%representamos los vectores gu en cada punto del mallado
quiver(xx,yy,gvu,gvv)%representamos los vectores gv en cada punto del mallado
hold off
}}

==Temperatura del sólido==
La temperatura del sólido viene dada por la función <math>T(x,y)=e^{(-y)}</math>.Hemos representado sus curvas de nivel, en el gráfico podemos observar que la temperatura es simétrica en la placa respecto al eje OY, siendo la parte más cálida el extremo inferior y las más fría la superior.
Podríamos obtener el punto más cálido de la placa y el punto más frío calculando sus derivadas parciales e igualandolas a 0, si los resultados quedasen fuera de la placa, buscariamos máximos y mínimos en la frontera.
[[Archivo:TemperaturaC30.jpg|300px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
figure(1)
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente de un campo indica la dirección en la cual el campo varía más rápidamente, se denota con <math>\nabla </math>.Las curvas de nivel de un campo son aquellas que conecta los puntos que tienen un mismo valor constante.
De forma geométrica el gradiente es un vector que se encuentra normal(perpendicular)a a las curvas de nivel,como se puede observar en el siguiente gráfico.

El gradiente y las curvas de nivel de dicho campo (T) son los siguientes:
[[Archivo:GradTemperaturaC30.jpg|400px|miniaturadeimagen|derecha|Distribución de las temperaturas en el sólido)]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1; v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy); %Función de la Temperatura
Tx=-xx.*0;% derivada parcial en x
Ty=-yy.*exp(-yy);% derivada parcial en y
figure(1)
quiver(xx,yy,Tx,Ty) %Gradiente de la temperatura
axis([-1,1,-1,1])
figure(2)
contour(xx,yy,T,20)%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)

}}

== Desplazamiento del sólido==

Considerando el vector desplazamiento <math>\vec{u}(u,v)=\vec{a}(\vec{b}·\vec{r_0})^2</math> siendo <math>\vec{a}=\frac{\vec{g_u}}{|\vec{g_u}|}</math> <math>\vec{b}=\frac{-4\vec{g_v}}{|\vec{g_v}|}</math> y <math>\vec{r_0}=\vec{x}+\vec{y}</math>

Cambiaremos <math>\vec{u}</math> a coordenadas curvilíneas

<math>\vec{u}=(uv,\frac{1}{2}(v^2+u^2))\begin{pmatrix} v\over(v^2+u^2) & u\over( v^2+u^2) \\u\over( v^2+u^2) & - v\over(v^2+u^2) \end{pmatrix}=4v^2(u^2+v^2)\vec{g_u}</math>

Si aplicamos <math>\vec{u}</math> a nuestra placa sufrirá una deformación producida por una fuerza determinada, el vector posición después de la deformación viene dada por <math>\vec{r}(u,v)=\vec{r_0}(u,v)+\vec{u}(u,v)</math>. Aplicando el campo al sólido inicial obtenemos el sólido deformado.

A continuación tenemos el sólido antes y después del desplazamiento dado por el campo de vectores <math>\vec{u}</math>
:
[[Archivo:DespC30.jpg|500px|miniaturadeimagen|centro|Representación del campo y de su desplazamiento]]

==Divergencia y rotacional de <math>\vec{u}</math>==

La divergencia de un campo vectorial mide la diferencia entre el flujo saliente y el flujo entrante.
Si la divergencia es positiva, es una fuente, si es negativa es un sumidero.

La divergencia del desplazamiento<math>\vec{u}</math> la hemos manualmente a través de la fórmula
<math>\nabla \cdot \vec{u}=\frac{1}{ \sqrt{g} } \frac{\partial}{\partial u^i} \sqrt{g} u^{i} </math>

<math>\nabla\cdot\vec{u}=\frac{1}{u^2+v^2}( \frac{\partial}{\partial u}(u^2+v^2)(4v^2)+ (\frac{\partial}{\partial v}((u^2+v^2)(0))=\frac{12uv^2}{\sqrt{u^2+v^2}}</math>

[[Archivo:DivergenciaC30.jpg|300px|miniaturadeimagen|derecha|Representación de la divergencia del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
div=12.*uu.*vv.^2./sqrt(uu.^2+vv.^2);
surf(xx,yy,div)
axis([-1,1,-1,1])
view(2)
}}
Vemos que la divergencia alcanza sus valores más altos en aquellos puntos en los que la variación de volumen es mayor, en este caso se corresponden con los extremos de la placa.

Vamos a calcular ahora el rotacional de <math>\vec{u}</math>:
<math>\nabla\times\vec{u} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ u_1 & u_2 & u_3 \end{pmatrix} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ 4v^3 \sqrt{u^2+v^2} & 4uv^2 \sqrt{u^2+v^2} & 0 \end{pmatrix} =\frac{-4v^2(u^2+3v^2)}{\sqrt{u^2+v^2}} \vec{k} </math>.
Vemos en la representación del valor absoluto del rotacionalque los puntos con mayor rotacional (los de color más amarillo) representarán los puntos del sólido en los que se induce un mayor giro debido a la deformación inducida por el campo <math>\vec{u}</math>
[[Archivo:RotacionalC30.jpg|300px|miniaturadeimagen|derecha|Representación del rotacional del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
figure(1)
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
rot=abs(-4*(vv.^2).*sqrt(uu.^2+vv.^2));
surf(xx,yy,rot)
axis([-1,1,-1,1])
view(2)
}}

==Tensiones==
Vamos a ver la representación del tensor de tensiones resultante de aplicar el campo <math>\vec{u} </math> al sólido. Dicho tensor de tensiones viene dado por la fórmula:
<math>\sigma= \lambda \nabla \cdot \vec{u} 1 + 2 \mu \epsilon </math>
donde <math>\epsilon = \frac{(\nabla \vec{u} + \nabla \vec{u}^t)}{2}</math> . <math> \lambda </math> y <math> \mu </math> son los parámetros de Lamé que dependen de las propiedades del material, en nuestro caso ambos valen <math> 1 </math>.
Definimos <math>\epsilon </math> y con la divergencia que ya la conocemos obtenemos <math>\sigma </math> :
<math>\epsilon =\begin{pmatrix} \frac{4uv^3}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2}{\sqrt{u^2+v^2}} \end{pmatrix}</math>
Con la ayuda de MatLab obtenemos las tensiones normales en las direcciones <math>g_u</math> y <math>g_v </math>:
[[Archivo:gugv.jpg|500px|miniaturadeimagen|centro|Tensiones normales en las direcciones de <math>g_u</math> y <math>g_v </math> ]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
sigmauu=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*vv.^3.*uu./sqrt(uu.^2+vv.^2);
sigmavv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*uu.*vv.*(2*uu.^2+3*vv.^2)./sqrt(uu.^2+vv.^2);
sigmauv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*10*vv.^2.*sqrt(uu.^2+vv.^2);
sigmavu=sigmauv;
subplot(1,2,1)
quiver(xx,yy,sigmauu,sigmauv)
axis([-1,1,-1,1])
subplot(1,2,2)
quiver(xx,yy,sigmauv,sigmavv)
axis([-1,1,-1,1])
}}
Podemos observar al comparar las tensiones y el rotacional que coinciden los puntos de mayor tensión con los de mayor rotacional.

==Masa de la placa==
Tengamos la siguiente función de densidad:
<math>d(x,y)=|x|e^{(-1/y^2)}</math>
Vamos a calcular la masa total del sólido integrando la función en el área del sólido de manera numérica dividiendo el sólido en pequeños rectángulos y sumando todo al final. Aquí vemos el codigo MatLab utilizado:
{{matlab|codigo=
h=1/100; %Tomamos un paso de 1/100 para conseguir un resultado mejor aproximado
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
f=abs(xx).*exp(-1./yy.^2); %Definimos la función
a=h.^2*f; %Parte diferencial del sólido
masa=sum(sum(a)) %Suma de todas las partes del sólido
}}
Obtenemos una masa total de <math>Masa = 8.029 \cdot 10^-5</math>
[[Categoría:Teoría de Campos]]
[[Categoría:TC14/15]]

Prueba1

2014-12-05T20:20:23Z

María garcía Fernández:

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) |
María García Fernández

Sergio Ortega Pajares

Noemí Palomino Bustos

Diego Paramio Sastre

Álvaro Ramón López
}}

==Introducción==
{{beta
En este trabajo estudiaremos la visualización de campos escalares y vectoriales en elasticidad de la placa plana que ocupa la región comprendida entre estas dos parábolas:

<math>P1: 18y-81x^2-1=0 </math>

<math>P2: 2y+x^2-1=0 </math>

Utilizaremos un cambio de coordenadas para hacer más sencilla su representación (sistema de coordenadas adaptado a la geometría dada):

<math>x=uv</math>
<math>y=1/2(u^2-v^2)</math>

con u,v definidas en el intervalo [1/3,1]x[-1,1]

Comenzaremos dibujando el mallado del sólido, así como sus líneas coordenadas y los vectores de la base natural en cada punto. Conociendo la fórmula de la temperatura de la placa seremos capaces de representar sus curvas de nivel y su gradiente.
Después aplicaremos un campo de desplazamientos a nuestro sólido y observaremos como ha variado tras el desplazamiento.
Conociendo una fórmula calcularemos el tensor de tensiones y lo representaremos, utilizando este tensor llegaremos a obtener la tensión de Von Mises.
Finalmente calcularemos mediante Matlab la masa de la placa.

==Mallado de los puntos interiores del sólido==
Hemos representado el sólido mediante un mallado,
{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Lineas coordenadas y vectores de la base natural ===

===Temperatura del sólido===
La temperatura del sólido viene dada por la función <math>T(x,y)=e^(-y)</math>.
{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy);
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente y las curvas de nivel de dicho campo son los siguientes:
{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)

T=exp(-yy);

%T2=exp(-0.5.*(uu.^2-vv.^2));

surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)

Tx=-xx.*0;
% derivada parcial en x
Ty=-yy.*exp(-yy);

%Tu=-uu.*exp(-0.5*(uu.^2-vv.^2));
%Tv=vv.*exp(-0.5*(uu.^2-vv.^2));

% derivada parcial en y
subplot(1,2,1)
quiver(xx,yy,Tx,Ty)
axis([-1,1,-1,1])
% Región del gráfico
subplot(1,2,2),contour(xx,yy,T,20)
%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)
}}

==Masa de la placa==
Tengamos la siguiente función de densidad:
<math>d(x,y)=|x|e^{(-1/y^2)}</math>
Vamos a calcular la masa total del sólido integrando la función en el área del sólido de manera numérica dividiendo el sólido en pequeños rectángulos y sumando todo al final. Aquí vemos el codigo MatLab utilizado:
{{matlab|codigo=
h=1/100; %Tomamos un paso de 1/100 para conseguir un resultado mejor aproximado
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
f=abs(xx).*exp(-1./yy.^2); %Definimos la función
a=h.^2*f; %Parte diferencial del sólido
masa=sum(sum(a)) %Suma de todas las partes del sólido
}}
Obtenemos una masa total de <math>Masa = 8.029 \cdot 10^-5</math>
== Rotacional de u==
Vamos a calcular ahora el rotacional de <math>\vec{u}</math>:
<math>\nabla\times\vec{u} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ u_1 & u_2 & u_3 \end{pmatrix} = det\begin{pmatrix} \vec{i} & \vec{j} & \vec{k} \\ \frac{ \partial}{\partial x} & \frac{\partial }{\partial y} & \frac{\partial }{\partial z}\\ 4v^3 \sqrt{u^2+v^2} & 4uv^2 \sqrt{u^2+v^2} & 0 \end{pmatrix} =-4v^2(u^2+3v^2)/\sqrt{u^2+v^2} \vec{k} <math>
Vemos en su representación que los puntos con mayor rotacional (los de color más amarillo) representarán los puntos del sólido en los que se induce un mayor giro debido a la deformación inducida por el campo <math>\vec{u}</math>
[[Archivo:RotacionalC30.jpg|300px|miniaturadeimagen|derecha|Representación del rotacional del campo]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
figure(1)
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
rot=4*(vv.^2).*sqrt(uu.^2+vv.^2);
surf(xx,yy,rot)
axis([-1,1,-1,1])
view(2)
}}
==Tensiones==
Vamos a ver la representación del tensor de tensiones resultante de aplicar el campo <math>\vec{u}</math> al sólido. Dicho tensor de tensiones viene dado por la fórmula:
<math>\sigma= \lambda \nabla \cdot \vec{u} \bold{1} + 2 \mu \epsilon </math>
donde <math>\epsilon = \frac{(\nabla \vec{u} + \nabla \vec{u}^t}{2}</math> . <math> \lambda </math> y <math> \mu </math> son los parámetros de Lamé que dependen de las propiedades del material, en nuestro caso ambos valen <math> 1 </math>.
Definimos <math>\epsilon </math> y <math>\sigma</math> ( la divergencia ya la conocemos):
\begin{pmatrix} \frac{4uv^3}{\sqrt{u^2+v^2}} & 10v^2\sqrt{u^2+v^2} \\ 10v^2\sqrt{u^2+v^2} & \frac {4uv(2u^2+3v^2}{\sqrt{u^2+v^2}} \end{pmatrix}
Con la ayuda de MatLab obtenemos las tensiones normales en las direcciones <math>g_u</math> y <math>g_v </math>:
[[Archivo:gugv.jpg|500px|miniaturadeimagen|centro|Tensiones normales en las direcciones de<math>g_u</math> y <math>g_v </math> ]]

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
[uu,vv]=meshgrid(u,v);
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
sigmauu=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*vv.^3.*uu./sqrt(uu.^2+vv.^2);
sigmavv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*4*uu.*vv.*(2*uu.^2+3*vv.^2)./sqrt(uu.^2+vv.^2);
sigmauv=12*uu.*vv.^2./sqrt(uu.^2+vv.^2)+2*10*vv.^2.*sqrt(uu.^2+vv.^2);
sigmavu=sigmauv;
subplot(1,2,1)
quiver(xx,yy,sigmauu,sigmauv)
axis([-1,1,-1,1])
subplot(1,2,2)
quiver(xx,yy,sigmauv,sigmavv)
axis([-1,1,-1,1])
}}

Prueba1

2014-12-05T20:19:49Z

María garcía Fernández:

Prueba1

Prueba1

2014-12-01T10:28:13Z

María garcía Fernández:

Prueba1

2014-12-01T10:27:45Z

María garcía Fernández:

{{ TrabajoED | Visualización de campos escalares y vectoriales en un sólido (Grupo C30) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC14/15|2013-14]] |
María García Fernández
Sergio Ortega Pajares
Noemí Palomino Bustos
Diego Paramio Sastre
Teresa Quintana Romero
Álvaro Ramón López
}}

==Introducción==

==Mallado de los puntos interiores del sólido==

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Lineas coordenadas y vectores de la base natural ===

===Temperatura del sólido===
La temperatura del sólido viene dada por la función T(x,y)=e^-y.
{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy);
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente y las curvas de nivel de dicho campo son los siguientes:
{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)

T=exp(-yy);

%T2=exp(-0.5.*(uu.^2-vv.^2));

surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)

Tx=-xx.*0;
% derivada parcial en x
Ty=-yy.*exp(-yy);

%Tu=-uu.*exp(-0.5*(uu.^2-vv.^2));
%Tv=vv.*exp(-0.5*(uu.^2-vv.^2));

% derivada parcial en y
subplot(1,2,1)
quiver(xx,yy,Tx,Ty)
axis([-1,1,-1,1])
% Región del gráfico
subplot(1,2,2),contour(xx,yy,T,20)
%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)
}}

== Desplazamiento del sólido==

== ==

[[Categoría:Teoría de Campos]]
[[Categoría:Trabajos 2014-15]]

Prueba1

2014-12-01T10:16:14Z

María garcía Fernández:

{{ Trabajo|Visualización de campos escalares y vectoriales en un sólido (Grupo C30)|[[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:Trabajos 2014-15|2014-15]]}}

==Introducción==

==Mallado de los puntos interiores del sólido==

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Lineas coordenadas y vectores de la base natural ===

===Temperatura del sólido===
La temperatura del sólido viene dada por la función T(x,y)=e^-y.
{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy);
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente y las curvas de nivel de dicho campo son los siguientes:
{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)

T=exp(-yy);

%T2=exp(-0.5.*(uu.^2-vv.^2));

surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)

Tx=-xx.*0;
% derivada parcial en x
Ty=-yy.*exp(-yy);

%Tu=-uu.*exp(-0.5*(uu.^2-vv.^2));
%Tv=vv.*exp(-0.5*(uu.^2-vv.^2));

% derivada parcial en y
subplot(1,2,1)
quiver(xx,yy,Tx,Ty)
axis([-1,1,-1,1])
% Región del gráfico
subplot(1,2,2),contour(xx,yy,T,20)
%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)
}}

== Desplazamiento del sólido==

== ==

[[Categoría:Teoría de Campos]]
[[Categoría:Trabajos 2014-15]]

Prueba1

2014-11-26T16:26:58Z

María garcía Fernández:

{{Trabajo|Visualización de campos escalares y vectoriales en un sólido (Grupo C30)|[[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:Trabajos 2014-15|2014-15]]}}

==Introducción==

==Mallado de los puntos interiores del sólido==

{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)
}}

===Lineas coordenadas y vectores de la base natural ===

===Temperatura del sólido===
La temperatura del sólido viene dada por la función T(x,y)=e^-y.
{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
T=exp(-yy);
surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)
}}

El gradiente y las curvas de nivel de dicho campo son los siguientes:
{{matlab|codigo=
h=1/20;
u=1/3:h:1;
v=-1:h:1;
%mallado de la gráfica
[uu,vv]=meshgrid(u,v);
figure(1)
xx=uu.*vv;
yy=0.5.*((uu).^2-(vv).^2);
mesh(xx,yy,0*xx)
axis([-1,1,-1,1])
view(2)

T=exp(-yy);

%T2=exp(-0.5.*(uu.^2-vv.^2));

surf(xx,yy,T)
axis([-1,1,-1,1])
view(2)

Tx=-xx.*0;
% derivada parcial en x
Ty=-yy.*exp(-yy);

%Tu=-uu.*exp(-0.5*(uu.^2-vv.^2));
%Tv=vv.*exp(-0.5*(uu.^2-vv.^2));

% derivada parcial en y
subplot(1,2,1)
quiver(xx,yy,Tx,Ty)
axis([-1,1,-1,1])
% Región del gráfico
subplot(1,2,2),contour(xx,yy,T,20)
%dibujo curvas de nivel
axis([-1,1,-1,1])
view(2)
}}

== Desplazamiento del sólido==

== ==

[[Categoría:Teoría de Campos]]
[[Categoría:Trabajos 2014-15]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T23:29:47Z

María garcía Fernández: /* Cable sujeto a una estructura sometida a vibraciones periódicas */

{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.05;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);
sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)

%% Aproximación de u_t y u_x basándonos en el concepto de derivada

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end

%% Cálculo de la energía

e=Ux.^2+Ut.^2;
xaux=[0,xint];

for k=1:v(1)-2
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];

%% Representación gráfica de la energía a lo largo del tiempo

plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Energía a lo largo del tiempo')
}}

[[Archivo:CodigoENERGIA.jpg|border|Energía del cable a lo largo del tiempo)]]

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Damos a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

{{matlab|codigo=
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

[[Archivo:CodigoViscosoA0CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=0]]
[[Archivo:CodigoViscosoA1CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=1]]
[[Archivo:CodigoViscosoA4CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=4]]
[[Archivo:CodigoViscosoA10CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=10]]
[[Archivo:CodigoViscosoA100CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=100]]

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.
Para el caso de a=100, el método no es estable y da problemas. Sería necesario reducir aún más el paso temporal y espacial o utilizar otro método de mayor precisión.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Lo resolvemos numéricamente por diferencias finitas utilizando Euler.

{{matlab|codigo=
%% Cable sujeto a una estructura sometida a vibraciones periódicas

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,60]
% u(0,t)=0; u(10,t)=sin(2*pi*f0)
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0

%% Planteamiento y discretización (f0=0.11)

clear all
L=10;
T=60;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=0*xint';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito y obtención de las derivadas (f0=0.11)

f0=0.11;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

%% Energía (f0=0.11)

e=Ux.^2+Ut.^2;
xaux=[xint];
laux=length(xaux);
otro=length(e(2,:));

for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end

t(401)=[ ];

%% Representación Energía-Tiempo (f0=0.11)

figure(2)
plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo f0=0.11')

%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% Planteamiento y discretización (f0=0.09)

clear all
L=10;
T=60;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=0*xint';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito y obtención de las derivadas (f0=0.09)

f0=0.09;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;

for j=1:length(t)-1
u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(3)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

%% Energía (f0=0.09)

e=Ux.^2+Ut.^2;
xaux=[xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end

t(401)=[ ];

%% Representación Energía-Tiempo (f0=0.09)

figure(4)
plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo f0=0.09')
%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% Planteamiento y discretización (f0=0.1)

clear all
L=10;
T=60;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=0*xint';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito y obtención de las derivadas (f0=0.1)

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(5)
surf(xx,tt,sol)
v=size(sol);

for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

%% Energía (f0=0.1)

e=Ux.^2+Ut.^2;
xaux=[xint];
laux=length(xaux);
otro=length(e(2,:));

for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end

t(401)=[ ];

%% Representación Energía-Tiempo (f0=0.1)

figure(6)
plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo f0=0.1')
}}
[[Archivo:CodigoVibrPerio1.jpg|border|Cable sujeto a una estructura sometida a vibraciones periódicas f0=0.11]]
[[Archivo:CodigoVibrPerio2.jpg|border|Cable sujeto a una estructura sometida a vibraciones periódicas f0=0.09]]
[[Archivo:CodigoVibrPerio3.jpg|border|Cable sujeto a una estructura sometida a vibraciones periódicas f0=0.1]]

Se observa que cuanto mayor es el valor de <math>F_{0}</math>, la energía alcanza un máximo más elevado. Esto es debido a que las vibraciones en el extremo derecho de la estructura dependen de una función senoidal que está en función de <math>F_{0}</math>. A medida que aumenta <math>F_{0}</math> crece el seno y, con ello, la derivada parcial en x. esto se traduce en un incremento de la energía.
El valor de <math>F_{0}</math> únicamente afecta a los máximos de la energía pero no a su carácter temporal. Se trata de una función periódica que depende del tiempo. Para cualquier <math>F_{0}</math>, el periodo es de 40 segundos.

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T23:24:52Z

María garcía Fernández: /* Cable sujeto a una estructura sometida a vibraciones periódicas */

{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.05;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);
sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)

%% Aproximación de u_t y u_x basándonos en el concepto de derivada

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end

%% Cálculo de la energía

e=Ux.^2+Ut.^2;
xaux=[0,xint];

for k=1:v(1)-2
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];

%% Representación gráfica de la energía a lo largo del tiempo

plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Energía a lo largo del tiempo')
}}

[[Archivo:CodigoENERGIA.jpg|border|Energía del cable a lo largo del tiempo)]]

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Damos a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

{{matlab|codigo=
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

[[Archivo:CodigoViscosoA0CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=0]]
[[Archivo:CodigoViscosoA1CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=1]]
[[Archivo:CodigoViscosoA4CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=4]]
[[Archivo:CodigoViscosoA10CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=10]]
[[Archivo:CodigoViscosoA100CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=100]]

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.
Para el caso de a=100, el método no es estable y da problemas. Sería necesario reducir aún más el paso temporal y espacial o utilizar otro método de mayor precisión.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Lo resolvemos numéricamente por diferencias finitas utilizando Euler.

{{matlab|codigo=
%% Cable sujeto a una estructura sometida a vibraciones periódicas

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,60]
% u(0,t)=0; u(10,t)=sin(2*pi*f0)
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0

%% Planteamiento y discretización (f0=0.11)

clear all
L=10;
T=60;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=0*xint';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito y obtención de las derivadas (f0=0.11)

f0=0.11;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

%% Energía (f0=0.11)

e=Ux.^2+Ut.^2;
xaux=[xint];
laux=length(xaux);
otro=length(e(2,:));

for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end

t(401)=[ ];

%% Representación Energía-Tiempo (f0=0.11)

figure(2)
plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo f0=0.11')

%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% Planteamiento y discretización (f0=0.09)

clear all
L=10;
T=60;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=0*xint';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito y obtención de las derivadas (f0=0.09)

f0=0.09;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;

for j=1:length(t)-1
u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(3)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

%% Energía (f0=0.09)

e=Ux.^2+Ut.^2;
xaux=[xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end

t(401)=[ ];

%% Representación Energía-Tiempo (f0=0.09)

figure(4)
plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo f0=0.09')
%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% Planteamiento y discretización (f0=0.1)

clear all
L=10;
T=60;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=0*xint';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito y obtención de las derivadas (f0=0.1)

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(5)
surf(xx,tt,sol)
v=size(sol);

for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

%% Energía (f0=0.1)

e=Ux.^2+Ut.^2;
xaux=[xint];
laux=length(xaux);
otro=length(e(2,:));

for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end

t(401)=[ ];

%% Representación Energía-Tiempo (f0=0.1)

figure(6)
plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo f0=0.1')
}}
[[Archivo:CodigoVibrPerio1.jpg|border|Cable sujeto a una estructura sometida a vibraciones periódicas f0=0.11]]
[[Archivo:CodigoVibrPerio2.jpg|border|Cable sujeto a una estructura sometida a vibraciones periódicas f0=0.09]]
[[Archivo:CodigoVibrPerio3.jpg|border|Cable sujeto a una estructura sometida a vibraciones periódicas f0=0.1]]

Se observa que cuanto mayor es el valor de <math>F_{0}</math>, la energía alcanza un máximo más elevado. Esto es debido a que las vibraciones en el extremo derecho de la estructura dependen de una función senoidal que está en función de <math>F_{0}</math>. A medida que aumenta <math>F_{0}</math> crece el seno y, con ello, la derivada parcial en x. esto se traduce en un incremento de la energía.

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T23:22:45Z

María garcía Fernández: /* Cable sujeto a una estructura sometida a vibraciones periódicas */

{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.05;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);
sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)

%% Aproximación de u_t y u_x basándonos en el concepto de derivada

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end

%% Cálculo de la energía

e=Ux.^2+Ut.^2;
xaux=[0,xint];

for k=1:v(1)-2
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];

%% Representación gráfica de la energía a lo largo del tiempo

plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Energía a lo largo del tiempo')
}}

[[Archivo:CodigoENERGIA.jpg|border|Energía del cable a lo largo del tiempo)]]

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Damos a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

{{matlab|codigo=
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

[[Archivo:CodigoViscosoA0CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=0]]
[[Archivo:CodigoViscosoA1CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=1]]
[[Archivo:CodigoViscosoA4CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=4]]
[[Archivo:CodigoViscosoA10CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=10]]
[[Archivo:CodigoViscosoA100CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=100]]

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.
Para el caso de a=100, el método no es estable y da problemas. Sería necesario reducir aún más el paso temporal y espacial o utilizar otro método de mayor precisión.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Lo resolvemos numéricamente por diferencias finitas utilizando Euler.

{{matlab|codigo=
%% Cable sujeto a una estructura sometida a vibraciones periódicas

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,60]
% u(0,t)=0; u(10,t)=sin(2*pi*f0)
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0

%% Planteamiento y discretización (f0=0.11)

clear all
L=10;
T=60;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=0*xint';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito y obtención de las derivadas (f0=0.11)

f0=0.11;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

%% Energía (f0=0.11)

e=Ux.^2+Ut.^2;
xaux=[xint];
laux=length(xaux);
otro=length(e(2,:));

for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end

t(401)=[ ];

%% Representación Energía-Tiempo (f0=0.11)

figure(2)
plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo f0=0.11')

%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% Planteamiento y discretización (f0=0.09)

clear all
L=10;
T=60;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=0*xint';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito y obtención de las derivadas (f0=0.09)

f0=0.09;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;

for j=1:length(t)-1
u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(3)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

%% Energía (f0=0.09)

e=Ux.^2+Ut.^2;
xaux=[xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end

t(401)=[ ];

%% Representación Energía-Tiempo (f0=0.09)

figure(4)
plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo f0=0.09')
%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% Planteamiento y discretización (f0=0.1)

clear all
L=10;
T=60;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=0*xint';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito y obtención de las derivadas (f0=0.1)

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(5)
surf(xx,tt,sol)
v=size(sol);

for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

%% Energía (f0=0.1)

e=Ux.^2+Ut.^2;
xaux=[xint];
laux=length(xaux);
otro=length(e(2,:));

for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end

t(401)=[ ];

%% Representación Energía-Tiempo (f0=0.1)

figure(6)
plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo f0=0.1')
}}
[[Archivo:CodigoVibrPerio1.jpg|border|Cable sujeto a una estructura sometida a vibraciones periódicas f0=0.11]]
[[Archivo:CodigoVibrPerio2.jpg|border|Cable sujeto a una estructura sometida a vibraciones periódicas f0=0.09]]
[[Archivo:CodigoVibrPerio3.jpg|border|Cable sujeto a una estructura sometida a vibraciones periódicas f0=0.1]]

Se observa que cuanto mayor es el valor de <math>F_{0}</math>, la energía alcanza un máximo más elevado. Esto es debido a que las vibraciones en el extremo derecho de la estructura dependen de una función senoidal que está en función de <math>F_{0}</math>.

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T22:35:05Z

María garcía Fernández: /* Cable sujeto a una estructura sometida a vibraciones periódicas */

{{ Beta }}
{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.05;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);
sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)

%% Aproximación de u_t y u_x basándonos en el concepto de derivada

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end

%% Cálculo de la energía

e=Ux.^2+Ut.^2;
xaux=[0,xint];

for k=1:v(1)-2
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];

%% Representación gráfica de la energía a lo largo del tiempo

plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Energía a lo largo del tiempo')
}}

[[Archivo:CodigoENERGIA.jpg|border|Energía del cable a lo largo del tiempo)]]

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Damos a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

{{matlab|codigo=
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

[[Archivo:CodigoViscosoA0CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=0]]
[[Archivo:CodigoViscosoA1CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=1]]
[[Archivo:CodigoViscosoA4CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=4]]
[[Archivo:CodigoViscosoA10CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=10]]
[[Archivo:CodigoViscosoA100CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=100]]

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.
Para el caso de a=100, el método no es estable y da problemas. Sería necesario reducir aún más el paso temporal y espacial o utilizar otro método de mayor precisión.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Lo resolvemos numéricamente por diferencias finitas utilizando Euler.

{{matlab|codigo=
%Los tres juntos

clear all
L=10;
T=60;
h=0.1
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1)
k(N,N-1)=-2

k=(1/h^2)*k;

F=zeros(N-1,1)

u0=0*xint'
v0=0*xint'

%Euler

f0=0.11
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1

u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end
e=Ux.^2+Ut.^2;
xaux=[xint]
laux=length(xaux)
otro=length(e(2,:))
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ]
figure(2)
plot(t,E)

clear all
L=10;
T=60;
h=0.1
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1)
k(N,N-1)=-2

k=(1/h^2)*k;

F=zeros(N-1,1)

u0=0*xint'
v0=0*xint'

%Euler

f0=0.09
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1

u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(3)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end
e=Ux.^2+Ut.^2;
xaux=[xint]
laux=length(xaux)
otro=length(e(2,:))
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ]
figure(4)
plot(t,E)

clear all
L=10;
T=60;
h=0.1
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1)
k(N,N-1)=-2

k=(1/h^2)*k;

F=zeros(N-1,1)

u0=0*xint'
v0=0*xint'

%Euler

f0=0.1
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1

u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(5)
surf(xx,tt,sol)
v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end
e=Ux.^2+Ut.^2;
xaux=[xint]
laux=length(xaux)
otro=length(e(2,:))
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ]
figure(6)
plot(t,E)
}}

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T22:33:17Z

María garcía Fernández: /* Cable sujeto a una estructura sometida a vibraciones periódicas */

{{ Beta }}
{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.05;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);
sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)

%% Aproximación de u_t y u_x basándonos en el concepto de derivada

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end

%% Cálculo de la energía

e=Ux.^2+Ut.^2;
xaux=[0,xint];

for k=1:v(1)-2
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];

%% Representación gráfica de la energía a lo largo del tiempo

plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Energía a lo largo del tiempo')
}}

[[Archivo:CodigoENERGIA.jpg|border|Energía del cable a lo largo del tiempo)]]

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Damos a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

{{matlab|codigo=
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

[[Archivo:CodigoViscosoA0CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=0]]
[[Archivo:CodigoViscosoA1CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=1]]
[[Archivo:CodigoViscosoA4CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=4]]
[[Archivo:CodigoViscosoA10CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=10]]
[[Archivo:CodigoViscosoA100CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=100]]

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.
Para el caso de a=100, el método no es estable y da problemas. Sería necesario reducir aún más el paso temporal y espacial o utilizar otro método de mayor precisión.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

{{matlab|codigo=
%Los tres juntos

clear all
L=10;
T=60;
h=0.1
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1)
k(N,N-1)=-2

k=(1/h^2)*k;

F=zeros(N-1,1)

u0=0*xint'
v0=0*xint'

%Euler

f0=0.11
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1

u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end
e=Ux.^2+Ut.^2;
xaux=[xint]
laux=length(xaux)
otro=length(e(2,:))
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ]
figure(2)
plot(t,E)

clear all
L=10;
T=60;
h=0.1
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1)
k(N,N-1)=-2

k=(1/h^2)*k;

F=zeros(N-1,1)

u0=0*xint'
v0=0*xint'

%Euler

f0=0.09
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1

u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(3)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end
e=Ux.^2+Ut.^2;
xaux=[xint]
laux=length(xaux)
otro=length(e(2,:))
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ]
figure(4)
plot(t,E)

clear all
L=10;
T=60;
h=0.1
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1)
k(N,N-1)=-2

k=(1/h^2)*k;

F=zeros(N-1,1)

u0=0*xint'
v0=0*xint'

%Euler

f0=0.1
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1

u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(5)
surf(xx,tt,sol)
v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end
e=Ux.^2+Ut.^2;
xaux=[xint]
laux=length(xaux)
otro=length(e(2,:))
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ]
figure(6)
plot(t,E)
}}

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T22:32:17Z

María garcía Fernández: /* Cable sujeto a una estructura sometida a vibraciones periódicas */

{{ Beta }}
{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.05;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);
sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)

%% Aproximación de u_t y u_x basándonos en el concepto de derivada

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end

%% Cálculo de la energía

e=Ux.^2+Ut.^2;
xaux=[0,xint];

for k=1:v(1)-2
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];

%% Representación gráfica de la energía a lo largo del tiempo

plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Energía a lo largo del tiempo')
}}

[[Archivo:CodigoENERGIA.jpg|border|Energía del cable a lo largo del tiempo)]]

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Damos a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

{{matlab|codigo=
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

[[Archivo:CodigoViscosoA0CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=0]]
[[Archivo:CodigoViscosoA1CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=1]]
[[Archivo:CodigoViscosoA4CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=4]]
[[Archivo:CodigoViscosoA10CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=10]]
[[Archivo:CodigoViscosoA100CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=100]]

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.
Para el caso de a=100, el método no es estable y da problemas. Sería necesario reducir aún más el paso temporal y espacial o utilizar otro método de mayor precisión.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

{{matlab|codigo=
%Los tres juntos

clear all
L=10;
T=60;
h=0.1
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1)
k(N,N-1)=-2

k=(1/h^2)*k;

F=zeros(N-1,1)

u0=0*xint'
v0=0*xint'

%Euler

f0=0.11
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1

u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end
e=Ux.^2+Ut.^2;
xaux=[xint]
laux=length(xaux)
otro=length(e(2,:))
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ]
figure(2)
plot(t,E)

clear all
L=10;
T=60;
h=0.1
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1)
k(N,N-1)=-2

k=(1/h^2)*k;

F=zeros(N-1,1)

u0=0*xint'
v0=0*xint'

%Euler

f0=0.09
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1

u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(3)
surf(xx,tt,sol)

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)+sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)+sol(i,j))/h;
end
end
e=Ux.^2+Ut.^2;
xaux=[xint]
laux=length(xaux)
otro=length(e(2,:))
for k=1:v(1)-1
E(k)=-trapz(xaux,e(k,:));
end
t(401)=[ ]
figure(4)
plot(t,E)

clear all
L=10;
T=60;
h=0.1
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1)
k(N,N-1)=-2

k=(1/h^2)*k;

F=zeros(N-1,1)

u0=0*xint'
v0=0*xint'

%Euler

f0=0.1
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1

u=u+dt*v+[F;sin(2*pi*f0*j)];
v=v-dt*k*u+[F;sin(2*pi*f0*j)];
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(5)
surf(xx,tt,sol)
v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end
e=Ux.^2+Ut.^2;
xaux=[xint]
laux=length(xaux)
otro=length(e(2,:))
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ]
figure(6)
plot(t,E)
}}

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T22:28:21Z

María garcía Fernández: /* Energía del cable */

{{ Beta }}
{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.05;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);
sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)

%% Aproximación de u_t y u_x basándonos en el concepto de derivada

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end

%% Cálculo de la energía

e=Ux.^2+Ut.^2;
xaux=[0,xint];

for k=1:v(1)-2
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];

%% Representación gráfica de la energía a lo largo del tiempo

plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Energía a lo largo del tiempo')
}}

[[Archivo:CodigoENERGIA.jpg|border|Energía del cable a lo largo del tiempo)]]

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Damos a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

{{matlab|codigo=
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

[[Archivo:CodigoViscosoA0CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=0]]
[[Archivo:CodigoViscosoA1CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=1]]
[[Archivo:CodigoViscosoA4CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=4]]
[[Archivo:CodigoViscosoA10CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=10]]
[[Archivo:CodigoViscosoA100CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=100]]

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.
Para el caso de a=100, el método no es estable y da problemas. Sería necesario reducir aún más el paso temporal y espacial o utilizar otro método de mayor precisión.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T22:18:14Z

María garcía Fernández: /* Cable sumergido en el mar (medio viscoso) */

{{ Beta }}
{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=Aquí hay que subir CodigoEnergia.m
}}

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Damos a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

{{matlab|codigo=
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

[[Archivo:CodigoViscosoA0CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=0]]
[[Archivo:CodigoViscosoA1CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=1]]
[[Archivo:CodigoViscosoA4CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=4]]
[[Archivo:CodigoViscosoA10CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=10]]
[[Archivo:CodigoViscosoA100CORREGIDO.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=100]]

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.
Para el caso de a=100, el método no es estable y da problemas. Sería necesario reducir aún más el paso temporal y espacial o utilizar otro método de mayor precisión.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T22:07:20Z

María garcía Fernández: /* Cable sumergido en el mar (medio viscoso) */

{{ Beta }}
{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=Aquí hay que subir CodigoEnergia.m
}}

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Damos a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

[[Archivo:CodigoViscosoA0.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=0]]
[[Archivo:CodigoViscosoA1.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=1]]
[[Archivo:CodigoViscosoA4.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=4]]
[[Archivo:CodigoViscosoA10.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=10]]
[[Archivo:CodigoViscosoA100.jpg|border|Cable sumergido en un medio viscoso (p.ej el mar)con a=100]]

{{matlab|codigo=
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)-sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T22:01:17Z

María garcía Fernández: /* Cable sumergido en el mar (medio viscoso) */

{{ Beta }}
{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=Aquí hay que subir CodigoEnergia.m
}}

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Damos a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

{{matlab|codigo=
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)+sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)+sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T21:59:42Z

María garcía Fernández: /* Cable sumergido en el mar (medio viscoso) */

{{ Beta }}
{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=Aquí hay que subir CodigoEnergia.m
}}

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Damos a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)+sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)+sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T21:59:10Z

María garcía Fernández: /* Cable sumergido en el mar (medio viscoso) */

{{ Beta }}
{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=Aquí hay que subir CodigoEnergia.m
}}

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Vamos a dar a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)+sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)+sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]

Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)

2014-05-19T21:58:33Z

María garcía Fernández: /* Energía del cable */

{{ Beta }}
{{ TrabajoED | Ecuación de ondas en el cable de una estructura civil (Grupo 9-B)| [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]]|

María García Fernández

José Manuel Corbí Garrido

Estefanía Jiménez Ocampo

Diego García Vaquero

José Francisco Aguilera Corral}}

=Introducción y modelización del problema=

En este artículo analizaremos el comportamiento de un cable tenso de 10 metros de longitud en una estructura civil. El cable se encontrará sujeto por los extremos y será sometido a pequeñas vibraciones. Para estudiar el problema haremos ciertas hipótesis que simplificarán el problema, y que en muchos casos dan una buena aproximación del comportamiento real que tendría un cable como el que aquí estudiamos.

En cuanto a las '''características mecánicas del cable''' haremos las siguientes '''hipótesis''':

* El cable tendrá una sección despreciable frente a su longitud.
* Será un cable homogéneo, es decir, la masa por unidad de volumen será constante.
* Dicho cable también será perfectamente flexible, es decir, solo ofrecerá resistencia a esfuerzos tangenciales (en su dirección longitudinal), siendo por ello nula su resistencia frente a esfuerzos de flexión y corte.
* El cable al someterlo a tracción trata de ser inextensible, es decir, que intenta ser lo suficientemente rígido (en dirección longitudinal) como para poder despreciar su extensibilidad, por el contrario al someterlo a compresión no ofrece resistencia y se arruga.

Por otra parte el cable será sometido a '''pequeñas vibraciones''', las cuales podemos modelizar mediante la '''ecuación de ondas''' <math>u_{tt}-u_{xx}=0</math>. Estas vibraciones, al ser pequeñas, son despreciables frente a su longitud total; preocupándonos únicamente por los desplazamientos verticales (fruto de la tracción) que sufre el cable. Estos desplazamientos verticales serán modelizados mediante la función <math>u(x,t)</math>, dependiente de dos variables; la <math>x</math> que indica la distancia al extremo de la cuerda tomado como referencia, y la <math>t</math> que define el tiempo.

Las condiciones de frontera en este caso nos indican que el cable no sufrirá desplazamiento vertical en sus extremos <math>u(0,t)=0; u(10,t)=0</math>. Por otra parte las condiciones iniciales <math>u(x,0)=0; u_{t}(x,0)=0</math> se traducen en que inicialmente el desplazamiento vertical y la velocidad del cable en todos sus puntos es cero.

El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

En los sucesivos apartados estudiaremos el comportamiento del cable en diferentes situaciones, que se traducirán en diferentes condiciones para el problema (cambios en las condiciones y en la ecuación de ondas con la que modelizamos las pequeñas vibraciones).

=Desplazamiento vertical del cable=
Sujetando el cable desde el centro y desplazándolo dos metros en la dirección perpendicular, estudiaremos el comportamiento del cable una vez lo soltemos. Estará sometido a unas pequeñas vibraciones, que originarán desplazamientos verticales a lo largo del cable que aproximaremos mediante la función <math>u(x,t)</math>. Teniendo en cuenta el desplazamiento vertical de dos metros y que el cable es soltado con una velocidad nula, el problema que vamos a estudiar es el siguiente:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u(10,t)=0\\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

A continuación estudiaremos el desplazamiento vertical al que se ve cada punto del cable expuesto y para cada instante de tiempo. Para ello aproximaremos la ecuación diferencial que modeliza el comportamiento de dicho cable mediante los métodos de diferencias finitas y mediante series de Fourier, obteniendo gráficas que reflejan la posición de cada punto del cable en cada instante.
==Aproximación mediante diferencias finitas==
Dentro del método de diferencias finitas se nos plantea un sistema de ecuaciones diferenciales, que resolveremos aplicando diferentes métodos de los cuales luego compararemos su precisión a la hora de aproximar el comportamiento del cable y su estabilidad.

El primer método que utilizaremos para resolver el nuestro problema de ondas será el '''método del trapecio''', el cual es '''incondicionalmente estable'''. Para implementar este método y observar el comportamiento del cable en una gráfica usaremos el siguiente código en matlab:
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')
}}

Obteniendo la gráfica:

[[Archivo:ImagenCodigo1GRP9.jpeg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método del trapecio]]

Usaremos también el '''método de Euler''', el cual es un método '''explícito''' y por tanto dependemos de la ecuación para que pueda ser o no factible de ejecutar. El siguiente código matlab nos permite ejecutarlo:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler explícito

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler explícito

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v+F;
v=v-dt*k*u+F;
sol(j+1,:)=[0 , u' , 0];
end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')
}}

Obteniendo el siguiente gráfico del comportamiento del cable respecto al tiempo:

[[Archivo:ImagenCodigo2GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler explícito]]

El último método que empleamos para resolver el problema planteado mediante diferencias finitas es el '''método de Euler modificado''', el cual tiene más precisión que el método de Euler explícito. El código que se muestra a continuación ejecuta dicho método y nos proporciona una gráfica del cable:

{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método de Euler modificado

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler modificado

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
for n=1:length(t)-1
l=k*u;
% calculamos k1=f(t_n,y_n)
k1=[ v l]';
% Calculamos k2=f(t_n+h/2,y_n+1/2k1*h)
%xp=x(n)+dt; %argumento de tiempo
%solp=sol+dt*k1; %argumento y
k2=[v l]';
%Calculamos k3=f(t_n+h/2,y_n+1/2k2*h)
%mismo argumento tiempo que antes

u=u+dt/2*(k1(1,:)'+k2(1,:)')+F;
l=+k*u;
k1=[v l]';
k2=[v l]';
v=v-dt/2*(k1(2,:)'+k2(2,:)')+F;
% v=v-dt/2*(k*u+k*u)+F;
sol(n+1,:)=[0 , u' , 0];

end

%% Representación gráfica

[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler modificado')
}}
La gráfica que se obtiene es:

[[Archivo:ImagenCodigo3GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante diferencias finitas con el método de Euler modificado]]

==Aproximación mediante el método de Fourier==
===Con un término de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con un término

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con un término (Q=1)

Q=1;
for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end
[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con un término')

}}
[[Archivo:ImagenCodigo4GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con un término]]

===Con tres términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con tres términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con tres términos (Q=3)

Q=3;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x,p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con tres términos')
}}
[[Archivo:ImagenCodigo5GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con tres términos]]

===Con cinco términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con cinco términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con cinco términos (Q=5)

Q=5;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con cinco términos')
}}
[[Archivo:ImagenCodigo6GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con cinco términos]]

===Con diez términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con diez términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=10)

Q=10;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);
end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con diez términos')
}}
[[Archivo:ImagenCodigo7GRP9.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con diez términos]]

===Con veinte términos de la serie===
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante Fourier con veinte términos

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
dt=0.1;
M=T/dt;
x=0:h:10;
posicion=(2-abs(2-x*2/5));
velocidad=0*x;
t=0:dt:T;

%% Aproximación de u mediante Fourier con diez términos (Q=20)

Q=20;

for k=1:Q
p=sin(k*pi/10*x) ;
fourier1(k)=trapz(x,posicion.*p)/trapz(x, p.*p);

end

[XX,TT]=meshgrid(x,t);
U=0;

for k=1:Q
U=U+(fourier1(k)*cos(k*pi/10*TT)).*sin(k*pi/10*XX);
end

%% Representación gráfica

surf(XX,TT,U)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante Fourier con veinte términos')
}}
[[Archivo:ImagenCodigo8.jpg|border|Ecuación de ondas para el cable de una estructura civil. Aproximación mediante Fourier con veinte términos]]

==Comparativa de diferencias finitas y Fourier. Interpretación de las gráficas anteriores==

Todas las gráficas obtenidas mediante diferencias finitas (con sus distintos métodos) y Fourier representan la aproximación numérica de la solución del problema planteado, es decir, el desplazamiento vertical de todos los puntos de nuestro cable a lo largo del tiempo.

Considerando los órdenes de precisión de cada uno de los métodos empleados en los programas de diferencias finitas, para aproximar la solución de nuestro problema (la función <math>u(x,t)</math> que representa el desplazamiento vertical): Podemos concluir que el método del trapecio (orden 2) es el más preciso, seguido del método de Euler modificado y por último del método de Euler explícito (orden 1).

En cuanto a la resolución del problema mediante Fourier, podemos observar que a medida que aumentamos el número de términos de la serie de Fourier, la forma de la solución pasa de ser más redondeada a más recta, pareciéndose cada vez más a la solución obtenida por el método de las diferencias finitas. El aumento del número de términos considerados en Fourier hace el método más estable.

=Energía del cable=

La energía mecánica del cable viene definida por la siguiente función:: <math> E(t) = \int_{0}^{L} (u_{t}^{2}(x,t)+ u_{x}^{2}(x,t)) \cdot dx </math>
Mediante el programa que se muestra a continuación procederemos a dibujar la gráfica de la función <math>E(t)</math>, que cuantifica la energía del cable. Previamente, y recurriendo al concepto de derivada, aproximaremos los valores que toman <math>u_{t}</math> y <math>u_{x}</math>, para así después poder calcular la integral que define <math>E(t)</math>.
{{matlab|codigo=Aquí hay que subir CodigoEnergia.m
}}

Se observa que el valor de la energía total del cable, para un paso del tiempo de 0.05 segundos, oscila aproximadamente entre 1.560 y 1.590. Este rango se reduce si elegimos un paso más pequeño para el tiempo y el espacio. Por tanto, aunque la aproximación no es perfecta, sí podemos confirmar que la energía mecánica del sistema se conserva.

=Ejemplos de aplicación de cables en estructuras civiles=
==Cable sumergido en el mar (medio viscoso)==
En este caso el cable está sumergido en un medio viscoso que produce amortiguamiento.
El problema que se nos plantea es el siguiente:
<math>
\begin{cases}
u_{tt}-u_{xx}+au_{t}=0; x∈[0,10]; t∈[0,40] \\
u(0,t)=0; u(10,t)=0\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
%% Cable sumergido en un medio viscoso (p.ej el mar)con a=0
% Cambiando el valor de a definido más adelante obtenemos todas las gráficas
%% Enunciado del problema

% u_{tt}-u_{xx}+a*u_{t}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=0
% u(x,0)=0; u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);

k=(1/h^2)*k;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

sol(1,:)=[ 0 , u0' , 0];
u=u0;
v=v0;
a=0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u-dt*a*v;
sol(j+1,:)=[0 , u' , 0];
end

%% Gráficas

[xx,tt]=meshgrid(x,t);

figure

surf(xx,tt,sol);
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método de Euler explícito')

figure

ffff=sol(1,:);
plot(x,ffff);
xlabel('Cable')
ylabel('Desplazamiento inicial del cable')
title('Desplazamiento inicial de los puntos del cable')

v=size(sol);
for i=1:v(1)-1
for j=1:v(2)-1
Ux(i,j)=(sol(i+1,j)+sol(i,j))/h;
Ut(i,j)=(sol(i,j+1)+sol(i,j))/h;
end
end

e=Ux.^2+Ut.^2;
xaux=[0,xint];
laux=length(xaux);
otro=length(e(2,:));
for k=1:v(1)-1
E(k)=trapz(xaux,e(k,:));
end
t(401)=[ ];
lE=length(E);
lt=length(t);

figure

plot(t,E)
xlabel('Tiempo')
ylabel('Energía')
title ('Energía con a=0')
}}
Vamos a estudiar lo que ocurre con la energía en estas condiciones, dependiendo del parámetro <math>a</math>. Vamos a dar a <math>a</math> los valores de 0, 1 ,4, 10 y 100. Para ello utilizamos el método numérico de las diferencias finitas empleando Euler con un paso muy pequeño.
En el caso de que a valga cero estamos ante el mismo caso que si no estuviese sumergido.

Observamos que, al sumergir el cable en un medio viscoso, el desplazamiento vertical de las ondas es cada vez más pequeño. Esto se debe a que la energía disminuye con el tiempo. Además, al aumentar el valor de <math>a</math>, la energía se disipa más rápidamente. Como el medio es más viscoso, la oposición al desplazamiento vertical del cable es mayor.

==Cable sujeto a una estructura sometida a vibraciones periódicas==
Ahora nos preguntamos qué ocurriría si el extremo derecho del cable está sujeto a una estructura que sufre vibraciones periódicas. La frecuencia de estas vibraciones es de <math>F_{0}</math> Herzios. Tomamos por ejemplo <math>f(t) = sin(2 \pi F_{0})</math>. Vamos a calcular el comportamiento de la energía cuando el cable parte inicialmente del reposo y tomamos un tiempo t. Repetiremos el proceso con distintos valores de <math>F_{0}</math> para observar si se produce alguna diferencia.

Tomamos <math>F_{0}</math> igual a 1/L+0,01 Hz, 1/L-0,01 Hz y 1/L Hz.

El problema nos quedaría planteado de la siguiente manera:

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,60]\\
u(0,t)=0; u_{x}(10,t)=sin(2 \pi F_{0})\\
u(x,0)=0; u_{t}(x,0)=0\\
\end{cases}
</math>

==Cable sujeto a un aparato que envía una respuesta a las vibraciones==
En este apartado vamos a calcular el comportamiento de la energía para el valor b suponiendo ahora que el extremo derecho del cable está sujeto a un aparato que envía una respuesta a la vibración que recibe de manera que la condición de contorno ahora es <math>u_{x}(L,t)=bu(L,t)</math>. Tomamos como condición inicial <math>u(x,0)=2-|2-\frac{2}{5}x|</math> y observando en qué cambia la energía en función de distintos valores de b. estudiamos dos casos concretos: b=-2 y b=2.

<math>
\begin{cases}
u_{tt}-u_{xx}=0; x∈[0,10]; t∈[0,40]\\
u(0,t)=0; u_{x}(10,t)=b u(10,0) \\
u(x,0)=2-|2-\frac{2}{5}x|; u(5,0)=2\\
u_{t}(x,0)=0\\
\end{cases}
</math>

Resolvemos este problema por diferencias finitas utilizando el método de Euler, con un paso pequeño para que la aproximación sea más exacta.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=2')
}}
[[Archivo:Codigo43b2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=2)
]]

No podemos apreciar para valores de b positivos (como el estudiado, b=2) cambios importantes en la energía. Esta no aumenta ni disminuye de manera significativa.

{{matlab|codigo=%% Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x[0,10]; t[0,40];
% u(0,t)=0; u(10,t)=bu(10,0)
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
b=-2;
L=10;
T=40;
h=0.01;
N=L/h;
x=0:h:L;
xint=h:h:L;

dt=h/2;
t=0:dt:T;

k=2*diag(ones(1,N))-diag(ones(1,N-1),1)-diag(ones(1,N-1),-1);
k(N,N-1)=-2;
k(N,N)=2+b*(2*h);

k=(1/h^2)*k;

F=zeros(N,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

%% Aproximación de u mediante el método de Euler y obtención de las derivadas

f0=0.1;
sol(1,:)=[ 0 , u0'];
u=u0;
v=v0;
for j=1:length(t)-1
u=u+dt*v;
v=v-dt*k*u;
sol(j+1,:)=[0 , u' ];
end

[xx,tt]=meshgrid(x,t);
figure(1)
surf(xx,tt,sol)

v=size(sol);
for i=2:v(1)-1
for j=2:v(2)-1
Ux(i,j)=(sol(i+1,j)-sol(i-1,j))/(2*h);
Ut(i,j)=(sol(i,j+1)-sol(i,j-1))/(2*h);
end
end
e=Ux.^2+Ut.^2;
xaux=[0,xint];

%% Energía

for k=1:v(1)-2
E(k)=trapz(xaux(2:end),e(k,:));
end
t(401)=[ ];
plot(t(2:end-1),E(2:end))
xlabel('Tiempo')
ylabel('Energía')
title('Gráfica energía-tiempo para b=-2')
}}
[[Archivo:Codigo43bmenos2.jpg|border|Cable sujeto a un aparato que envía una respuesta a las vibraciones (b=-2)
]]

Se observa que cuanto mayor es la tensión del cable, mayor es el desplazamiento vertical. Se está otorgando energía al sistema. De está forma, para valores de b negativos (por ejemplo b=-2), la energía crece de manera exponencial y tiende a infinito. Se produce un efecto de resonancia, incrementándose la energía.

=Visualización del movimiento del cable=
Si el siguiente código basado en el método de diferencias finitas (mediante el método del trapecio) analizado anteriormente (en el apartado 2) se ejecuta en MATLAB (Octave no admite animaciones), se puede apreciar en la primera imagen que proporciona el programa la solución al problema enunciado en el apartado 2. Lo siguiente en salir por pantalla es una animación de la solución obtenida a lo largo del tiempo, de forma que cuando se agota el intervalo de tiempo en el que estudiamos el problema, queda la misma imagen que la primera que nos proporciona este programa; con este programa vemos como la onda va "viajando". La tercera imagen en salir por pantalla es la representación del desplazamiento vertical que sufre el cable a lo largo del tiempo, es decir, la vibración de todos los puntos de nuestro cable.
{{matlab|codigo=%% Aproximación del desplazamiento vertical del cable (u) mediante diferencias finitas con el método del trapecio

%% Enunciado del problema

% u_{tt}-u_{xx}=0; x?[0,10]; t>0
% u(0,t)=0; u(10,t)=0
% u(x,0)=2-abs(2-\frac{2}{5}x); u(5,0)=2\\ u_{t}(x,0)=0\\

%% Planteamiento y discretización

clear all
L=10;
T=40;
h=0.1;
N=L/h;
x=0:h:L;
xint=h:h:L-h;

dt=h;
t=0:dt:T;

k=2*diag(ones(1,N-1))-diag(ones(1,N-2),1)-diag(ones(1,N-2),-1);
k=(1/h^2)*k;;

F=zeros(N-1,1);

u0=(2-abs(2-xint*2/5))';
v0=0*xint';

M=[zeros(N-1) eye(N-1); -k zeros(N-1) ];
G=[zeros(N-1,1); F];

%% Aproximación de u mediante el método del trapecio

w0=[u0 ; v0];
ww=w0;
sol(1,:)=[ 0 , w0(1:N-1)' , 0];

for j=1:length(t)-1
ww=(eye(2*N-2)-dt/2*M)\((eye(2*N-2)+dt/2*M)*ww+dt*G);

sol(j+1,:)=[0 , ww(1:N-1)' , 0];
end

%% Representación gráfica

figure
[xx,tt]=meshgrid(x,t);
surf(xx,tt,sol)
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
title('u aproximado mediante diferencias finitas con el método del trapecio')

%% Animación.

% Muestra el desplazamiento vertical de cada punto del cable en cada instante

figure
[n,m]=size(sol);
aux=zeros(size(sol));
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
surf(xx,tt,aux); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Tiempo')
zlabel('Desplazamiento vertical')
zlim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;

figure
for j=1:n
% Se va analizando el desplazamiento vertical en cada instante (j) de
% todos los puntos (i) del cable
for i=1:m
aux(j,i)=sol(j,i);
end
plot(x,aux(j,:)); % Es la representación de todos los puntos (i) del cable en un instante dado
xlabel('Cable')
ylabel('Desplazamiento vertical')
ylim([-2 2])
MFRAMES=getframe; % Guarda una foto del cable en cada instante
end
movie=MFRAMES;
}}
[[Categoría:Ecuaciones Diferenciales]]
[[Categoría:ED13/14]]
[[Categoría:Trabajos 2013-14]]