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

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=13060</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=13060"/>
				<updated>2014-05-19T20:20:38Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Ecuación de viga apoyada en ambos extremos==&lt;br /&gt;
&lt;br /&gt;
El trabajo a realizar consiste en el estudio de la deflexión de una viga apoyada en ambos extremos, de sección trasversal S, sometida al momento de unas fuerzas (Fi) aplicadas sobre esta. Entendemos  como momento flector al producto de la fuerza por la distancia que hay entre la fuerza y el punto a estudiar. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:FLEXION.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección constante sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
Suponemos que el eje de la viga va en la dirección del eje X, ocupando un intervalo [0,L] de forma que estudiaremos la deflexión de ésta en su eje perpendicular, eje Y.&lt;br /&gt;
&lt;br /&gt;
Para estudiar dicha situación, la representamos por un problema de contorno que solucionamos mediante el método de diferencias finitas expuesto a continuación.&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Cabe destacar que las condiciones de frontera son nulas debido a que la viga, como nos requiere el enunciado, está apoyada en sus extremos.&lt;br /&gt;
&lt;br /&gt;
Como datos tenemos:&lt;br /&gt;
&lt;br /&gt;
*El módulo de elasticidad (módulo de Young) que depende de las propiedades elásticas del material, y que en nuestro caso permanece constante&lt;br /&gt;
&lt;br /&gt;
*Conocemos como I(x) el momento de inercia de la sección transversal S respecto al centro (cuadrado de lado a=0.5 metros).&lt;br /&gt;
&lt;br /&gt;
*Finalmente disponemos del momento flector definido antes, M(x).&lt;br /&gt;
&lt;br /&gt;
*Longitud de la viga (L=10 metros):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano (x=5 m)  y de valor absoluto 0.16013 en sentido negativo del eje.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de viga dependiendo del valor del canto===&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales de la sección trasversal de la viga de forma que el canto (a) toma valores del intervalo [0.1,0.9]. A su vez, el ancho de la viga también cambia de forma que b=1-a. &lt;br /&gt;
&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes secciones de la viga, tomando como condición que el volumen se mantenga constante, con la finalidad de determinar en cuál de ellos se sufre la menor deflexión y, a su vez, la flecha máxima de la mayor deflexión&lt;br /&gt;
 &lt;br /&gt;
Numéricamente, el código que exponemos a continuación nos resuelve este apartado:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
Finalmente tenemos como resultado gráfico la deflexión con cada medida de canto del intervalo.También obtenemos las flechas máximas para cada valor de a.&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
:[[Archivo:Apartado2flecha.jpg|thumb|center|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973.&lt;br /&gt;
 &lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 con un valor de flecha de 1.112. Físicamente este fenómeno se explica debido a que a mayor canto de la viga menor deformación. Así, obligamos a que el canto de la sección trasversal de la viga sea lo más grande posible dentro del intervalo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x de forma que: &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores tenemos en cuenta que la condición que se nos impone es que el volumen total de la viga tiene que ser constante y de valor igual al de la viga de sección cuadrada de lado a=0.5 metros. &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
Necesitamos encontrar la relación entre los parámetros c y d siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} ± \sqrt{a^2-\frac{c^2*L^4}{180}} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Como resultado obtenemos que c=-0.0161 y d=0.54028 son los valores correspondientes a la viga con menor deflexión. &lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son (((((c=     y d=    )))) (Gráfica de viga con mayor reflexión).&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
&lt;br /&gt;
A continuación se presenta la situación de una viga encastrada en ambos extremos de ésta con la misma sección trasversal que en el problema inicial  (sección cuadrada de lado a=b=0.5 metros). En este caso abordamos el problema con cuatro condiciones de frontera ya que la ecuación de la viga que se nos proporciona es de orden 4.&lt;br /&gt;
&lt;br /&gt;
Respecto al problema inicial encontramos varias diferencias:&lt;br /&gt;
&lt;br /&gt;
-	La viga en cuestión deja de estar apoyada en ambos extremos y pasa a estar encastrada en ellos.&lt;br /&gt;
 &lt;br /&gt;
-	La función deja de depender del momento flector y dependerá de la carga aplicada sobre ésta (W(x)).&lt;br /&gt;
 &lt;br /&gt;
Conservando los valores numéricos dados en el apartado 1 y siendo &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt; (dato) definimos el problema de contorno:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Buscamos plantear el método de diferencias finitas para aproximar las soluciones del problema anterior. Para obtenerlo usamos las siguientes aproximaciones:&lt;br /&gt;
  &lt;br /&gt;
:&amp;lt;math&amp;gt; y''''(x_j)=\frac{y(x_j-2)-4y(x_j-1)+6y(x_j)-4y(x_j+1)+y(x_j+2)}{h^4}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_0)=\frac{y(x_1)-y(x_-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_N)=\frac{y(x_N+1)-y(x_N-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;br /&gt;
&lt;br /&gt;
Al desarrollar el código numérico, calculamos el valor de mayor deflexión siendo este en valor absoluto 0.38064 y el punto en el que se alcanza es L/2=5.&lt;br /&gt;
[[Archivo:Apartado5vigacarga.jpg|thumb|left|400px|Gráfica con la carga y la deflexión.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga apoyada en sus extremos dependiendo del tiempo. Problema dinámico.==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el problema dinámico. En este caso la deflexión de la viga depende también del tiempo  y(x,t) quedando la ecuación:  &lt;br /&gt;
                                                        &lt;br /&gt;
:&amp;lt;math&amp;gt;ρy_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;quot;p&amp;quot; la densidad de la viga que mantendremos constante y de valor la unidad. De esta forma nuestra ecuación final será:&lt;br /&gt;
                                                       &lt;br /&gt;
:&amp;lt;math&amp;gt; y_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al tratarse de un problema dependiente de 2 variables necesitamos dos condiciones iniciales &amp;lt;math&amp;gt; y(x,0)=y_0(x) \ ; \ y_t(x,0)=y_(x)  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma planteamos el sistema de ecuaciones completo y su aproximación de diferencias finitas considerando el método del trapecio para resolver el problema en tiempo. &lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\ ky + b(t)\ , &amp;amp; \\ y(0)=y_0 \ , \\ y'(0)=z_0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
Tras realizar las derivaciones respecto al tiempo y respecto a x y despejando los valores conocidos nuestro sistema queda definido por: &lt;br /&gt;
&lt;br /&gt;
:&amp;lt;math&amp;gt; vec{y''}=k*vec{y} +vec{b(1)} &amp;lt;/math&amp;gt;&lt;br /&gt;
donde si tenemos en cuenta las condiciones iniciales resultaria:&lt;br /&gt;
\[\left\{\begin{matrix}\vec{y''}=k*\vec{y} +\vec{b(1)} \ , &amp;amp; \\\vec{y(0)}=\vec{y_0}  \ , \\ \vec{y'(0)}=\vec{z_0}\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
Realizando el cambio de variable:&lt;br /&gt;
:&amp;lt;math&amp;gt; \vec{y'}=\vec{z} &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; \vec{z'}=k*\vec{y} +\vec{b} &amp;lt;/math&amp;gt;&lt;br /&gt;
Nuestro sistema final sobre el cual aplicaremos el método del trapecio es:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix} \vec{W'}= K*\vec{W} + \vec{B}  \ , &amp;amp; \\ \vec{W(0)}=\vec{W_0} \  &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
El código que a continuación mostramos nos permite calcular el sistema anteriomente mostrado siendo: &lt;br /&gt;
&lt;br /&gt;
:&amp;lt;math&amp;gt; y(0,t)=sin(\frac{8pix}{L}) &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y_t(0,t)=0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además nos permitirá obtener el comportamiento de y(x,t) en el punto x=0.5 en un intervalo de t [0,5]:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% (ro)ytt+EIyxxxx=-w(x)&lt;br /&gt;
%%% ytt+(EI/ro)yxxxx=-w(x)/ro=f(x)&lt;br /&gt;
%%% y(0,t)=y'(0,t)=y(L,t)=y'(L,t)=0&lt;br /&gt;
%%% y(x,0)=(1/3)*sin(8*pi*x/L); yt(x,0)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
ro=1;               % densidad&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=100;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% condiciones iniciales&lt;br /&gt;
y0=((1/3)*sin(8*pi*xi/L))';      % y(x,0) // column vector&lt;br /&gt;
z0=zeros(1,length(xi))';        % yt(x,0) // column vector&lt;br /&gt;
W0=[y0;z0];&lt;br /&gt;
&lt;br /&gt;
% f(x)=-w(x)/ro&lt;br /&gt;
w=1*(L/2-abs(xi-L/2));&lt;br /&gt;
f=-(w/ro)';         % vector columna&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=-(E*I/ro)*(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
% matriz Q=[O,I;K,O]&lt;br /&gt;
I=eye(N-1);O=zeros(N-1);&lt;br /&gt;
Q=[O,I;K,O];&lt;br /&gt;
&lt;br /&gt;
% partición temporal&lt;br /&gt;
tM=5;M=100;dt=tM/M;t=0:dt:tM;&lt;br /&gt;
&lt;br /&gt;
% theta=0(Euler),0.5(Crank-Nicholson),1(Euler implícito)&lt;br /&gt;
theta=1/2;  % Crank-Nicholson&lt;br /&gt;
&lt;br /&gt;
% matriz P=inv(L)*R&lt;br /&gt;
I2=eye(2*(N-1)); &lt;br /&gt;
L=I2-dt*theta*Q;&lt;br /&gt;
R=I2+dt*(1-theta)*Q;&lt;br /&gt;
% P=L\R;&lt;br /&gt;
&lt;br /&gt;
% término B&lt;br /&gt;
B=[zeros(length(f),1);f];&lt;br /&gt;
% B=[zeros(length(f),1);zeros(length(f),1)];&lt;br /&gt;
&lt;br /&gt;
% programa&lt;br /&gt;
W=zeros(2*(N-1),M+1);   &lt;br /&gt;
W(:,1)=W0;&lt;br /&gt;
&lt;br /&gt;
for n=1:M&lt;br /&gt;
    W(:,n+1)=L\(R*W(:,n)+dt*B);  &lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
Y=W(1:N-1,1:M+1);&lt;br /&gt;
Y0=zeros(1,M+1);&lt;br /&gt;
YN=zeros(1,M+1);&lt;br /&gt;
Y=[Y0;Y;YN];           &lt;br /&gt;
&lt;br /&gt;
figure(100)     % gráfico y(x,t)&lt;br /&gt;
[X,T]=meshgrid(x,t);&lt;br /&gt;
figure(100)&lt;br /&gt;
surf(X,T,Y') &lt;br /&gt;
&lt;br /&gt;
figure(200)     % curva y(0.5,t)&lt;br /&gt;
xc=0.5;&lt;br /&gt;
plot(t,Y(round(xc/dx+1),:))}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Obteniendo las siguientes gráficas:&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Solucion1.png|thumb|left|400px|Aproximación de y(x,t) con las condiciones iniciales anteriormente mostradas en el intervalo [0,5].]]&lt;br /&gt;
:[[Archivo:Apartado78.jpg|thumb|center|400px|Comportamiento de y(x,t) en el punto x=0.5 en un intervalo de tiempo [0,5].]]&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
 [[Categoría:ED13/14]]&lt;br /&gt;
 [[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11948</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11948"/>
				<updated>2014-05-18T07:56:44Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Ecuación de viga apoyada en ambos extremos==&lt;br /&gt;
&lt;br /&gt;
El trabajo a realizar consiste en el estudio de la deflexión de una viga apoyada en ambos extremos, de sección trasversal S, sometida al momento de unas fuerzas (Fi) aplicadas sobre esta. Entendemos  como momento flector al producto de la fuerza por la distancia que hay entre la fuerza y el punto a estudiar. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:FLEXION.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección constante sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
Suponemos que el eje de la viga va en la dirección del eje X, ocupando un intervalo [0,L] de forma que estudiaremos la deflexión de ésta en su eje perpendicular, eje Y.&lt;br /&gt;
&lt;br /&gt;
Para estudiar dicha situación, la representamos por un problema de contorno que solucionamos mediante el método de diferencias finitas expuesto a continuación.&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Cabe destacar que las condiciones de frontera son nulas debido a que la viga, como nos requiere el enunciado, está apoyada en sus extremos.&lt;br /&gt;
&lt;br /&gt;
Como datos tenemos:&lt;br /&gt;
&lt;br /&gt;
*El módulo de elasticidad (módulo de Young) que depende de las propiedades elásticas del material, y que en nuestro caso permanece constante&lt;br /&gt;
&lt;br /&gt;
*Conocemos como I(x) el momento de inercia de la sección transversal S respecto al centro (cuadrado de lado a=0.5 metros).&lt;br /&gt;
&lt;br /&gt;
*Finalmente disponemos del momento flector definido antes, M(x).&lt;br /&gt;
&lt;br /&gt;
*Longitud de la viga (L=10 metros):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano (x=5 m)  y de valor absoluto 0.16013 en sentido negativo del eje.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de viga dependiendo del valor del canto===&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales de la sección trasversal de la viga de forma que el canto (a) toma valores del intervalo [0.1,0.9]. A su vez, el ancho de la viga también cambia de forma que b=1-a. &lt;br /&gt;
&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes secciones de la viga, tomando como condición que el volumen se mantenga constante, con la finalidad de determinar en cuál de ellos se sufre la menor deflexión y, a su vez, la flecha máxima de la mayor deflexión&lt;br /&gt;
 &lt;br /&gt;
Numéricamente, el código que exponemos a continuación nos resuelve este apartado:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
Finalmente tenemos como resultado gráfico la deflexión con cada medida de canto del intervalo.También obtenemos las flechas máximas para cada valor de a.&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
:[[Archivo:Apartado2flecha.jpg|thumb|right|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973.&lt;br /&gt;
 &lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 con un valor de flecha de 1.112. Físicamente este fenómeno se explica debido a que a mayor canto de la viga menor deformación. Así, obligamos a que el canto de la sección trasversal de la viga sea lo más grande posible dentro del intervalo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x de forma que: &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores tenemos en cuenta que la condición que se nos impone es que el volumen total de la viga tiene que ser constante y de valor igual al de la viga de sección cuadrada de lado a=0.5 metros. &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
Necesitamos encontrar la relación entre los parámetros c y d siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Como resultado obtenemos que c=-0.0161 y d=0.54028 son los valores correspondientes a la viga con menor deflexión. &lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son (((((c=     y d=    )))) (Gráfica de viga con mayor reflexión).&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
&lt;br /&gt;
A continuación se presenta la situación de una viga encastrada en ambos extremos de ésta con la misma sección trasversal que en el problema inicial  (sección cuadrada de lado a=b=0.5 metros). En este caso abordamos el problema con cuatro condiciones de frontera ya que la ecuación de la viga que se nos proporciona es de orden 4.&lt;br /&gt;
&lt;br /&gt;
Respecto al problema inicial encontramos varias diferencias:&lt;br /&gt;
&lt;br /&gt;
-	La viga en cuestión deja de estar apoyada en ambos extremos y pasa a estar encastrada en ellos.&lt;br /&gt;
 &lt;br /&gt;
-	La función deja de depender del momento flector y dependerá de la carga aplicada sobre ésta (W(x)).&lt;br /&gt;
 &lt;br /&gt;
Conservando los valores numéricos dados en el apartado 1 y siendo &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt; (dato) definimos el problema de contorno:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Buscamos plantear el método de diferencias finitas para aproximar las soluciones del problema anterior. Para obtenerlo usamos las siguientes aproximaciones:&lt;br /&gt;
  &lt;br /&gt;
:&amp;lt;math&amp;gt; y''''(x_j)=\frac{y(x_j-2)-4y(x_j-1)+6y(x_j)-4y(x_j+1)+y(x_j+2)}{h^4}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_0)=\frac{y(x_1)-y(x_-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_N)=\frac{y(x_N+1)-y(x_N-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;br /&gt;
&lt;br /&gt;
Al desarrollar el código numérico, calculamos el valor de mayor deflexión siendo este en valor absoluto 0.38064 y el punto en el que se alcanza es L/2=5.&lt;br /&gt;
[[Archivo:Apartado5vigacarga.jpg|thumb|left|400px|Gráfica con la carga y la deflexión.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga apoyada en sus extremos dependiendo del tiempo. Problema dinámico.==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el problema dinámico. En este caso la deflexión de la viga depende también del tiempo  y(x,t) quedando la ecuación:  &lt;br /&gt;
                                                        &lt;br /&gt;
:&amp;lt;math&amp;gt;ρy_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;quot;p&amp;quot; la densidad de la viga que mantendremos constante y de valor la unidad. De esta forma nuestra ecuación final será:&lt;br /&gt;
                                                       &lt;br /&gt;
:&amp;lt;math&amp;gt; y_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al tratarse de un problema dependiente de 2 variables necesitamos dos condiciones iniciales &amp;lt;math&amp;gt; y(x,0)=y_0(x) \ ; \ y_t(x,0)=y_(x)  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma planteamos el sistema de ecuaciones completo y su aproximación de diferencias finitas considerando el método del trapecio para resolver el problema en tiempo. &lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\ ky + b(t)\ , &amp;amp; \\ y(0)=y_0 \ , \\ y'(0)=z_0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
Tras realizar las derivaciones respecto al tiempo y respecto a x y despejando los valores conocidos nuestro sistema queda definido por: &lt;br /&gt;
&lt;br /&gt;
:&amp;lt;math&amp;gt; vec{y''}=k*vec{y} +vec{b(1)} &amp;lt;/math&amp;gt;&lt;br /&gt;
donde si tenemos en cuenta las condiciones iniciales resultaria:&lt;br /&gt;
\[\left\{\begin{matrix}\vec{y''}=k*\vec{y} +\vec{b(1)} \ , &amp;amp; \\\vec{y(0)}=\vec{y_0}  \ , \\ \vec{y'(0)}=\vec{z_0}\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
Realizando el cambio de variable:&lt;br /&gt;
:&amp;lt;math&amp;gt; \vec{y'}=\vec{z} &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; \vec{z'}=k*\vec{y} +\vec{b} &amp;lt;/math&amp;gt;&lt;br /&gt;
Nuestro sistema final sobre el cual aplicaremos el método del trapecio es:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix} \vec{W'}= K*\vec{W} + \vec{B}  \ , &amp;amp; \\ \vec{W(0)}=\vec{W_0} \  &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
El código que a continuación mostramos nos permite calcular el sistema anteriomente mostrado siendo: &lt;br /&gt;
&lt;br /&gt;
:&amp;lt;math&amp;gt; y(0,t)=sin(\frac{8pix}{L}) &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y_t(0,t)=0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además nos permitirá obtener el comportamiento de y(x,t) en el punto x=0.5 en un intervalo de t [0,5]:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% (ro)ytt+EIyxxxx=-w(x)&lt;br /&gt;
%%% ytt+(EI/ro)yxxxx=-w(x)/ro=f(x)&lt;br /&gt;
%%% y(0,t)=y'(0,t)=y(L,t)=y'(L,t)=0&lt;br /&gt;
%%% y(x,0)=(1/3)*sin(8*pi*x/L); yt(x,0)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
ro=1;               % densidad&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=100;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% condiciones iniciales&lt;br /&gt;
y0=((1/3)*sin(8*pi*xi/L))';      % y(x,0) // column vector&lt;br /&gt;
z0=zeros(1,length(xi))';        % yt(x,0) // column vector&lt;br /&gt;
W0=[y0;z0];&lt;br /&gt;
&lt;br /&gt;
% f(x)=-w(x)/ro&lt;br /&gt;
w=1*(L/2-abs(xi-L/2));&lt;br /&gt;
f=-(w/ro)';         % vector columna&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=-(E*I/ro)*(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
% matriz Q=[O,I;K,O]&lt;br /&gt;
I=eye(N-1);O=zeros(N-1);&lt;br /&gt;
Q=[O,I;K,O];&lt;br /&gt;
&lt;br /&gt;
% partición temporal&lt;br /&gt;
tM=5;M=100;dt=tM/M;t=0:dt:tM;&lt;br /&gt;
&lt;br /&gt;
% theta=0(Euler),0.5(Crank-Nicholson),1(Euler implícito)&lt;br /&gt;
theta=1/2;  % Crank-Nicholson&lt;br /&gt;
&lt;br /&gt;
% matriz P=inv(L)*R&lt;br /&gt;
I2=eye(2*(N-1)); &lt;br /&gt;
L=I2-dt*theta*Q;&lt;br /&gt;
R=I2+dt*(1-theta)*Q;&lt;br /&gt;
% P=L\R;&lt;br /&gt;
&lt;br /&gt;
% término B&lt;br /&gt;
B=[zeros(length(f),1);f];&lt;br /&gt;
% B=[zeros(length(f),1);zeros(length(f),1)];&lt;br /&gt;
&lt;br /&gt;
% programa&lt;br /&gt;
W=zeros(2*(N-1),M+1);   &lt;br /&gt;
W(:,1)=W0;&lt;br /&gt;
&lt;br /&gt;
for n=1:M&lt;br /&gt;
    W(:,n+1)=L\(R*W(:,n)+dt*B);  &lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
Y=W(1:N-1,1:M+1);&lt;br /&gt;
Y0=zeros(1,M+1);&lt;br /&gt;
YN=zeros(1,M+1);&lt;br /&gt;
Y=[Y0;Y;YN];           &lt;br /&gt;
&lt;br /&gt;
figure(100)     % gráfico y(x,t)&lt;br /&gt;
[X,T]=meshgrid(x,t);&lt;br /&gt;
figure(100)&lt;br /&gt;
surf(X,T,Y') &lt;br /&gt;
&lt;br /&gt;
figure(200)     % curva y(0.5,t)&lt;br /&gt;
xc=0.5;&lt;br /&gt;
plot(t,Y(round(xc/dx+1),:))}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Obteniendo las siguientes gráficas:&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Solucion1.png|thumb|left|400px|Aproximación de y(x,t) con las condiciones iniciales anteriormente mostradas en el intervalo [0,5].]]&lt;br /&gt;
:[[Archivo:Apartado78.jpg|thumb|left|400px|Comportamiento de y(x,t) en el punto x=0.5 en un intervalo de tiempo [0,5].]]&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11947</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11947"/>
				<updated>2014-05-18T07:54:32Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Ecuación de viga apoyada en ambos extremos==&lt;br /&gt;
&lt;br /&gt;
El trabajo a realizar consiste en el estudio de la deflexión de una viga apoyada en ambos extremos, de sección trasversal S, sometida al momento de unas fuerzas (Fi) aplicadas sobre esta. Entendemos  como momento flector al producto de la fuerza por la distancia que hay entre la fuerza y el punto a estudiar. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:FLEXION.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección constante sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
Suponemos que el eje de la viga va en la dirección del eje X, ocupando un intervalo [0,L] de forma que estudiaremos la deflexión de ésta en su eje perpendicular, eje Y.&lt;br /&gt;
&lt;br /&gt;
Para estudiar dicha situación, la representamos por un problema de contorno que solucionamos mediante el método de diferencias finitas expuesto a continuación.&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Cabe destacar que las condiciones de frontera son nulas debido a que la viga, como nos requiere el enunciado, está apoyada en sus extremos.&lt;br /&gt;
&lt;br /&gt;
Como datos tenemos:&lt;br /&gt;
&lt;br /&gt;
*El módulo de elasticidad (módulo de Young) que depende de las propiedades elásticas del material, y que en nuestro caso permanece constante&lt;br /&gt;
&lt;br /&gt;
*Conocemos como I(x) el momento de inercia de la sección transversal S respecto al centro (cuadrado de lado a=0.5 metros).&lt;br /&gt;
&lt;br /&gt;
*Finalmente disponemos del momento flector definido antes, M(x).&lt;br /&gt;
&lt;br /&gt;
*Longitud de la viga (L=10 metros):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano (x=5 m)  y de valor absoluto 0.16013 en sentido negativo del eje.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de viga dependiendo del valor del canto===&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales de la sección trasversal de la viga de forma que el canto (a) toma valores del intervalo [0.1,0.9]. A su vez, el ancho de la viga también cambia de forma que b=1-a. &lt;br /&gt;
&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes secciones de la viga, tomando como condición que el volumen se mantenga constante, con la finalidad de determinar en cuál de ellos se sufre la menor deflexión y, a su vez, la flecha máxima de la mayor deflexión&lt;br /&gt;
 &lt;br /&gt;
Numéricamente, el código que exponemos a continuación nos resuelve este apartado:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
Finalmente tenemos como resultado gráfico la deflexión con cada medida de canto del intervalo.También obtenemos las flechas máximas para cada valor de a.&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
:[[Archivo:Apartado2flecha.jpg|thumb|right|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973.&lt;br /&gt;
 &lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 con un valor de flecha de 1.112. Físicamente este fenómeno se explica debido a que a mayor canto de la viga menor deformación. Así, obligamos a que el canto de la sección trasversal de la viga sea lo más grande posible dentro del intervalo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x de forma que: &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores tenemos en cuenta que la condición que se nos impone es que el volumen total de la viga tiene que ser constante y de valor igual al de la viga de sección cuadrada de lado a=0.5 metros. &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
Necesitamos encontrar la relación entre los parámetros c y d siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Como resultado obtenemos que c=-0.0161 y d=0.54028 son los valores correspondientes a la viga con menor deflexión. &lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son (((((c=     y d=    )))) (Gráfica de viga con mayor reflexión).&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
&lt;br /&gt;
A continuación se presenta la situación de una viga encastrada en ambos extremos de ésta con la misma sección trasversal que en el problema inicial  (sección cuadrada de lado a=b=0.5 metros). En este caso abordamos el problema con cuatro condiciones de frontera ya que la ecuación de la viga que se nos proporciona es de orden 4.&lt;br /&gt;
&lt;br /&gt;
Respecto al problema inicial encontramos varias diferencias:&lt;br /&gt;
&lt;br /&gt;
-	La viga en cuestión deja de estar apoyada en ambos extremos y pasa a estar encastrada en ellos.&lt;br /&gt;
 &lt;br /&gt;
-	La función deja de depender del momento flector y dependerá de la carga aplicada sobre ésta (W(x)).&lt;br /&gt;
 &lt;br /&gt;
Conservando los valores numéricos dados en el apartado 1 y siendo &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt; (dato) definimos el problema de contorno:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Buscamos plantear el método de diferencias finitas para aproximar las soluciones del problema anterior. Para obtenerlo usamos las siguientes aproximaciones:&lt;br /&gt;
  &lt;br /&gt;
:&amp;lt;math&amp;gt; y''''(x_j)=\frac{y(x_j-2)-4y(x_j-1)+6y(x_j)-4y(x_j+1)+y(x_j+2)}{h^4}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_0)=\frac{y(x_1)-y(x_-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_N)=\frac{y(x_N+1)-y(x_N-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;br /&gt;
&lt;br /&gt;
Al desarrollar el código numérico, calculamos el valor de mayor deflexión siendo este en valor absoluto 0.38064 y el punto en el que se alcanza es L/2=5.&lt;br /&gt;
[[Archivo:Apartado5vigacarga.jpg|thumb|left|400px|Gráfica con la carga y la deflexión.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga apoyada en sus extremos dependiendo del tiempo. Problema dinámico.==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el problema dinámico. En este caso la deflexión de la viga depende también del tiempo  y(x,t) quedando la ecuación:  &lt;br /&gt;
                                                        &lt;br /&gt;
:&amp;lt;math&amp;gt;ρy_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;quot;p&amp;quot; la densidad de la viga que mantendremos constante y de valor la unidad. De esta forma nuestra ecuación final será:&lt;br /&gt;
                                                       &lt;br /&gt;
:&amp;lt;math&amp;gt; y_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al tratarse de un problema dependiente de 2 variables necesitamos dos condiciones iniciales &amp;lt;math&amp;gt; y(x,0)=y_0(x) \ ; \ y_t(x,0)=y_(x)  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma planteamos el sistema de ecuaciones completo y su aproximación de diferencias finitas considerando el método del trapecio para resolver el problema en tiempo. &lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\ ky + b(t)\ , &amp;amp; \\ y(0)=y_0 \ , \\ y'(0)=z_0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
Tras realizar las derivaciones respecto al tiempo y respecto a x y despejando los valores conocidos nuestro sistema queda definido por: &lt;br /&gt;
&lt;br /&gt;
:&amp;lt;math&amp;gt; vec{y''}=k*vec{y} +vec{b(1)} &amp;lt;/math&amp;gt;&lt;br /&gt;
donde si tenemos en cuenta las condiciones iniciales resultaria:&lt;br /&gt;
\[\left\{\begin{matrix}\vec{y''}=k*\vec{y} +\vec{b(1)} \ , &amp;amp; \\\vec{y(0)}=\vec{y_0}  \ , \\ \vec{y'(0)}=\vec{z_0}\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
Realizando el cambio de variable:&lt;br /&gt;
:&amp;lt;math&amp;gt; \vec{y'}=\vec{z} &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; \vec{z'}=k*\vec{y} +\vec{b} &amp;lt;/math&amp;gt;&lt;br /&gt;
Nuestro sistema final sobre el cual aplicaremos el método del trapecio es:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix} \vec{W'}= K*\vec{W} + \vec{B}  \ , &amp;amp; \\ \vec{W(0)}=\vec{W_0} \  &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
El código que a continuación mostramos nos permite calcular el sistema anteriomente mostrado siendo: &lt;br /&gt;
&lt;br /&gt;
:&amp;lt;math&amp;gt; y(0,t)=sin(\frac{8pix}{L}) &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y_t(0,t)=0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además nos permitirá obtener el comportamiento de y(x,t) en el punto x=0.5 en un intervalo de t [0,5]:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% (ro)ytt+EIyxxxx=-w(x)&lt;br /&gt;
%%% ytt+(EI/ro)yxxxx=-w(x)/ro=f(x)&lt;br /&gt;
%%% y(0,t)=y'(0,t)=y(L,t)=y'(L,t)=0&lt;br /&gt;
%%% y(x,0)=(1/3)*sin(8*pi*x/L); yt(x,0)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
ro=1;               % densidad&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=100;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% condiciones iniciales&lt;br /&gt;
y0=((1/3)*sin(8*pi*xi/L))';      % y(x,0) // column vector&lt;br /&gt;
z0=zeros(1,length(xi))';        % yt(x,0) // column vector&lt;br /&gt;
W0=[y0;z0];&lt;br /&gt;
&lt;br /&gt;
% f(x)=-w(x)/ro&lt;br /&gt;
w=1*(L/2-abs(xi-L/2));&lt;br /&gt;
f=-(w/ro)';         % vector columna&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=-(E*I/ro)*(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
% matriz Q=[O,I;K,O]&lt;br /&gt;
I=eye(N-1);O=zeros(N-1);&lt;br /&gt;
Q=[O,I;K,O];&lt;br /&gt;
&lt;br /&gt;
% partición temporal&lt;br /&gt;
tM=5;M=100;dt=tM/M;t=0:dt:tM;&lt;br /&gt;
&lt;br /&gt;
% theta=0(Euler),0.5(Crank-Nicholson),1(Euler implícito)&lt;br /&gt;
theta=1/2;  % Crank-Nicholson&lt;br /&gt;
&lt;br /&gt;
% matriz P=inv(L)*R&lt;br /&gt;
I2=eye(2*(N-1)); &lt;br /&gt;
L=I2-dt*theta*Q;&lt;br /&gt;
R=I2+dt*(1-theta)*Q;&lt;br /&gt;
% P=L\R;&lt;br /&gt;
&lt;br /&gt;
% término B&lt;br /&gt;
B=[zeros(length(f),1);f];&lt;br /&gt;
% B=[zeros(length(f),1);zeros(length(f),1)];&lt;br /&gt;
&lt;br /&gt;
% programa&lt;br /&gt;
W=zeros(2*(N-1),M+1);   &lt;br /&gt;
W(:,1)=W0;&lt;br /&gt;
&lt;br /&gt;
for n=1:M&lt;br /&gt;
    W(:,n+1)=L\(R*W(:,n)+dt*B);  &lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
Y=W(1:N-1,1:M+1);&lt;br /&gt;
Y0=zeros(1,M+1);&lt;br /&gt;
YN=zeros(1,M+1);&lt;br /&gt;
Y=[Y0;Y;YN];           &lt;br /&gt;
&lt;br /&gt;
figure(100)     % gráfico y(x,t)&lt;br /&gt;
[X,T]=meshgrid(x,t);&lt;br /&gt;
figure(100)&lt;br /&gt;
surf(X,T,Y') &lt;br /&gt;
&lt;br /&gt;
figure(200)     % curva y(0.5,t)&lt;br /&gt;
xc=0.5;&lt;br /&gt;
plot(t,Y(round(xc/dx+1),:))}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Obteniendo las siguientes gráficas:&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Solucion1.png|thumb|left|400px|Aproximación de y(x,t) con las condiciones iniciales anteriormente mostradas en el intervalo [0,5].]]&lt;br /&gt;
:[[Archivo:Apartado78.jpg|thumb|left|400px|Comportamiento de y(x,t) en el punto x=0.5 en un intervalo de tiempo [0,5].]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
 [[Categoría:ED13/14]]&lt;br /&gt;
 [[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11946</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11946"/>
				<updated>2014-05-18T07:52:05Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Ecuación de viga apoyada en ambos extremos==&lt;br /&gt;
&lt;br /&gt;
El trabajo a realizar consiste en el estudio de la deflexión de una viga apoyada en ambos extremos, de sección trasversal S, sometida al momento de unas fuerzas (Fi) aplicadas sobre esta. Entendemos  como momento flector al producto de la fuerza por la distancia que hay entre la fuerza y el punto a estudiar. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:FLEXION.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección constante sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
Suponemos que el eje de la viga va en la dirección del eje X, ocupando un intervalo [0,L] de forma que estudiaremos la deflexión de ésta en su eje perpendicular, eje Y.&lt;br /&gt;
&lt;br /&gt;
Para estudiar dicha situación, la representamos por un problema de contorno que solucionamos mediante el método de diferencias finitas expuesto a continuación.&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Cabe destacar que las condiciones de frontera son nulas debido a que la viga, como nos requiere el enunciado, está apoyada en sus extremos.&lt;br /&gt;
&lt;br /&gt;
Como datos tenemos:&lt;br /&gt;
&lt;br /&gt;
*El módulo de elasticidad (módulo de Young) que depende de las propiedades elásticas del material, y que en nuestro caso permanece constante&lt;br /&gt;
&lt;br /&gt;
*Conocemos como I(x) el momento de inercia de la sección transversal S respecto al centro (cuadrado de lado a=0.5 metros).&lt;br /&gt;
&lt;br /&gt;
*Finalmente disponemos del momento flector definido antes, M(x).&lt;br /&gt;
&lt;br /&gt;
*Longitud de la viga (L=10 metros):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano (x=5 m)  y de valor absoluto 0.16013 en sentido negativo del eje.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de viga dependiendo del valor del canto===&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales de la sección trasversal de la viga de forma que el canto (a) toma valores del intervalo [0.1,0.9]. A su vez, el ancho de la viga también cambia de forma que b=1-a. &lt;br /&gt;
&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes secciones de la viga, tomando como condición que el volumen se mantenga constante, con la finalidad de determinar en cuál de ellos se sufre la menor deflexión y, a su vez, la flecha máxima de la mayor deflexión&lt;br /&gt;
 &lt;br /&gt;
Numéricamente, el código que exponemos a continuación nos resuelve este apartado:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
Finalmente tenemos como resultado gráfico la deflexión con cada medida de canto del intervalo.También obtenemos las flechas máximas para cada valor de a.&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
:[[Archivo:Apartado2flecha.jpg|thumb|right|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973.&lt;br /&gt;
 &lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 con un valor de flecha de 1.112. Físicamente este fenómeno se explica debido a que a mayor canto de la viga menor deformación. Así, obligamos a que el canto de la sección trasversal de la viga sea lo más grande posible dentro del intervalo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x de forma que: &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores tenemos en cuenta que la condición que se nos impone es que el volumen total de la viga tiene que ser constante y de valor igual al de la viga de sección cuadrada de lado a=0.5 metros. &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
Necesitamos encontrar la relación entre los parámetros c y d siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Como resultado obtenemos que c=-0.0161 y d=0.54028 son los valores correspondientes a la viga con menor deflexión. &lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son (((((c=     y d=    )))) (Gráfica de viga con mayor reflexión).&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
&lt;br /&gt;
A continuación se presenta la situación de una viga encastrada en ambos extremos de ésta con la misma sección trasversal que en el problema inicial  (sección cuadrada de lado a=b=0.5 metros). En este caso abordamos el problema con cuatro condiciones de frontera ya que la ecuación de la viga que se nos proporciona es de orden 4.&lt;br /&gt;
&lt;br /&gt;
Respecto al problema inicial encontramos varias diferencias:&lt;br /&gt;
&lt;br /&gt;
-	La viga en cuestión deja de estar apoyada en ambos extremos y pasa a estar encastrada en ellos.&lt;br /&gt;
 &lt;br /&gt;
-	La función deja de depender del momento flector y dependerá de la carga aplicada sobre ésta (W(x)).&lt;br /&gt;
 &lt;br /&gt;
Conservando los valores numéricos dados en el apartado 1 y siendo &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt; (dato) definimos el problema de contorno:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Buscamos plantear el método de diferencias finitas para aproximar las soluciones del problema anterior. Para obtenerlo usamos las siguientes aproximaciones:&lt;br /&gt;
  &lt;br /&gt;
:&amp;lt;math&amp;gt; y''''(x_j)=\frac{y(x_j-2)-4y(x_j-1)+6y(x_j)-4y(x_j+1)+y(x_j+2)}{h^4}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_0)=\frac{y(x_1)-y(x_-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_N)=\frac{y(x_N+1)-y(x_N-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;br /&gt;
&lt;br /&gt;
Al desarrollar el código numérico, calculamos el valor de mayor deflexión siendo este en valor absoluto 0.38064 y el punto en el que se alcanza es L/2=5.&lt;br /&gt;
[[Archivo:Apartado5vigacarga.jpg|thumb|left|400px|Gráfica con la carga y la deflexión.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga apoyada en sus extremos dependiendo del tiempo. Problema dinámico.==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el problema dinámico. En este caso la deflexión de la viga depende también del tiempo  y(x,t) quedando la ecuación:  &lt;br /&gt;
                                                        &lt;br /&gt;
:&amp;lt;math&amp;gt;ρy_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;quot;p&amp;quot; la densidad de la viga que mantendremos constante y de valor la unidad. De esta forma nuestra ecuación final será:&lt;br /&gt;
                                                       &lt;br /&gt;
:&amp;lt;math&amp;gt; y_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al tratarse de un problema dependiente de 2 variables necesitamos dos condiciones iniciales &amp;lt;math&amp;gt; y(x,0)=y_0(x) \ ; \ y_t(x,0)=y_(x)  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma planteamos el sistema de ecuaciones completo y su aproximación de diferencias finitas considerando el método del trapecio para resolver el problema en tiempo. &lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\ ky + b(t)\ , &amp;amp; \\ y(0)=y_0 \ , \\ y'(0)=z_0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
Tras realizar las derivaciones respecto al tiempo y respecto a x y despejando los valores conocidos nuestro sistema queda definido por: &lt;br /&gt;
&lt;br /&gt;
:&amp;lt;math&amp;gt; vec{y''}=k*vec{y} +vec{b(1)} &amp;lt;/math&amp;gt;&lt;br /&gt;
donde si tenemos en cuenta las condiciones iniciales resultaria:&lt;br /&gt;
\[\left\{\begin{matrix}\vec{y''}=k*\vec{y} +\vec{b(1)} \ , &amp;amp; \\\vec{y(0)}=\vec{y_0}  \ , \\ \vec{y'(0)}=\vec{z_0}\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
Realizando el cambio de variable:&lt;br /&gt;
:&amp;lt;math&amp;gt; \vec{y'}=\vec{z} &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; \vec{z'}=k*\vec{y} +\vec{b} &amp;lt;/math&amp;gt;&lt;br /&gt;
Nuestro sistema final sobre el cual aplicaremos el método del trapecio es:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix} \vec{W'}= K*\vec{W} + \vec{B}  \ , &amp;amp; \\ \vec{W(0)}=\vec{W_0} \  &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
El código que a continuación mostramos nos permite calcular el sistema anteriomente mostrado siendo: &lt;br /&gt;
&lt;br /&gt;
:&amp;lt;math&amp;gt; y(0,t)=sin(\frac{8pix}{L}) &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y_t(0,t)=0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además nos permitirá obtener el comportamiento de y(x,t) en el punto x=0.5 en un intervalo de t [0,5]:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% (ro)ytt+EIyxxxx=-w(x)&lt;br /&gt;
%%% ytt+(EI/ro)yxxxx=-w(x)/ro=f(x)&lt;br /&gt;
%%% y(0,t)=y'(0,t)=y(L,t)=y'(L,t)=0&lt;br /&gt;
%%% y(x,0)=(1/3)*sin(8*pi*x/L); yt(x,0)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
ro=1;               % densidad&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=100;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% condiciones iniciales&lt;br /&gt;
y0=((1/3)*sin(8*pi*xi/L))';      % y(x,0) // column vector&lt;br /&gt;
z0=zeros(1,length(xi))';        % yt(x,0) // column vector&lt;br /&gt;
W0=[y0;z0];&lt;br /&gt;
&lt;br /&gt;
% f(x)=-w(x)/ro&lt;br /&gt;
w=1*(L/2-abs(xi-L/2));&lt;br /&gt;
f=-(w/ro)';         % vector columna&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=-(E*I/ro)*(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
% matriz Q=[O,I;K,O]&lt;br /&gt;
I=eye(N-1);O=zeros(N-1);&lt;br /&gt;
Q=[O,I;K,O];&lt;br /&gt;
&lt;br /&gt;
% partición temporal&lt;br /&gt;
tM=5;M=100;dt=tM/M;t=0:dt:tM;&lt;br /&gt;
&lt;br /&gt;
% theta=0(Euler),0.5(Crank-Nicholson),1(Euler implícito)&lt;br /&gt;
theta=1/2;  % Crank-Nicholson&lt;br /&gt;
&lt;br /&gt;
% matriz P=inv(L)*R&lt;br /&gt;
I2=eye(2*(N-1)); &lt;br /&gt;
L=I2-dt*theta*Q;&lt;br /&gt;
R=I2+dt*(1-theta)*Q;&lt;br /&gt;
% P=L\R;&lt;br /&gt;
&lt;br /&gt;
% término B&lt;br /&gt;
B=[zeros(length(f),1);f];&lt;br /&gt;
% B=[zeros(length(f),1);zeros(length(f),1)];&lt;br /&gt;
&lt;br /&gt;
% programa&lt;br /&gt;
W=zeros(2*(N-1),M+1);   &lt;br /&gt;
W(:,1)=W0;&lt;br /&gt;
&lt;br /&gt;
for n=1:M&lt;br /&gt;
    W(:,n+1)=L\(R*W(:,n)+dt*B);  &lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
Y=W(1:N-1,1:M+1);&lt;br /&gt;
Y0=zeros(1,M+1);&lt;br /&gt;
YN=zeros(1,M+1);&lt;br /&gt;
Y=[Y0;Y;YN];           &lt;br /&gt;
&lt;br /&gt;
figure(100)     % gráfico y(x,t)&lt;br /&gt;
[X,T]=meshgrid(x,t);&lt;br /&gt;
figure(100)&lt;br /&gt;
surf(X,T,Y') &lt;br /&gt;
&lt;br /&gt;
figure(200)     % curva y(0.5,t)&lt;br /&gt;
xc=0.5;&lt;br /&gt;
plot(t,Y(round(xc/dx+1),:))}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Obteniendo las siguientes gráficas:&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Solucion1.png|thumb|left|400px|Aproximación de y(x,t) con las condiciones iniciales anteriormente mostradas en el intervalo [0,5].]]&lt;br /&gt;
:[[Archivo:Apartado78.jpg|thumb|left|400px|Comportamiento de y(x,t) en el punto x=0.5 en un intervalo de tiempo [0,5].]]&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Apartado78.jpg&amp;diff=11945</id>
		<title>Archivo:Apartado78.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Apartado78.jpg&amp;diff=11945"/>
				<updated>2014-05-18T07:48:57Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Viga34.JPG&amp;diff=11944</id>
		<title>Archivo:Viga34.JPG</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Viga34.JPG&amp;diff=11944"/>
				<updated>2014-05-18T07:42:18Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Solucion1.png&amp;diff=11943</id>
		<title>Archivo:Solucion1.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Solucion1.png&amp;diff=11943"/>
				<updated>2014-05-18T07:40:58Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11942</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11942"/>
				<updated>2014-05-18T07:39:51Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Ecuación de viga apoyada en ambos extremos==&lt;br /&gt;
&lt;br /&gt;
El trabajo a realizar consiste en el estudio de la deflexión de una viga apoyada en ambos extremos, de sección trasversal S, sometida al momento de unas fuerzas (Fi) aplicadas sobre esta. Entendemos  como momento flector al producto de la fuerza por la distancia que hay entre la fuerza y el punto a estudiar. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:FLEXION.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección constante sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
Suponemos que el eje de la viga va en la dirección del eje X, ocupando un intervalo [0,L] de forma que estudiaremos la deflexión de ésta en su eje perpendicular, eje Y.&lt;br /&gt;
&lt;br /&gt;
Para estudiar dicha situación, la representamos por un problema de contorno que solucionamos mediante el método de diferencias finitas expuesto a continuación.&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Cabe destacar que las condiciones de frontera son nulas debido a que la viga, como nos requiere el enunciado, está apoyada en sus extremos.&lt;br /&gt;
&lt;br /&gt;
Como datos tenemos:&lt;br /&gt;
&lt;br /&gt;
*El módulo de elasticidad (módulo de Young) que depende de las propiedades elásticas del material, y que en nuestro caso permanece constante&lt;br /&gt;
&lt;br /&gt;
*Conocemos como I(x) el momento de inercia de la sección transversal S respecto al centro (cuadrado de lado a=0.5 metros).&lt;br /&gt;
&lt;br /&gt;
*Finalmente disponemos del momento flector definido antes, M(x).&lt;br /&gt;
&lt;br /&gt;
*Longitud de la viga (L=10 metros):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano (x=5 m)  y de valor absoluto 0.16013 en sentido negativo del eje.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de viga dependiendo del valor del canto===&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales de la sección trasversal de la viga de forma que el canto (a) toma valores del intervalo [0.1,0.9]. A su vez, el ancho de la viga también cambia de forma que b=1-a. &lt;br /&gt;
&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes secciones de la viga, tomando como condición que el volumen se mantenga constante, con la finalidad de determinar en cuál de ellos se sufre la menor deflexión y, a su vez, la flecha máxima de la mayor deflexión&lt;br /&gt;
 &lt;br /&gt;
Numéricamente, el código que exponemos a continuación nos resuelve este apartado:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
Finalmente tenemos como resultado gráfico la deflexión con cada medida de canto del intervalo.También obtenemos las flechas máximas para cada valor de a.&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
:[[Archivo:Apartado2flecha.jpg|thumb|right|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973.&lt;br /&gt;
 &lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 con un valor de flecha de 1.112. Físicamente este fenómeno se explica debido a que a mayor canto de la viga menor deformación. Así, obligamos a que el canto de la sección trasversal de la viga sea lo más grande posible dentro del intervalo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x de forma que: &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores tenemos en cuenta que la condición que se nos impone es que el volumen total de la viga tiene que ser constante y de valor igual al de la viga de sección cuadrada de lado a=0.5 metros. &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
Necesitamos encontrar la relación entre los parámetros c y d siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Como resultado obtenemos que c=-0.0161 y d=0.54028 son los valores correspondientes a la viga con menor deflexión. &lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son (((((c=     y d=    )))) (Gráfica de viga con mayor reflexión).&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
&lt;br /&gt;
A continuación se presenta la situación de una viga encastrada en ambos extremos de ésta con la misma sección trasversal que en el problema inicial  (sección cuadrada de lado a=b=0.5 metros). En este caso abordamos el problema con cuatro condiciones de frontera ya que la ecuación de la viga que se nos proporciona es de orden 4.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:vigaencastrada3.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
Respecto al problema inicial encontramos varias diferencias:&lt;br /&gt;
&lt;br /&gt;
-	La viga en cuestión deja de estar apoyada en ambos extremos y pasa a estar encastrada en ellos.&lt;br /&gt;
 &lt;br /&gt;
-	La función deja de depender del momento flector y dependerá de la carga aplicada sobre ésta (W(x)).&lt;br /&gt;
 &lt;br /&gt;
Conservando los valores numéricos dados en el apartado 1 y siendo &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt; (dato) definimos el problema de contorno:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Buscamos plantear el método de diferencias finitas para aproximar las soluciones del problema anterior. Para obtenerlo usamos las siguientes aproximaciones:&lt;br /&gt;
  &lt;br /&gt;
:&amp;lt;math&amp;gt; y''''(x_j)=\frac{y(x_j-2)-4y(x_j-1)+6y(x_j)-4y(x_j+1)+y(x_j+2)}{h^4}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_0)=\frac{y(x_1)-y(x_-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_N)=\frac{y(x_N+1)-y(x_N-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;br /&gt;
&lt;br /&gt;
Al desarrollar el código numérico, calculamos el valor de mayor deflexión siendo este en valor absoluto 0.38064 y el punto en el que se alcanza es L/2=5.&lt;br /&gt;
[[Archivo:Apartado5vigacarga.jpg|thumb|left|400px|Gráfica con la carga y la deflexión.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga apoyada en sus extremos dependiendo del tiempo. Problema dinámico.==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el problema dinámico. En este caso la deflexión de la viga depende también del tiempo  y(x,t) quedando la ecuación:  &lt;br /&gt;
                                                        &lt;br /&gt;
:&amp;lt;math&amp;gt;ρy_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;quot;p&amp;quot; la densidad de la viga que mantendremos constante y de valor la unidad. De esta forma nuestra ecuación final será:&lt;br /&gt;
                                                       &lt;br /&gt;
:&amp;lt;math&amp;gt; y_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al tratarse de un problema dependiente de 2 variables necesitamos dos condiciones iniciales &amp;lt;math&amp;gt; y(x,0)=y_0(x) \ ; \ y_t(x,0)=y_(x)  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma planteamos el sistema de ecuaciones completo y su aproximación de diferencias finitas considerando el método del trapecio para resolver el problema en tiempo. &lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\ ky + b(t)\ , &amp;amp; \\ y(0)=y_0 \ , \\ y'(0)=z_0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
Tras realizar las derivaciones respecto al tiempo y respecto a x y despejando los valores conocidos nuestro sistema queda definido por: &lt;br /&gt;
&lt;br /&gt;
:&amp;lt;math&amp;gt; vec{y''}=k*vec{y} +vec{b(1)} &amp;lt;/math&amp;gt;&lt;br /&gt;
donde si tenemos en cuenta las condiciones iniciales resultaria:&lt;br /&gt;
\[\left\{\begin{matrix}\vec{y''}=k*\vec{y} +\vec{b(1)} \ , &amp;amp; \\\vec{y(0)}=\vec{y_0}  \ , \\ \vec{y'(0)}=\vec{z_0}\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
Realizando el cambio de variable:&lt;br /&gt;
:&amp;lt;math&amp;gt; \vec{y'}=\vec{z} &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; \vec{z'}=k*\vec{y} +\vec{b} &amp;lt;/math&amp;gt;&lt;br /&gt;
Nuestro sistema final sobre el cual aplicaremos el método del trapecio es:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix} \vec{W'}= K*\vec{W} + \vec{B}  \ , &amp;amp; \\ \vec{W(0)}=\vec{W_0} \  &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
El código que a continuación mostramos nos permite calcular el sistema anteriomente mostrado siendo: &lt;br /&gt;
&lt;br /&gt;
:&amp;lt;math&amp;gt; y(0,t)=sin(\frac{8pix}{L}) &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y_t(0,t)=0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además nos permitirá obtener el comportamiento de y(x,t) en el punto x=0.5 en un intervalo de t [0,5]:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% (ro)ytt+EIyxxxx=-w(x)&lt;br /&gt;
%%% ytt+(EI/ro)yxxxx=-w(x)/ro=f(x)&lt;br /&gt;
%%% y(0,t)=y'(0,t)=y(L,t)=y'(L,t)=0&lt;br /&gt;
%%% y(x,0)=(1/3)*sin(8*pi*x/L); yt(x,0)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
ro=1;               % densidad&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=100;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% condiciones iniciales&lt;br /&gt;
y0=((1/3)*sin(8*pi*xi/L))';      % y(x,0) // column vector&lt;br /&gt;
z0=zeros(1,length(xi))';        % yt(x,0) // column vector&lt;br /&gt;
W0=[y0;z0];&lt;br /&gt;
&lt;br /&gt;
% f(x)=-w(x)/ro&lt;br /&gt;
w=1*(L/2-abs(xi-L/2));&lt;br /&gt;
f=-(w/ro)';         % vector columna&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=-(E*I/ro)*(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
% matriz Q=[O,I;K,O]&lt;br /&gt;
I=eye(N-1);O=zeros(N-1);&lt;br /&gt;
Q=[O,I;K,O];&lt;br /&gt;
&lt;br /&gt;
% partición temporal&lt;br /&gt;
tM=5;M=100;dt=tM/M;t=0:dt:tM;&lt;br /&gt;
&lt;br /&gt;
% theta=0(Euler),0.5(Crank-Nicholson),1(Euler implícito)&lt;br /&gt;
theta=1/2;  % Crank-Nicholson&lt;br /&gt;
&lt;br /&gt;
% matriz P=inv(L)*R&lt;br /&gt;
I2=eye(2*(N-1)); &lt;br /&gt;
L=I2-dt*theta*Q;&lt;br /&gt;
R=I2+dt*(1-theta)*Q;&lt;br /&gt;
% P=L\R;&lt;br /&gt;
&lt;br /&gt;
% término B&lt;br /&gt;
B=[zeros(length(f),1);f];&lt;br /&gt;
% B=[zeros(length(f),1);zeros(length(f),1)];&lt;br /&gt;
&lt;br /&gt;
% programa&lt;br /&gt;
W=zeros(2*(N-1),M+1);   &lt;br /&gt;
W(:,1)=W0;&lt;br /&gt;
&lt;br /&gt;
for n=1:M&lt;br /&gt;
    W(:,n+1)=L\(R*W(:,n)+dt*B);  &lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
Y=W(1:N-1,1:M+1);&lt;br /&gt;
Y0=zeros(1,M+1);&lt;br /&gt;
YN=zeros(1,M+1);&lt;br /&gt;
Y=[Y0;Y;YN];           &lt;br /&gt;
&lt;br /&gt;
figure(100)     % gráfico y(x,t)&lt;br /&gt;
[X,T]=meshgrid(x,t);&lt;br /&gt;
figure(100)&lt;br /&gt;
surf(X,T,Y') &lt;br /&gt;
&lt;br /&gt;
figure(200)     % curva y(0.5,t)&lt;br /&gt;
xc=0.5;&lt;br /&gt;
plot(t,Y(round(xc/dx+1),:))}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Obteniendo las siguientes gráficas:&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11941</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11941"/>
				<updated>2014-05-18T07:16:34Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Ecuación de viga apoyada en ambos extremos==&lt;br /&gt;
&lt;br /&gt;
El trabajo a realizar consiste en el estudio de la deflexión de una viga apoyada en ambos extremos, de sección trasversal S, sometida al momento de unas fuerzas (Fi) aplicadas sobre esta. Entendemos  como momento flector al producto de la fuerza por la distancia que hay entre la fuerza y el punto a estudiar. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:FLEXION.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección constante sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
Suponemos que el eje de la viga va en la dirección del eje X, ocupando un intervalo [0,L] de forma que estudiaremos la deflexión de ésta en su eje perpendicular, eje Y.&lt;br /&gt;
&lt;br /&gt;
Para estudiar dicha situación, la representamos por un problema de contorno que solucionamos mediante el método de diferencias finitas expuesto a continuación.&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Cabe destacar que las condiciones de frontera son nulas debido a que la viga, como nos requiere el enunciado, está apoyada en sus extremos.&lt;br /&gt;
&lt;br /&gt;
Como datos tenemos:&lt;br /&gt;
&lt;br /&gt;
*El módulo de elasticidad (módulo de Young) que depende de las propiedades elásticas del material, y que en nuestro caso permanece constante&lt;br /&gt;
&lt;br /&gt;
*Conocemos como I(x) el momento de inercia de la sección transversal S respecto al centro (cuadrado de lado a=0.5 metros).&lt;br /&gt;
&lt;br /&gt;
*Finalmente disponemos del momento flector definido antes, M(x).&lt;br /&gt;
&lt;br /&gt;
*Longitud de la viga (L=10 metros):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano (x=5 m)  y de valor absoluto 0.16013 en sentido negativo del eje.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de viga dependiendo del valor del canto===&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales de la sección trasversal de la viga de forma que el canto (a) toma valores del intervalo [0.1,0.9]. A su vez, el ancho de la viga también cambia de forma que b=1-a. &lt;br /&gt;
&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes secciones de la viga, tomando como condición que el volumen se mantenga constante, con la finalidad de determinar en cuál de ellos se sufre la menor deflexión y, a su vez, la flecha máxima de la mayor deflexión&lt;br /&gt;
 &lt;br /&gt;
Numéricamente, el código que exponemos a continuación nos resuelve este apartado:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
Finalmente tenemos como resultado gráfico la deflexión con cada medida de canto del intervalo.También obtenemos las flechas máximas para cada valor de a.&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
:[[Archivo:Apartado2flecha.jpg|thumb|right|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973.&lt;br /&gt;
 &lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 con un valor de flecha de 1.112. Físicamente este fenómeno se explica debido a que a mayor canto de la viga menor deformación. Así, obligamos a que el canto de la sección trasversal de la viga sea lo más grande posible dentro del intervalo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x de forma que: &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores tenemos en cuenta que la condición que se nos impone es que el volumen total de la viga tiene que ser constante y de valor igual al de la viga de sección cuadrada de lado a=0.5 metros. &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
Necesitamos encontrar la relación entre los parámetros c y d siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Como resultado obtenemos que c=-0.0161 y d=0.54028 son los valores correspondientes a la viga con menor deflexión. &lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son (((((c=     y d=    )))) (Gráfica de viga con mayor reflexión).&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
&lt;br /&gt;
A continuación se presenta la situación de una viga encastrada en ambos extremos de ésta con la misma sección trasversal que en el problema inicial  (sección cuadrada de lado a=b=0.5 metros). En este caso abordamos el problema con cuatro condiciones de frontera ya que la ecuación de la viga que se nos proporciona es de orden 4.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:vigaencastrada3.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
Respecto al problema inicial encontramos varias diferencias:&lt;br /&gt;
&lt;br /&gt;
-	La viga en cuestión deja de estar apoyada en ambos extremos y pasa a estar encastrada en ellos.&lt;br /&gt;
 &lt;br /&gt;
-	La función deja de depender del momento flector y dependerá de la carga aplicada sobre ésta (W(x)).&lt;br /&gt;
 &lt;br /&gt;
Conservando los valores numéricos dados en el apartado 1 y siendo &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt; (dato) definimos el problema de contorno:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Buscamos plantear el método de diferencias finitas para aproximar las soluciones del problema anterior. Para obtenerlo usamos las siguientes aproximaciones:&lt;br /&gt;
  &lt;br /&gt;
:&amp;lt;math&amp;gt; y''''(x_j)=\frac{y(x_j-2)-4y(x_j-1)+6y(x_j)-4y(x_j+1)+y(x_j+2)}{h^4}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_0)=\frac{y(x_1)-y(x_-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_N)=\frac{y(x_N+1)-y(x_N-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;br /&gt;
&lt;br /&gt;
Al desarrollar el código numérico, calculamos el valor de mayor deflexión siendo este en valor absoluto 0.38064 y el punto en el que se alcanza es L/2=5.&lt;br /&gt;
[[Archivo:Apartado5vigacarga.jpg|thumb|left|400px|Gráfica con la carga y la deflexión.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga apoyada en sus extremos dependiendo del tiempo. Problema dinámico.==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el problema dinámico. En este caso la deflexión de la viga depende también del tiempo  y(x,t) quedando la ecuación:  &lt;br /&gt;
                                                        &lt;br /&gt;
:&amp;lt;math&amp;gt;ρy_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;quot;p&amp;quot; la densidad de la viga que mantendremos constante y de valor la unidad. De esta forma nuestra ecuación final será:&lt;br /&gt;
                                                       &lt;br /&gt;
:&amp;lt;math&amp;gt; y_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al tratarse de un problema dependiente de 2 variables necesitamos dos condiciones iniciales &amp;lt;math&amp;gt; y(x,0)=y_0(x) \ ; \ y_t(x,0)=y_(x)  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma planteamos el sistema de ecuaciones completo y su aproximación de diferencias finitas considerando el método del trapecio para resolver el problema en tiempo. &lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\ ky + b(t)\ , &amp;amp; \\ y(0)=y_0 \ , \\ y'(0)=z_0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
El código que a continuación mostramos nos permite calcular el sistema anteriomente mostrado siendo: &lt;br /&gt;
:&amp;lt;math&amp;gt; y(0,t)=sin(\frac{8pix}{L}) &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y_t(0,t)=0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además nos permitirá obtener el comportamiento de y(x,t) en el punto x=0.5 en un intervalo de t [0,5]:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% (ro)ytt+EIyxxxx=-w(x)&lt;br /&gt;
%%% ytt+(EI/ro)yxxxx=-w(x)/ro=f(x)&lt;br /&gt;
%%% y(0,t)=y'(0,t)=y(L,t)=y'(L,t)=0&lt;br /&gt;
%%% y(x,0)=(1/3)*sin(8*pi*x/L); yt(x,0)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
ro=1;               % densidad&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=100;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% condiciones iniciales&lt;br /&gt;
y0=((1/3)*sin(8*pi*xi/L))';      % y(x,0) // column vector&lt;br /&gt;
z0=zeros(1,length(xi))';        % yt(x,0) // column vector&lt;br /&gt;
W0=[y0;z0];&lt;br /&gt;
&lt;br /&gt;
% f(x)=-w(x)/ro&lt;br /&gt;
w=1*(L/2-abs(xi-L/2));&lt;br /&gt;
f=-(w/ro)';         % vector columna&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=-(E*I/ro)*(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
% matriz Q=[O,I;K,O]&lt;br /&gt;
I=eye(N-1);O=zeros(N-1);&lt;br /&gt;
Q=[O,I;K,O];&lt;br /&gt;
&lt;br /&gt;
% partición temporal&lt;br /&gt;
tM=5;M=100;dt=tM/M;t=0:dt:tM;&lt;br /&gt;
&lt;br /&gt;
% theta=0(Euler),0.5(Crank-Nicholson),1(Euler implícito)&lt;br /&gt;
theta=1/2;  % Crank-Nicholson&lt;br /&gt;
&lt;br /&gt;
% matriz P=inv(L)*R&lt;br /&gt;
I2=eye(2*(N-1)); &lt;br /&gt;
L=I2-dt*theta*Q;&lt;br /&gt;
R=I2+dt*(1-theta)*Q;&lt;br /&gt;
% P=L\R;&lt;br /&gt;
&lt;br /&gt;
% término B&lt;br /&gt;
B=[zeros(length(f),1);f];&lt;br /&gt;
% B=[zeros(length(f),1);zeros(length(f),1)];&lt;br /&gt;
&lt;br /&gt;
% programa&lt;br /&gt;
W=zeros(2*(N-1),M+1);   &lt;br /&gt;
W(:,1)=W0;&lt;br /&gt;
&lt;br /&gt;
for n=1:M&lt;br /&gt;
    W(:,n+1)=L\(R*W(:,n)+dt*B);  &lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
Y=W(1:N-1,1:M+1);&lt;br /&gt;
Y0=zeros(1,M+1);&lt;br /&gt;
YN=zeros(1,M+1);&lt;br /&gt;
Y=[Y0;Y;YN];           &lt;br /&gt;
&lt;br /&gt;
figure(100)     % gráfico y(x,t)&lt;br /&gt;
[X,T]=meshgrid(x,t);&lt;br /&gt;
figure(100)&lt;br /&gt;
surf(X,T,Y') &lt;br /&gt;
&lt;br /&gt;
figure(200)     % curva y(0.5,t)&lt;br /&gt;
xc=0.5;&lt;br /&gt;
plot(t,Y(round(xc/dx+1),:))}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Obteniendo las siguientes gráficas:&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11940</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11940"/>
				<updated>2014-05-18T07:14:32Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Ecuación de viga apoyada en ambos extremos==&lt;br /&gt;
&lt;br /&gt;
El trabajo a realizar consiste en el estudio de la deflexión de una viga apoyada en ambos extremos, de sección trasversal S, sometida al momento de unas fuerzas (Fi) aplicadas sobre esta. Entendemos  como momento flector al producto de la fuerza por la distancia que hay entre la fuerza y el punto a estudiar. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:FLEXION.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección constante sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
Suponemos que el eje de la viga va en la dirección del eje X, ocupando un intervalo [0,L] de forma que estudiaremos la deflexión de ésta en su eje perpendicular, eje Y.&lt;br /&gt;
&lt;br /&gt;
Para estudiar dicha situación, la representamos por un problema de contorno que solucionamos mediante el método de diferencias finitas expuesto a continuación.&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Cabe destacar que las condiciones de frontera son nulas debido a que la viga, como nos requiere el enunciado, está apoyada en sus extremos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como datos tenemos:&lt;br /&gt;
&lt;br /&gt;
*El módulo de elasticidad (módulo de Young) que depende de las propiedades elásticas del material, y que en nuestro caso permanece constante&lt;br /&gt;
&lt;br /&gt;
*Conocemos como I(x) el momento de inercia de la sección transversal S respecto al centro (cuadrado de lado a=0.5 metros).&lt;br /&gt;
&lt;br /&gt;
*Finalmente disponemos del momento flector definido antes, M(x).&lt;br /&gt;
&lt;br /&gt;
*Longitud de la viga (L=10 metros):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano (x=5 m)  y de valor absoluto 0.16013 en sentido negativo del eje.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de viga dependiendo del valor del canto===&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales de la sección trasversal de la viga de forma que el canto (a) toma valores del intervalo [0.1,0.9]. A su vez, el ancho de la viga también cambia de forma que b=1-a. &lt;br /&gt;
&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes secciones de la viga, tomando como condición que el volumen se mantenga constante, con la finalidad de determinar en cuál de ellos se sufre la menor deflexión y, a su vez, la flecha máxima de la mayor deflexión&lt;br /&gt;
 &lt;br /&gt;
Numéricamente, el código que exponemos a continuación nos resuelve este apartado:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
Finalmente tenemos como resultado gráfico la deflexión con cada medida de canto del intervalo.También obtenemos las flechas máximas para cada valor de a.&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
:[[Archivo:Apartado2flecha.jpg|thumb|right|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973.&lt;br /&gt;
 &lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 con un valor de flecha de 1.112. Físicamente este fenómeno se explica debido a que a mayor canto de la viga menor deformación. Así, obligamos a que el canto de la sección trasversal de la viga sea lo más grande posible dentro del intervalo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x de forma que: &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores tenemos en cuenta que la condición que se nos impone es que el volumen total de la viga tiene que ser constante y de valor igual al de la viga de sección cuadrada de lado a=0.5 metros. &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
Necesitamos encontrar la relación entre los parámetros c y d siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Como resultado obtenemos que c=-0.0161 y d=0.54028 son los valores correspondientes a la viga con menor deflexión. &lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son (((((c=     y d=    )))) (Gráfica de viga con mayor reflexión).&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
&lt;br /&gt;
A continuación se presenta la situación de una viga encastrada en ambos extremos de ésta con la misma sección trasversal que en el problema inicial  (sección cuadrada de lado a=b=0.5 metros). En este caso abordamos el problema con cuatro condiciones de frontera ya que la ecuación de la viga que se nos proporciona es de orden 4.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:vigaencastrada3.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
Respecto al problema inicial encontramos varias diferencias:&lt;br /&gt;
&lt;br /&gt;
-	La viga en cuestión deja de estar apoyada en ambos extremos y pasa a estar encastrada en ellos.&lt;br /&gt;
 &lt;br /&gt;
-	La función deja de depender del momento flector y dependerá de la carga aplicada sobre ésta (W(x)).&lt;br /&gt;
 &lt;br /&gt;
Conservando los valores numéricos dados en el apartado 1 y siendo &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt; (dato) definimos el problema de contorno:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Buscamos plantear el método de diferencias finitas para aproximar las soluciones del problema anterior. Para obtenerlo usamos las siguientes aproximaciones:&lt;br /&gt;
  &lt;br /&gt;
:&amp;lt;math&amp;gt; y''''(x_j)=\frac{y(x_j-2)-4y(x_j-1)+6y(x_j)-4y(x_j+1)+y(x_j+2)}{h^4}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_0)=\frac{y(x_1)-y(x_-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_N)=\frac{y(x_N+1)-y(x_N-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;br /&gt;
&lt;br /&gt;
Al desarrollar el código numérico, calculamos el valor de mayor deflexión siendo este en valor absoluto 0.38064 y el punto en el que se alcanza es L/2=5.&lt;br /&gt;
[[Archivo:Apartado5vigacarga.jpg|thumb|left|400px|Gráfica con la carga y la deflexión.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga apoyada en sus extremos dependiendo del tiempo. Problema dinámico.==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el problema dinámico. En este caso la deflexión de la viga depende también del tiempo  y(x,t) quedando la ecuación:  &lt;br /&gt;
                                                        &lt;br /&gt;
:&amp;lt;math&amp;gt;ρy_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;quot;p&amp;quot; la densidad de la viga que mantendremos constante y de valor la unidad. De esta forma nuestra ecuación final será:&lt;br /&gt;
                                                       &lt;br /&gt;
:&amp;lt;math&amp;gt; y_tt + EIy_xxxx = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al tratarse de un problema dependiente de 2 variables necesitamos dos condiciones iniciales &amp;lt;math&amp;gt; y(x,0)=y_0(x) \ ; \ y_t(x,0)=y_(x)  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma planteamos el sistema de ecuaciones completo y su aproximación de diferencias finitas considerando el método del trapecio para resolver el problema en tiempo. &lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\ ky + b(t)\ , &amp;amp; \\ y(0)=y_0 \ , \\ y'(0)=z_0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
El código que a continuación mostramos nos permite calcular el sistema anteriomente mostrado siendo: &lt;br /&gt;
:&amp;lt;math&amp;gt; y(0,t)=sin(\frac{8pix}{L}) &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y_t(0,t)=0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además nos permitirá obtener el comportamiento de y(x,t) en el punto x=0.5 en un intervalo de t [0,5]:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% (ro)ytt+EIyxxxx=-w(x)&lt;br /&gt;
%%% ytt+(EI/ro)yxxxx=-w(x)/ro=f(x)&lt;br /&gt;
%%% y(0,t)=y'(0,t)=y(L,t)=y'(L,t)=0&lt;br /&gt;
%%% y(x,0)=(1/3)*sin(8*pi*x/L); yt(x,0)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
ro=1;               % densidad&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=100;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% condiciones iniciales&lt;br /&gt;
y0=((1/3)*sin(8*pi*xi/L))';      % y(x,0) // column vector&lt;br /&gt;
z0=zeros(1,length(xi))';        % yt(x,0) // column vector&lt;br /&gt;
W0=[y0;z0];&lt;br /&gt;
&lt;br /&gt;
% f(x)=-w(x)/ro&lt;br /&gt;
w=1*(L/2-abs(xi-L/2));&lt;br /&gt;
f=-(w/ro)';         % vector columna&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=-(E*I/ro)*(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
% matriz Q=[O,I;K,O]&lt;br /&gt;
I=eye(N-1);O=zeros(N-1);&lt;br /&gt;
Q=[O,I;K,O];&lt;br /&gt;
&lt;br /&gt;
% partición temporal&lt;br /&gt;
tM=5;M=100;dt=tM/M;t=0:dt:tM;&lt;br /&gt;
&lt;br /&gt;
% theta=0(Euler),0.5(Crank-Nicholson),1(Euler implícito)&lt;br /&gt;
theta=1/2;  % Crank-Nicholson&lt;br /&gt;
&lt;br /&gt;
% matriz P=inv(L)*R&lt;br /&gt;
I2=eye(2*(N-1)); &lt;br /&gt;
L=I2-dt*theta*Q;&lt;br /&gt;
R=I2+dt*(1-theta)*Q;&lt;br /&gt;
% P=L\R;&lt;br /&gt;
&lt;br /&gt;
% término B&lt;br /&gt;
B=[zeros(length(f),1);f];&lt;br /&gt;
% B=[zeros(length(f),1);zeros(length(f),1)];&lt;br /&gt;
&lt;br /&gt;
% programa&lt;br /&gt;
W=zeros(2*(N-1),M+1);   &lt;br /&gt;
W(:,1)=W0;&lt;br /&gt;
&lt;br /&gt;
for n=1:M&lt;br /&gt;
    W(:,n+1)=L\(R*W(:,n)+dt*B);  &lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
Y=W(1:N-1,1:M+1);&lt;br /&gt;
Y0=zeros(1,M+1);&lt;br /&gt;
YN=zeros(1,M+1);&lt;br /&gt;
Y=[Y0;Y;YN];           &lt;br /&gt;
&lt;br /&gt;
figure(100)     % gráfico y(x,t)&lt;br /&gt;
[X,T]=meshgrid(x,t);&lt;br /&gt;
figure(100)&lt;br /&gt;
surf(X,T,Y') &lt;br /&gt;
&lt;br /&gt;
figure(200)     % curva y(0.5,t)&lt;br /&gt;
xc=0.5;&lt;br /&gt;
plot(t,Y(round(xc/dx+1),:))}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Obteniendo las siguientes gráficas:&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11939</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11939"/>
				<updated>2014-05-18T07:02:29Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Ecuación de viga apoyada en ambos extremos==&lt;br /&gt;
&lt;br /&gt;
El trabajo a realizar consiste en el estudio de la deflexión de una viga apoyada en ambos extremos, de sección trasversal S, sometida al momento de unas fuerzas (Fi) aplicadas sobre esta. Entendemos  como momento flector al producto de la fuerza por la distancia que hay entre la fuerza y el punto a estudiar. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:FLEXION.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección constante sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
Suponemos que el eje de la viga va en la dirección del eje X, ocupando un intervalo [0,L] de forma que estudiaremos la deflexión de ésta en su eje perpendicular, eje Y.&lt;br /&gt;
&lt;br /&gt;
Para estudiar dicha situación, la representamos por un problema de contorno que solucionamos mediante el método de diferencias finitas expuesto a continuación.&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Cabe destacar que las condiciones de frontera son nulas debido a que la viga, como nos requiere el enunciado, está apoyada en sus extremos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como datos tenemos:&lt;br /&gt;
&lt;br /&gt;
*El módulo de elasticidad (módulo de Young) que depende de las propiedades elásticas del material, y que en nuestro caso permanece constante&lt;br /&gt;
&lt;br /&gt;
*Conocemos como I(x) el momento de inercia de la sección transversal S respecto al centro (cuadrado de lado a=0.5 metros).&lt;br /&gt;
&lt;br /&gt;
*Finalmente disponemos del momento flector definido antes, M(x).&lt;br /&gt;
&lt;br /&gt;
*Longitud de la viga (L=10 metros):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano (x=5 m)  y de valor absoluto 0.16013 en sentido negativo del eje.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de viga dependiendo del valor del canto===&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales de la sección trasversal de la viga de forma que el canto (a) toma valores del intervalo [0.1,0.9]. A su vez, el ancho de la viga también cambia de forma que b=1-a. &lt;br /&gt;
&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes secciones de la viga, tomando como condición que el volumen se mantenga constante, con la finalidad de determinar en cuál de ellos se sufre la menor deflexión y, a su vez, la flecha máxima de la mayor deflexión&lt;br /&gt;
 &lt;br /&gt;
Numéricamente, el código que exponemos a continuación nos resuelve este apartado:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
Finalmente tenemos como resultado gráfico la deflexión con cada medida de canto del intervalo.También obtenemos las flechas máximas para cada valor de a.&lt;br /&gt;
&lt;br /&gt;
:[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
:[[Archivo:Apartado2flecha.jpg|thumb|right|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973.&lt;br /&gt;
 &lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 con un valor de flecha de 1.112. Físicamente este fenómeno se explica debido a que a mayor canto de la viga menor deformación. Así, obligamos a que el canto de la sección trasversal de la viga sea lo más grande posible dentro del intervalo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores===&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x de forma que: &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores tenemos en cuenta que la condición que se nos impone es que el volumen total de la viga tiene que ser constante y de valor igual al de la viga de sección cuadrada de lado a=0.5 metros. &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
Necesitamos encontrar la relación entre los parámetros c y d siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Como resultado obtenemos que c=-0.0161 y d=0.54028 son los valores correspondientes a la viga con menor deflexión. &lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son (((((c=     y d=    )))) (Gráfica de viga con mayor reflexión).&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
&lt;br /&gt;
A continuación se presenta la situación de una viga encastrada en ambos extremos de ésta con la misma sección trasversal que en el problema inicial  (sección cuadrada de lado a=b=0.5 metros). En este caso abordamos el problema con cuatro condiciones de frontera ya que la ecuación de la viga que se nos proporciona es de orden 4.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:vigaencastrada3.jpg|thumb|left|200px|Flexión de una viga al ser sometida a una fuerza F.]]&lt;br /&gt;
&lt;br /&gt;
Respecto al problema inicial encontramos varias diferencias:&lt;br /&gt;
&lt;br /&gt;
-	La viga en cuestión deja de estar apoyada en ambos extremos y pasa a estar encastrada en ellos.&lt;br /&gt;
 &lt;br /&gt;
-	La función deja de depender del momento flector y dependerá de la carga aplicada sobre ésta (W(x)).&lt;br /&gt;
 &lt;br /&gt;
Conservando los valores numéricos dados en el apartado 1 y siendo &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt; (dato) definimos el problema de contorno:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Buscamos plantear el método de diferencias finitas para aproximar las soluciones del problema anterior. Para obtenerlo usamos las siguientes aproximaciones:&lt;br /&gt;
  &lt;br /&gt;
:&amp;lt;math&amp;gt; y''''(x_j)=\frac{y(x_j-2)-4y(x_j-1)+6y(x_j)-4y(x_j+1)+y(x_j+2)}{h^4}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_0)=\frac{y(x_1)-y(x_-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; y'(x_N)=\frac{y(x_N+1)-y(x_N-1)}{2h}+f(h^2)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;br /&gt;
&lt;br /&gt;
Al desarrollar el código numérico, calculamos el valor de mayor deflexión siendo este en valor absoluto 0.38064 y el punto en el que se alcanza es L/2=5.&lt;br /&gt;
[[Archivo:Apartado5vigacarga.jpg|thumb|left|400px|Gráfica con la carga y la deflexión.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga apoyada en sus extremos dependiendo del tiempo. Problema dinámico.==&lt;br /&gt;
&lt;br /&gt;
Consideramos ahora el problema dinámico. En este caso la deflexión de la viga depende también del tiempo  y(x,t) quedando la ecuación:  &lt;br /&gt;
                                                        &lt;br /&gt;
:&amp;lt;math&amp;gt;ρy_tt + EIy_xxxx&amp;lt;/sub&amp;gt; = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;quot;p&amp;quot; la densidad de la viga que mantendremos constante y de valor la unidad. De esta forma nuestra ecuación final será:&lt;br /&gt;
                                                       &lt;br /&gt;
:&amp;lt;math&amp;gt; y_tt + EIy_xxxx&amp;lt;/sub&amp;gt; = -w(x,t) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al tratarse de un problema dependiente de 2 variables necesitamos dos condiciones iniciales &amp;lt;math&amp;gt; y(x,0)=y0(x) \ ; \ yt(x,0)=y1(x)  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma planteamos el sistema de ecuaciones completo y su aproximación de diferencias finitas considerando el método del trapecio para resolver el problema en tiempo. &lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\ ky + b(t)\ , &amp;amp; \\ y(0)=y0 \ , \\ y'(0)=z0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
Numéricamente el código que resuelve este sistema:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% (ro)ytt+EIyxxxx=-w(x)&lt;br /&gt;
%%% ytt+(EI/ro)yxxxx=-w(x)/ro=f(x)&lt;br /&gt;
%%% y(0,t)=y'(0,t)=y(L,t)=y'(L,t)=0&lt;br /&gt;
%%% y(x,0)=(1/3)*sin(8*pi*x/L); yt(x,0)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
ro=1;               % densidad&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=100;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% condiciones iniciales&lt;br /&gt;
y0=((1/3)*sin(8*pi*xi/L))';      % y(x,0) // column vector&lt;br /&gt;
z0=zeros(1,length(xi))';        % yt(x,0) // column vector&lt;br /&gt;
W0=[y0;z0];&lt;br /&gt;
&lt;br /&gt;
% f(x)=-w(x)/ro&lt;br /&gt;
w=1*(L/2-abs(xi-L/2));&lt;br /&gt;
f=-(w/ro)';         % vector columna&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=-(E*I/ro)*(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
% matriz Q=[O,I;K,O]&lt;br /&gt;
I=eye(N-1);O=zeros(N-1);&lt;br /&gt;
Q=[O,I;K,O];&lt;br /&gt;
&lt;br /&gt;
% partición temporal&lt;br /&gt;
tM=5;M=100;dt=tM/M;t=0:dt:tM;&lt;br /&gt;
&lt;br /&gt;
% theta=0(Euler),0.5(Crank-Nicholson),1(Euler implícito)&lt;br /&gt;
theta=1/2;  % Crank-Nicholson&lt;br /&gt;
&lt;br /&gt;
% matriz P=inv(L)*R&lt;br /&gt;
I2=eye(2*(N-1)); &lt;br /&gt;
L=I2-dt*theta*Q;&lt;br /&gt;
R=I2+dt*(1-theta)*Q;&lt;br /&gt;
% P=L\R;&lt;br /&gt;
&lt;br /&gt;
% término B&lt;br /&gt;
B=[zeros(length(f),1);f];&lt;br /&gt;
% B=[zeros(length(f),1);zeros(length(f),1)];&lt;br /&gt;
&lt;br /&gt;
% programa&lt;br /&gt;
W=zeros(2*(N-1),M+1);   &lt;br /&gt;
W(:,1)=W0;&lt;br /&gt;
&lt;br /&gt;
for n=1:M&lt;br /&gt;
    W(:,n+1)=L\(R*W(:,n)+dt*B);  &lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
Y=W(1:N-1,1:M+1);&lt;br /&gt;
Y0=zeros(1,M+1);&lt;br /&gt;
YN=zeros(1,M+1);&lt;br /&gt;
Y=[Y0;Y;YN];           &lt;br /&gt;
&lt;br /&gt;
figure(100)     % gráfico y(x,t)&lt;br /&gt;
[X,T]=meshgrid(x,t);&lt;br /&gt;
figure(100)&lt;br /&gt;
surf(X,T,Y') &lt;br /&gt;
&lt;br /&gt;
figure(200)     % curva y(0.5,t)&lt;br /&gt;
xc=0.5;&lt;br /&gt;
plot(t,Y(round(xc/dx+1),:))}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Posteriormente calculamos la aproximación de la solución del sistema anterior dados los datos iniciales y la dibujamos en el tiempo. Dibujamos también el comportamiento y(x,t) en el punto x=0.5 metros y con el tiempo t perteneciente al intervalo [0,5].&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11720</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11720"/>
				<updated>2014-05-17T09:49:55Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección constante sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo a realizar consiste en el estudio de la deflexión de una viga apoyada en ambos extremos, de sección trasversal S, sometida al momento de unas fuerzas (Fi) aplicadas sobre esta. Entendemos  como momento flector al producto de la fuerza por la distancia que hay entre la fuerza y el punto a estudiar. &lt;br /&gt;
&lt;br /&gt;
Suponemos que el eje de la viga va en la dirección del eje X, ocupando un intervalo [0,L] de forma que estudiaremos la deflexión de ésta en su eje perpendicular, eje Y.&lt;br /&gt;
&lt;br /&gt;
Para estudiar dicha situación, la representamos por un problema de contorno que solucionamos mediante el método de diferencias finitas expuesto a continuación.&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
&lt;br /&gt;
Cabe destacar que las condiciones de frontera son nulas debido a que la viga, como nos requiere el enunciado, está apoyada en sus extremos.&lt;br /&gt;
&lt;br /&gt;
Como datos tenemos:&lt;br /&gt;
&lt;br /&gt;
- El módulo de elasticidad (módulo de Young) que depende de las propiedades elásticas del material, y que en nuestro caso permanece constante&lt;br /&gt;
&lt;br /&gt;
- Conocemos como I(x) el momento de inercia de la sección transversal S respecto al centro (cuadrado de lado a=0.5 metros).&lt;br /&gt;
&lt;br /&gt;
- Finalmente disponemos del momento flector definido antes, M(x).&lt;br /&gt;
&lt;br /&gt;
- Longitud de la viga (L=10 metros):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano (x=5 m)  y de valor absoluto 0.16013 en sentido negativo del eje, tal como hemos obtenido gracias al programa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales de la sección trasversal de la viga de forma que el canto (a) toma valores del intervalo [0.1,0.9]. A su vez, el ancho de la viga también cambia de forma que b=1-a. Con estos cambios, realizamos un estudio de diferentes secciones de la viga, tomando como condición que el volumen se mantenga constante, con la finalidad de determinar en cuál de ellos se sufre la menor deflexión y, a su vez, la flecha máxima de la mayor deflexión&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes diseños de sección de la viga para determinar en cual de ellos se sufre la menor deflexión, y a su vez la flecha máxima de la mayor deflexión. &lt;br /&gt;
Numéricamente, el código que exponemos a continuación nos resuelve este apartado:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
[[Archivo:Apartado2flecha.jpg|thumb|left|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973. &lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 con un valor de flecha de 1.112. Físicamente este fenómeno se explica debido a que a mayor canto de la viga menor deformación. Así, obligamos a que el canto de la sección trasversal de la viga sea lo más grande posible dentro del intervalo. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x de forma que: &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores hemos realizado la integración del volumen total: &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Siendo c=-0.0161 y d=0.54028 los valores correspondientes a la viga con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son c= y d= .&lt;br /&gt;
(Falta gráfica de viga con mayor deflexión)&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
A continuación se presenta la situación de una viga encastrada en ambos extremos de ésta con la misma sección trasversal que en el problema inicial  (sección cuadrada de lado a=b=0.5 metros). En este caso abordamos el problema con cuatro condiciones de frontera ya que la ecuación de la viga que se nos proporciona es de orden 4. Respecto al problema inicial encontramos varias diferencias:&lt;br /&gt;
-	La viga en cuestión deja de estar apoyada en ambos extremos y pasa a estar encastrada en ellos. &lt;br /&gt;
-	La función deja de depender del momento flector y dependerá de la carga aplicada sobre ésta (W(x)) &lt;br /&gt;
Conservando los valores numéricos dados en el apartado 1 y siendo w(x)=… Definimos el problema de contorno:&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
Conservándose además los valores de los datos del apartado 1, y siendo: &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Buscamos plantear el método de diferencias finitas para aproximar las soluciones del problema anterior. Para obtenerlo usamos las siguientes aproximaciones: (Datos del problema). El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;br /&gt;
[[Archivo:Apartado5vigacarga.jpg|thumb|left|400px|Gráfica con la carga y la deflexión.]]&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11265</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11265"/>
				<updated>2014-05-14T18:39:32Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección constante sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo realizado consiste en el estudio de la flexión de una viga sometida al momento de unas fuerzas aplicadas sobre esta.&lt;br /&gt;
Este problema se ve representado por un problema de contorno que solucionamos mediante el método de diferencias finitas.&lt;br /&gt;
Los datos iniciales de los que disponemos son:&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
siendo:&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
Cabe destacar que las condiciones de frontera nulas son debidas a que la viga está apoyada.&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano y de valor absoluto 0.16013, tal como hemos obtenido gracias al programa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales, el canto a en el intervalo [0.1;0.9] y el ancho b=1-a.&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes diseños de sección de la viga para determinar en cual de ellos se sufre la menor deflexión, y a su vez la flecha máxima de la mayor deflexión. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
[[Archivo:Apartado2flecha.jpg|thumb|left|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973m.&lt;br /&gt;
&lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 de valor 1.112m.&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x. &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores hemos realizado la integración del volumen total: &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Siendo c=-0.0161 y d=0.54028 los valores correspondientes a la viga con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son c= y d= .&lt;br /&gt;
(Falta gráfica de viga con mayor deflexión)&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
En este caso abordamos el problema con cuatro condiciones de frontera, ya que la ecuación de la viga es de orden 4. Además se diferencia del primer apartado en que la función ya no depende del momento flector M(x), sino de la carga aplicada W(x).&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
Conservándose además los valores de los datos del apartado 1, y siendo: &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;br /&gt;
[[Archivo:Apartado5vigacarga.jpg|thumb|left|400px|Gráfica con la carga y la deflexión.]]&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Apartado5vigacarga.jpg&amp;diff=11264</id>
		<title>Archivo:Apartado5vigacarga.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Apartado5vigacarga.jpg&amp;diff=11264"/>
				<updated>2014-05-14T18:39:04Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11263</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11263"/>
				<updated>2014-05-14T18:38:18Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección constante sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo realizado consiste en el estudio de la flexión de una viga sometida al momento de unas fuerzas aplicadas sobre esta.&lt;br /&gt;
Este problema se ve representado por un problema de contorno que solucionamos mediante el método de diferencias finitas.&lt;br /&gt;
Los datos iniciales de los que disponemos son:&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
siendo:&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
Cabe destacar que las condiciones de frontera nulas son debidas a que la viga está apoyada.&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano y de valor absoluto 0.16013, tal como hemos obtenido gracias al programa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales, el canto a en el intervalo [0.1;0.9] y el ancho b=1-a.&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes diseños de sección de la viga para determinar en cual de ellos se sufre la menor deflexión, y a su vez la flecha máxima de la mayor deflexión. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
[[Archivo:Apartado2flecha.jpg|thumb|left|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973m.&lt;br /&gt;
&lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 de valor 1.112m.&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x. &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores hemos realizado la integración del volumen total: &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Siendo c=-0.0161 y d=0.54028 los valores correspondientes a la viga con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son c= y d= .&lt;br /&gt;
(Falta gráfica de viga con mayor deflexión)&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
En este caso abordamos el problema con cuatro condiciones de frontera, ya que la ecuación de la viga es de orden 4. Además se diferencia del primer apartado en que la función ya no depende del momento flector M(x), sino de la carga aplicada W(x).&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
Conservándose además los valores de los datos del apartado 1, y siendo: &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;br /&gt;
[[Archivo:Apartado4y5.jpg|thumb|left|400px|Gráfica con la carga y la deflexión.]]&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11262</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11262"/>
				<updated>2014-05-14T18:36:03Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección constante sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo realizado consiste en el estudio de la flexión de una viga sometida al momento de unas fuerzas aplicadas sobre esta.&lt;br /&gt;
Este problema se ve representado por un problema de contorno que solucionamos mediante el método de diferencias finitas.&lt;br /&gt;
Los datos iniciales de los que disponemos son:&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
siendo:&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
Cabe destacar que las condiciones de frontera nulas son debidas a que la viga está apoyada.&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano y de valor absoluto 0.16013, tal como hemos obtenido gracias al programa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales, el canto a en el intervalo [0.1;0.9] y el ancho b=1-a.&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes diseños de sección de la viga para determinar en cual de ellos se sufre la menor deflexión, y a su vez la flecha máxima de la mayor deflexión. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
[[Archivo:Apartado2flecha.jpg|thumb|left|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973m.&lt;br /&gt;
&lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 de valor 1.112m.&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x. &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores hemos realizado la integración del volumen total: &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
Siendo c=-0.0161 y d=0.54028 los valores correspondientes a la viga con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Por el contrario los valores que dan una mayor deflexión son c= y d= .&lt;br /&gt;
(Falta gráfica de viga con mayor deflexión)&lt;br /&gt;
&lt;br /&gt;
== Flexión de una viga encastrada con sección constante sometida a una carga==&lt;br /&gt;
En este caso abordamos el problema con cuatro condiciones de frontera, ya que la ecuación de la viga es de orden 4. Además se diferencia del primer apartado en que la función ya no depende del momento flector M(x), sino de la carga aplicada W(x).&lt;br /&gt;
&lt;br /&gt;
\[\left\{\begin{matrix}y''''=\frac{-W(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ , &amp;amp; \\ y'(0)=0\ , \\ y'(L)=0\ , \end{matrix}\right.\]&lt;br /&gt;
Conservándose además los valores de los datos del apartado 1, y siendo: &amp;lt;math&amp;gt; \ W(x)= L/2- | x- L/2 | \ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El código que hemos desarrollado para la evaluación de este ejercicio es el que aquí mostramos:&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''''(x)=-w(x)/(EI)=g(x)=-f(x)&lt;br /&gt;
%%% y(0)=y'(0)=y(L)=y'(L)=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=10;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% g(x)&lt;br /&gt;
w=L/2-abs(xi-L/2);&lt;br /&gt;
g=-(w/(E*I))';       % vector columna&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=6*diag(ones(1,N-1))-4*diag(ones(1,N-2),1)-4*diag(ones(1,N-2),-1)+diag(ones(1,N-3),2)+diag(ones(1,N-3),-2);&lt;br /&gt;
KK(1,1)=7;KK(N-1,N-1)=7;&lt;br /&gt;
K=(1/dx^4)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\g;&lt;br /&gt;
&lt;br /&gt;
y=[0;y;0];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
W=L/2-abs(x-L/2);&lt;br /&gt;
plot(x,W,'r',x,y,'b')}}&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11259</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11259"/>
				<updated>2014-05-14T18:00:20Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección constante sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo realizado consiste en el estudio de la flexión de una viga sometida al momento de unas fuerzas aplicadas sobre esta.&lt;br /&gt;
Este problema se ve representado por un problema de contorno que solucionamos mediante el método de diferencias finitas.&lt;br /&gt;
Los datos iniciales de los que disponemos son:&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
siendo:&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
Cabe destacar que las condiciones de frontera nulas son debidas a que la viga está apoyada.&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano y de valor absoluto 0.16013, tal como hemos obtenido gracias al programa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales, el canto a en el intervalo [0.1;0.9] y el ancho b=1-a.&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes diseños de sección de la viga para determinar en cual de ellos se sufre la menor deflexión, y a su vez la flecha máxima de la mayor deflexión. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
[[Archivo:Apartado2flecha.jpg|thumb|left|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973m.&lt;br /&gt;
&lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 de valor 1.112m.&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x. &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores hemos realizado la integración del volumen total: &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} #pm \sqrt{a^2-\frac{c^2*L^4}{180} &amp;lt;/math&amp;gt;&lt;br /&gt;
El código que resuelve el problema es el que seguidamente aparece: &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;&lt;br /&gt;
c0=-.025;cf=-0.005;&lt;br /&gt;
dc=0.0005;&lt;br /&gt;
for c=c0:dc:cf         &lt;br /&gt;
    n=n+1;&lt;br /&gt;
    d=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180) &lt;br /&gt;
    a=c*(xi-L/2).^2+d; &lt;br /&gt;
    I=(1/12).*a.^4;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M./(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
     &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(100)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
    hold on&lt;br /&gt;
    end&lt;br /&gt;
hold off&lt;br /&gt;
figure(200)&lt;br /&gt;
plot(c0:dc:cf ,fle_max,'-or')&lt;br /&gt;
&lt;br /&gt;
figure(300) % perfil de la viga óptima&lt;br /&gt;
C=-0.0161&lt;br /&gt;
D=-(c*L^2/12)+sqrt((.5)^2-c^2*L^4/180)&lt;br /&gt;
A=C*(x-L/2).^2+D;&lt;br /&gt;
plot(x,A)}}&lt;br /&gt;
&lt;br /&gt;
siendo c=-0.0161 y d=0.54028 los valores correspondientes a la viga con menor deflexión&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11257</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11257"/>
				<updated>2014-05-14T17:51:54Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección constante sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo realizado consiste en el estudio de la flexión de una viga sometida al momento de unas fuerzas aplicadas sobre esta.&lt;br /&gt;
Este problema se ve representado por un problema de contorno que solucionamos mediante el método de diferencias finitas.&lt;br /&gt;
Los datos iniciales de los que disponemos son:&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
siendo:&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
Cabe destacar que las condiciones de frontera nulas son debidas a que la viga está apoyada.&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano y de valor absoluto 0.16013, tal como hemos obtenido gracias al programa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales, el canto a en el intervalo [0.1;0.9] y el ancho b=1-a.&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes diseños de sección de la viga para determinar en cual de ellos se sufre la menor deflexión, y a su vez la flecha máxima de la mayor deflexión. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
[[Archivo:Apartado2flecha.jpg|thumb|left|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973m.&lt;br /&gt;
&lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 de valor 1.112m.&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección cuadrada de lado variable sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El problema que a continuación se expone es equivalente al anterior, con la modificación de que el lado de la sección pasa a ser variable y dependiente de x. &lt;br /&gt;
:&amp;lt;math&amp;gt; a(x)=c*(x-L/2)^2 +d &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo c y d parámetros que eligiendo adecuadamente nos permitirán obtener el diseño con menor deflexión.&lt;br /&gt;
&lt;br /&gt;
Para obtener la relación entre estos valores hemos realizado la integración del volumen total: &lt;br /&gt;
:&amp;lt;math&amp;gt; L*a^2=\int_{0}^{L} [c(x-L/2)^2+d]^2 dx&amp;lt;/math&amp;gt;&lt;br /&gt;
siendo esta:&lt;br /&gt;
:&amp;lt;math&amp;gt; d=\frac{c*L^2}{12} &amp;lt;/math&amp;gt;&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11255</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11255"/>
				<updated>2014-05-14T17:39:01Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección constante sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo realizado consiste en el estudio de la flexión de una viga sometida al momento de unas fuerzas aplicadas sobre esta.&lt;br /&gt;
Este problema se ve representado por un problema de contorno que solucionamos mediante el método de diferencias finitas.&lt;br /&gt;
Los datos iniciales de los que disponemos son:&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
siendo:&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
Cabe destacar que las condiciones de frontera nulas son debidas a que la viga está apoyada.&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano y de valor absoluto 0.16013, tal como hemos obtenido gracias al programa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales, el canto a en el intervalo [0.1;0.9] y el ancho b=1-a.&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes diseños de sección de la viga para determinar en cual de ellos se sufre la menor deflexión, y a su vez la flecha máxima de la mayor deflexión. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
[[Archivo:Apartado2flecha.jpg|thumb|left|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de 0.00973m.&lt;br /&gt;
&lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 de valor 1.112m.&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11254</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11254"/>
				<updated>2014-05-14T17:37:17Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección constante sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo realizado consiste en el estudio de la flexión de una viga sometida al momento de unas fuerzas aplicadas sobre esta.&lt;br /&gt;
Este problema se ve representado por un problema de contorno que solucionamos mediante el método de diferencias finitas.&lt;br /&gt;
Los datos iniciales de los que disponemos son:&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
siendo:&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
Cabe destacar que las condiciones de frontera nulas son debidas a que la viga está apoyada.&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano y de valor absoluto 0.16013, tal como hemos obtenido gracias al programa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales, el canto a en el intervalo [0.1;0.9] y el ancho b=1-a.&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes diseños de sección de la viga para determinar en cual de ellos se sufre la menor deflexión, y a su vez la flecha máxima de la mayor deflexión. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado2viga.jpg|thumb|left|400px|Deflexiones sufridas para las diferentes secciones.]]&lt;br /&gt;
[[Archivo:Apartado2flecha.jpg|thumb|left|400px|Flechas máximas para las diferentes secciones.]]&lt;br /&gt;
&lt;br /&gt;
Hemos deducido que la menor deflexión se produce con a=0.7 y b=0.3 con una flecha de -0.00973m.&lt;br /&gt;
Por el contrario, la flecha máxima se obtiene con a=0.1 y b=0.9 de valor -1.112m.&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Apartado2flecha.jpg&amp;diff=11253</id>
		<title>Archivo:Apartado2flecha.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Apartado2flecha.jpg&amp;diff=11253"/>
				<updated>2014-05-14T17:28:08Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Apartado2viga.jpg&amp;diff=11252</id>
		<title>Archivo:Apartado2viga.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Apartado2viga.jpg&amp;diff=11252"/>
				<updated>2014-05-14T17:27:49Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11251</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11251"/>
				<updated>2014-05-14T17:27:29Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección constante sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo realizado consiste en el estudio de la flexión de una viga sometida al momento de unas fuerzas aplicadas sobre esta.&lt;br /&gt;
Este problema se ve representado por un problema de contorno que solucionamos mediante el método de diferencias finitas.&lt;br /&gt;
Los datos iniciales de los que disponemos son:&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
siendo:&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
Cabe destacar que las condiciones de frontera nulas son debidas a que la viga está apoyada.&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano y de valor absoluto 0.16013, tal como hemos obtenido gracias al programa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartado1.jpg|thumb|left|400px|Deflexión de la viga.]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales, el canto a en el intervalo [0.1;0.9] y el ancho b=1-a.&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes diseños de sección de la viga para determinar en cual de ellos se sufre la menor deflexión, y a su vez la flecha máxima de la mayor deflexión. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Apartado1.jpg&amp;diff=11250</id>
		<title>Archivo:Apartado1.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Apartado1.jpg&amp;diff=11250"/>
				<updated>2014-05-14T17:20:32Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: Deflexión de la viga.&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;Deflexión de la viga.&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11249</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11249"/>
				<updated>2014-05-14T17:19:21Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga con sección constante sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo realizado consiste en el estudio de la flexión de una viga sometida al momento de unas fuerzas aplicadas sobre esta.&lt;br /&gt;
Este problema se ve representado por un problema de contorno que solucionamos mediante el método de diferencias finitas.&lt;br /&gt;
Los datos iniciales de los que disponemos son:&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
siendo:&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
Cabe destacar que las condiciones de frontera nulas son debidas a que la viga está apoyada.&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;br /&gt;
&lt;br /&gt;
Como se puede ver en la siguiente gráfica, el punto de mayor deflexión es en el centro de vano y de valor absoluto 0.16013, tal como hemos obtenido gracias al programa. &lt;br /&gt;
&lt;br /&gt;
A continuación hemos ido variando los datos iniciales, el canto a en el intervalo [0.1;0.9] y el ancho b=1-a.&lt;br /&gt;
Con estos cambios, realizamos un estudio de diferentes diseños de sección de la viga para determinar en cual de ellos se sufre la menor deflexión, y a su vez la flecha máxima de la mayor deflexión. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
&lt;br /&gt;
n=0;fle_max=zeros(1,9);&lt;br /&gt;
for a=0.1:0.1:0.9      % altura sección rectangular&lt;br /&gt;
    n=n+1;&lt;br /&gt;
    b=1-a;              % anchura sección rectangular&lt;br /&gt;
    I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
    &lt;br /&gt;
    % f(x)&lt;br /&gt;
    f=(M/(E*I))';       % vector columna&lt;br /&gt;
    f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
    f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
    &lt;br /&gt;
    %solución&lt;br /&gt;
    y=K\f;&lt;br /&gt;
    &lt;br /&gt;
    y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
    fle_max(n)=-max(abs(y));&lt;br /&gt;
    &lt;br /&gt;
    % el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
    % es en L/2, claro&lt;br /&gt;
    &lt;br /&gt;
    % dibujamos&lt;br /&gt;
    figure(314)&lt;br /&gt;
    hold on&lt;br /&gt;
    plot(x,y)&lt;br /&gt;
end&lt;br /&gt;
 fle_max(n)=-max(abs(y))&lt;br /&gt;
hold off&lt;br /&gt;
figure(628)&lt;br /&gt;
plot(0.1:0.1:0.9,fle_max,'-or')}}&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11246</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11246"/>
				<updated>2014-05-14T16:51:27Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Ecuación de vigas. Grupo 13-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo realizado consiste en el estudio de la flexión de una viga sometida al momento de unas fuerzas aplicadas sobre esta.&lt;br /&gt;
Este problema se ve representado por un problema de contorno que solucionamos mediante el método de diferencias finitas.&lt;br /&gt;
Los datos iniciales de los que disponemos son:&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
siendo:&lt;br /&gt;
&amp;lt;math&amp;gt; L=10 \  ;  \ E= 5*10^4 \  ;  \ M(x)= L/2- | x- L/2 | \  ;  \ I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
Cabe destacar que las condiciones de frontera nulas son debidas a que la viga está apoyada.&lt;br /&gt;
&lt;br /&gt;
El código Matlab empleado para su estudio es : &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%%% y''(x)=M(x)/(EI)=f(x), y(0)=y0=0,y(L)=yL=0&lt;br /&gt;
&lt;br /&gt;
clear all&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
% datos generales&lt;br /&gt;
L=10;               % longitud viga&lt;br /&gt;
E=5E4;              % módulo de Young&lt;br /&gt;
a=0.5;              % altura sección rectangular&lt;br /&gt;
b=1-a;              % anchura sección rectangular&lt;br /&gt;
I=(1/12)*b*a^3;     % momento de inercia&lt;br /&gt;
&lt;br /&gt;
% partición espacial&lt;br /&gt;
x0=0;xN=L;&lt;br /&gt;
N=50;dx=(xN-x0)/N;&lt;br /&gt;
x=x0:dx:xN;&lt;br /&gt;
xi=(x0+dx):dx:(xN-dx);&lt;br /&gt;
&lt;br /&gt;
% f(x)&lt;br /&gt;
y0=0;yL=0;&lt;br /&gt;
M=L/2-abs(xi-L/2);&lt;br /&gt;
f=(M/(E*I))';       % vector columna&lt;br /&gt;
f(1)=f(1)-y0/(dx^2);&lt;br /&gt;
f(N-1)=f(N-1)-yL/(dx^2);&lt;br /&gt;
&lt;br /&gt;
% matriz K&lt;br /&gt;
KK=-2*diag(ones(1,N-1))+diag(ones(1,N-2),1)+diag(ones(1,N-2),-1);&lt;br /&gt;
K=(1/dx^2)*KK;  &lt;br /&gt;
&lt;br /&gt;
%solución&lt;br /&gt;
y=K\f;&lt;br /&gt;
&lt;br /&gt;
y=[y0;y;yL];            % añadimos los valores del contorno&lt;br /&gt;
fle_max=-max(abs(y))&lt;br /&gt;
&lt;br /&gt;
% el valor de x en el que se da la flecha máxima hay que calcularlo&lt;br /&gt;
% es en L/2, claro&lt;br /&gt;
&lt;br /&gt;
% dibujamos&lt;br /&gt;
figure(314)&lt;br /&gt;
plot(x,y)}}&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11245</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11245"/>
				<updated>2014-05-14T16:42:04Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Modelo predador-presa. Grupo 6-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
&lt;br /&gt;
==Flexión de una viga sometida a momentos flectores==&lt;br /&gt;
&lt;br /&gt;
El trabajo realizado consiste en el estudio de la flexión de una viga sometida al momento de unas fuerzas aplicadas sobre esta.&lt;br /&gt;
Este problema se ve representado por un problema de contorno que solucionamos mediante el método de diferencias finitas.&lt;br /&gt;
Los datos iniciales de los que disponemos son:&lt;br /&gt;
\[\left\{\begin{matrix}\ y''=\frac{M(x)}{E I(x)}\ , &amp;amp; \\ y(0)=0 \ , \\ y(L)=0\ &amp;amp; \end{matrix}\right.\]&lt;br /&gt;
donde:&lt;br /&gt;
:&amp;lt;math&amp;gt; L=10  &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt;E= 5*10^4 &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt; M(x)= L/2- | x- L/2 |  &amp;lt;/math&amp;gt;&lt;br /&gt;
:&amp;lt;math&amp;gt;I(x)= \frac {a*b^3}{12}  &amp;lt;/math&amp;gt;&lt;br /&gt;
Cabe destacar que las condiciones de frontera nulas son debidas a que la viga está apoyada.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
 [[Categoría:ED13/14]]&lt;br /&gt;
 [[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11244</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11244"/>
				<updated>2014-05-14T16:17:55Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Modelo predador-presa. Grupo 6-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
 [[Categoría:ED13/14]]&lt;br /&gt;
 [[Categoría:Trabajos 2013-14]]&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11243</id>
		<title>Ecuacion de vigas</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Ecuacion_de_vigas&amp;diff=11243"/>
				<updated>2014-05-14T16:17:18Z</updated>
		
		<summary type="html">&lt;p&gt;Cristina: Página creada con «{{ TrabajoED | Modelo predador-presa. Grupo 6-B | Ecuaciones Diferenciales|Curso 2013-14 |Mónica Gómez, N...»&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Modelo predador-presa. Grupo 6-B | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED13/14|Curso 2013-14]] |Mónica Gómez, Noemí Ortiz, Alicia Chacón, Miguel Sánchez, Cristina Jiménez}}&lt;/div&gt;</summary>
		<author><name>Cristina</name></author>	</entry>

	</feed>