<?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=NoemiP</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=NoemiP"/>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/wiki/Especial:Contribuciones/NoemiP"/>
		<updated>2026-05-01T11:58:05Z</updated>
		<subtitle>Contribuciones del usuario</subtitle>
		<generator>MediaWiki 1.26.2</generator>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35731</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35731"/>
				<updated>2016-05-03T21:24:50Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L], estudiaremos la gráfica par un intervalo de b [-10,10] y para valores positivos de b[0,10]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bpositiva1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 y 7  tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, hemos tomado valores&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1)&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
A partir de este programa, hemos creado los distintos valores máximos y mínimos de las cargas críticas.&lt;br /&gt;
&lt;br /&gt;
Se puede deducir  que para radios pequeños la carga crítica será menor, y para radios mayores la carga crítica será mayor. Esto es porque tanto la carga crítica como la inercia dependen del radio, y al ir multiplicados, radios mayores  darán cargas críticas mayores.&lt;br /&gt;
&lt;br /&gt;
También se puede comprobar que en el apartado 4 de este trabajo, se llega la misma conclusión, comparando los momentos de inercia del cuadrado y del rectángulo, solo que en este caso hay que añadir que el radio es otra variable y no es constante, es variable.&lt;br /&gt;
&lt;br /&gt;
'''6.2.1	Valores de la carga crítica en función del parámetro b ''&lt;br /&gt;
&lt;br /&gt;
Vamos a representar de las cargas críticas dependiendo del valor b , así como la gráfica de cargas críticas para n=1 para diferentes valores de b&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,A)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,p)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Bypcr.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Observamos que en ambas gráficas se cumple que a mayor valor de b mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
Al igual que se ha hecho en apartados anteriores hemos elaborado un gráfico que represente los radios ( que en este caso dependerán de x , R(x)) y las cargas críticas para n=1&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rfrenteap1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Estudiando la figura 11 llegamos a la misma conclusión que anteriormente, un mayor radio implica una mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''6.2.2	Valor  de R para Prc máximo y mínimo'''&lt;br /&gt;
&lt;br /&gt;
Hemos hallado los valores mínimos y máximos de '''r''', R(x) y a Pcr son directamente proporcionales, por ello hemos utilizados los comando max y min para obtener estos valores.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((8.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end &lt;br /&gt;
 end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    H(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
&lt;br /&gt;
    end&lt;br /&gt;
     &lt;br /&gt;
p=  H(:,1);&lt;br /&gt;
  for i=1:length(r)&lt;br /&gt;
      for i=1:length(r)&lt;br /&gt;
      Rmin(i)=min(r(i,:));&lt;br /&gt;
      end&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
      Rmax(i)=max(r(i,:));&lt;br /&gt;
     end &lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*Rmin(i)^4.*K);&lt;br /&gt;
    P(i,:)=eig(1.2.*0.25*pi.*Rmax(i)^4.*K);&lt;br /&gt;
    end&lt;br /&gt;
   t= A(:,1);  &lt;br /&gt;
    m= P(:,1);  &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
figure(1)&lt;br /&gt;
plot(min(Rmin),min(t),'*')&lt;br /&gt;
xlabel(' Rmin')&lt;br /&gt;
ylabel(' Prc minimo')&lt;br /&gt;
figure(2)&lt;br /&gt;
plot(max(Rmax),max(m),'*')&lt;br /&gt;
xlabel('Rmax')&lt;br /&gt;
ylabel(' Pcr maximo')&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
rmin=(min(Rmin))&lt;br /&gt;
prcmin=(min(t))&lt;br /&gt;
rmax=(max(Rmax))&lt;br /&gt;
pcrmax=(max(m))&lt;br /&gt;
G=[t,m]&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Maximosss.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
La carga crítica máxima se alcanza en  2.0967e+17 con un radio máximo de 3.6760e+04&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Minimoos.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
La carga crítica mínima se alcanza en 0 con un radio minimo de 1&lt;br /&gt;
&lt;br /&gt;
Hemos representados las cargas mínimas y máximas en dos columnas ( su longitud es de 91x1) pero al repetirse los valores sólo hemos hecho captura a lo más relevante &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Columnaspcr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Para comparar la ganancia ( pcr con radio variable entre pcr con radio constante) se ha creado un programa matlab &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
B(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=B(:,1);&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
t=A(:,1);&lt;br /&gt;
G=100*(t./p)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
El programa nos saca por pantalla el valor ( %) de la ganancia &lt;br /&gt;
[[Archivo:Tablaganancias.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Tablaganancias.png&amp;diff=35730</id>
		<title>Archivo:Tablaganancias.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Tablaganancias.png&amp;diff=35730"/>
				<updated>2016-05-03T21:22:49Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35728</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35728"/>
				<updated>2016-05-03T20:01:34Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L], estudiaremos la gráfica par un intervalo de b [-10,10] y para valores positivos de b[0,10]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bpositiva1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 y 7  tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, hemos tomado valores&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1)&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
A partir de este programa, hemos creado los distintos valores máximos y mínimos de las cargas críticas.&lt;br /&gt;
&lt;br /&gt;
Se puede deducir  que para radios pequeños la carga crítica será menor, y para radios mayores la carga crítica será mayor. Esto es porque tanto la carga crítica como la inercia dependen del radio, y al ir multiplicados, radios mayores  darán cargas críticas mayores.&lt;br /&gt;
&lt;br /&gt;
También se puede comprobar que en el apartado 4 de este trabajo, se llega la misma conclusión, comparando los momentos de inercia del cuadrado y del rectángulo, solo que en este caso hay que añadir que el radio es otra variable y no es constante, es variable.&lt;br /&gt;
&lt;br /&gt;
'''6.2.1	Valores de la carga crítica en función del parámetro b ''&lt;br /&gt;
&lt;br /&gt;
Vamos a representar de las cargas críticas dependiendo del valor b , así como la gráfica de cargas críticas para n=1 para diferentes valores de b&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,A)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,p)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Bypcr.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Observamos que en ambas gráficas se cumple que a mayor valor de b mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
Al igual que se ha hecho en apartados anteriores hemos elaborado un gráfico que represente los radios ( que en este caso dependerán de x , R(x)) y las cargas críticas para n=1&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rfrenteap1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Estudiando la figura 11 llegamos a la misma conclusión que anteriormente, un mayor radio implica una mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''6.2.2	Valor  de R para Prc máximo y mínimo'''&lt;br /&gt;
&lt;br /&gt;
Hemos hallado los valores mínimos y máximos de '''r''', R(x) y a Pcr son directamente proporcionales, por ello hemos utilizados los comando max y min para obtener estos valores.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((8.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end &lt;br /&gt;
 end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    H(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
&lt;br /&gt;
    end&lt;br /&gt;
     &lt;br /&gt;
p=  H(:,1);&lt;br /&gt;
  for i=1:length(r)&lt;br /&gt;
      for i=1:length(r)&lt;br /&gt;
      Rmin(i)=min(r(i,:));&lt;br /&gt;
      end&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
      Rmax(i)=max(r(i,:));&lt;br /&gt;
     end &lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*Rmin(i)^4.*K);&lt;br /&gt;
    P(i,:)=eig(1.2.*0.25*pi.*Rmax(i)^4.*K);&lt;br /&gt;
    end&lt;br /&gt;
   t= A(:,1);  &lt;br /&gt;
    m= P(:,1);  &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
figure(1)&lt;br /&gt;
plot(min(Rmin),min(t),'*')&lt;br /&gt;
xlabel(' Rmin')&lt;br /&gt;
ylabel(' Prc minimo')&lt;br /&gt;
figure(2)&lt;br /&gt;
plot(max(Rmax),max(m),'*')&lt;br /&gt;
xlabel('Rmax')&lt;br /&gt;
ylabel(' Pcr maximo')&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
rmin=(min(Rmin))&lt;br /&gt;
prcmin=(min(t))&lt;br /&gt;
rmax=(max(Rmax))&lt;br /&gt;
pcrmax=(max(m))&lt;br /&gt;
G=[t,m]&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Maximosss.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
La carga crítica máxima se alcanza en  2.0967e+17 con un radio máximo de 3.6760e+04&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Minimoos.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
La carga crítica mínima se alcanza en 0 con un radio minimo de 1&lt;br /&gt;
&lt;br /&gt;
Hemos representados las cargas mínimas y máximas en dos columnas ( su longitud es de 91x1) pero al repetirse los valores sólo hemos hecho captura a lo más relevante &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Columnaspcr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Columnaspcr.png&amp;diff=35727</id>
		<title>Archivo:Columnaspcr.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Columnaspcr.png&amp;diff=35727"/>
				<updated>2016-05-03T20:01:11Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Minimoos.jpg&amp;diff=35726</id>
		<title>Archivo:Minimoos.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Minimoos.jpg&amp;diff=35726"/>
				<updated>2016-05-03T19:58:44Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Maximosss.jpg&amp;diff=35725</id>
		<title>Archivo:Maximosss.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Maximosss.jpg&amp;diff=35725"/>
				<updated>2016-05-03T19:56:09Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35724</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35724"/>
				<updated>2016-05-03T19:54:56Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L], estudiaremos la gráfica par un intervalo de b [-10,10] y para valores positivos de b[0,10]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bpositiva1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 y 7  tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, hemos tomado valores&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1)&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
A partir de este programa, hemos creado los distintos valores máximos y mínimos de las cargas críticas.&lt;br /&gt;
&lt;br /&gt;
Se puede deducir  que para radios pequeños la carga crítica será menor, y para radios mayores la carga crítica será mayor. Esto es porque tanto la carga crítica como la inercia dependen del radio, y al ir multiplicados, radios mayores  darán cargas críticas mayores.&lt;br /&gt;
&lt;br /&gt;
También se puede comprobar que en el apartado 4 de este trabajo, se llega la misma conclusión, comparando los momentos de inercia del cuadrado y del rectángulo, solo que en este caso hay que añadir que el radio es otra variable y no es constante, es variable.&lt;br /&gt;
&lt;br /&gt;
'''6.2.1	Valores de la carga crítica en función del parámetro b ''&lt;br /&gt;
&lt;br /&gt;
Vamos a representar de las cargas críticas dependiendo del valor b , así como la gráfica de cargas críticas para n=1 para diferentes valores de b&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,A)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,p)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Bypcr.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Observamos que en ambas gráficas se cumple que a mayor valor de b mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
Al igual que se ha hecho en apartados anteriores hemos elaborado un gráfico que represente los radios ( que en este caso dependerán de x , R(x)) y las cargas críticas para n=1&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rfrenteap1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Estudiando la figura 11 llegamos a la misma conclusión que anteriormente, un mayor radio implica una mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''6.2.2	Valor  de R para Prc máximo y mínimo'''&lt;br /&gt;
&lt;br /&gt;
Hemos hallado los valores mínimos y máximos de '''r''', R(x) y a Pcr son directamente proporcionales, por ello hemos utilizados los comando max y min para obtener estos valores.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((8.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end &lt;br /&gt;
 end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    H(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
&lt;br /&gt;
    end&lt;br /&gt;
     &lt;br /&gt;
p=  H(:,1);&lt;br /&gt;
  for i=1:length(r)&lt;br /&gt;
      for i=1:length(r)&lt;br /&gt;
      Rmin(i)=min(r(i,:));&lt;br /&gt;
      end&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
      Rmax(i)=max(r(i,:));&lt;br /&gt;
     end &lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*Rmin(i)^4.*K);&lt;br /&gt;
    P(i,:)=eig(1.2.*0.25*pi.*Rmax(i)^4.*K);&lt;br /&gt;
    end&lt;br /&gt;
   t= A(:,1);  &lt;br /&gt;
    m= P(:,1);  &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
figure(1)&lt;br /&gt;
plot(min(Rmin),min(t),'*')&lt;br /&gt;
xlabel(' Rmin')&lt;br /&gt;
ylabel(' Prc minimo')&lt;br /&gt;
figure(2)&lt;br /&gt;
plot(max(Rmax),max(m),'*')&lt;br /&gt;
xlabel('Rmax')&lt;br /&gt;
ylabel(' Pcr maximo')&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
rmin=(min(Rmin))&lt;br /&gt;
prcmin=(min(t))&lt;br /&gt;
rmax=(max(Rmax))&lt;br /&gt;
pcrmax=(max(m))&lt;br /&gt;
G=[t,m]&lt;br /&gt;
}}&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35718</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35718"/>
				<updated>2016-05-03T19:30:57Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L], estudiaremos la gráfica par un intervalo de b [-10,10] y para valores positivos de b[0,10]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bpositiva1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 y 7  tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, hemos tomado valores&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1)&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
A partir de este programa, hemos creado los distintos valores máximos y mínimos de las cargas críticas.&lt;br /&gt;
&lt;br /&gt;
Se puede deducir  que para radios pequeños la carga crítica será menor, y para radios mayores la carga crítica será mayor. Esto es porque tanto la carga crítica como la inercia dependen del radio, y al ir multiplicados, radios mayores  darán cargas críticas mayores.&lt;br /&gt;
&lt;br /&gt;
También se puede comprobar que en el apartado 4 de este trabajo, se llega la misma conclusión, comparando los momentos de inercia del cuadrado y del rectángulo, solo que en este caso hay que añadir que el radio es otra variable y no es constante, es variable.&lt;br /&gt;
&lt;br /&gt;
'''6.2.1	Valores de la carga crítica en función del parámetro b ''&lt;br /&gt;
&lt;br /&gt;
Vamos a representar de las cargas críticas dependiendo del valor b , así como la gráfica de cargas críticas para n=1 para diferentes valores de b&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,A)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,p)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Bypcr.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Observamos que en ambas gráficas se cumple que a mayor valor de b mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
Al igual que se ha hecho en apartados anteriores hemos elaborado un gráfico que represente los radios ( que en este caso dependerán de x , R(x)) y las cargas críticas para n=1&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rfrenteap1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Estudiando la figura 11 llegamos a la misma conclusión que anteriormente, un mayor radio implica una mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''6.2.2	Valor  de R para Prc máximo y mínimo'''&lt;br /&gt;
&lt;br /&gt;
Hemos hallado los valores mínimos y máximos de '''r''', R(x) y a Pcr son directamente proporcionales, por ello hemos utilizados los comando max y min para obtener estos valores.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((8.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end &lt;br /&gt;
 end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    H(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
&lt;br /&gt;
    end&lt;br /&gt;
     &lt;br /&gt;
p=  H(:,1);&lt;br /&gt;
  for i=1:length(r)&lt;br /&gt;
      for i=1:length(r)&lt;br /&gt;
      Rmin(i)=min(r(i,:));&lt;br /&gt;
      end&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
      Rmax(i)=max(r(i,:))&lt;br /&gt;
     end &lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*Rmin(i)^4.*K);&lt;br /&gt;
    P(i,:)=eig(1.2.*0.25*pi.*Rmax(i)^4.*K);&lt;br /&gt;
    end&lt;br /&gt;
   t= A(:,1);  &lt;br /&gt;
    m= P(:,1);  &lt;br /&gt;
&lt;br /&gt;
 for i=1:length(t)&lt;br /&gt;
     pmax(i)=max(t(i,:));&lt;br /&gt;
 end&lt;br /&gt;
  for i=1:length(m)&lt;br /&gt;
     pmin(i)=min(m(i,:));&lt;br /&gt;
 end&lt;br /&gt;
&lt;br /&gt;
figure(1)&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure(2)&lt;br /&gt;
plot(r,pmax)&lt;br /&gt;
figure(3)&lt;br /&gt;
plot(r,pmin)&lt;br /&gt;
figure(4)&lt;br /&gt;
plot(p,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35717</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35717"/>
				<updated>2016-05-03T19:30:09Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L], estudiaremos la gráfica par un intervalo de b [-10,10] y para valores positivos de b[0,10]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bpositiva1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 y 7  tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, hemos tomado valores&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1)&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
A partir de este programa, hemos creado los distintos valores máximos y mínimos de las cargas críticas.&lt;br /&gt;
&lt;br /&gt;
Se puede deducir  que para radios pequeños la carga crítica será menor, y para radios mayores la carga crítica será mayor. Esto es porque tanto la carga crítica como la inercia dependen del radio, y al ir multiplicados, radios mayores  darán cargas críticas mayores.&lt;br /&gt;
&lt;br /&gt;
También se puede comprobar que en el apartado 4 de este trabajo, se llega la misma conclusión, comparando los momentos de inercia del cuadrado y del rectángulo, solo que en este caso hay que añadir que el radio es otra variable y no es constante, es variable.&lt;br /&gt;
&lt;br /&gt;
'''6.2.1	Valores de la carga crítica en función del parámetro b ''&lt;br /&gt;
&lt;br /&gt;
Vamos a representar de las cargas críticas dependiendo del valor b , así como la gráfica de cargas críticas para n=1 para diferentes valores de b&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,A)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,p)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Observamos que en ambas gráficas se cumple que a mayor valor de b mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
Al igual que se ha hecho en apartados anteriores hemos elaborado un gráfico que represente los radios ( que en este caso dependerán de x , R(x)) y las cargas críticas para n=1&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rfrenteap1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Estudiando la figura 11 llegamos a la misma conclusión que anteriormente, un mayor radio implica una mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''6.2.2	Valor  de R para Prc máximo y mínimo'''&lt;br /&gt;
&lt;br /&gt;
Hemos hallado los valores mínimos y máximos de '''r''', R(x) y a Pcr son directamente proporcionales, por ello hemos utilizados los comando max y min para obtener estos valores.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((8.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end &lt;br /&gt;
 end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    H(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
&lt;br /&gt;
    end&lt;br /&gt;
     &lt;br /&gt;
p=  H(:,1);&lt;br /&gt;
  for i=1:length(r)&lt;br /&gt;
      for i=1:length(r)&lt;br /&gt;
      Rmin(i)=min(r(i,:));&lt;br /&gt;
      end&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
      Rmax(i)=max(r(i,:))&lt;br /&gt;
     end &lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*Rmin(i)^4.*K);&lt;br /&gt;
    P(i,:)=eig(1.2.*0.25*pi.*Rmax(i)^4.*K);&lt;br /&gt;
    end&lt;br /&gt;
   t= A(:,1);  &lt;br /&gt;
    m= P(:,1);  &lt;br /&gt;
&lt;br /&gt;
 for i=1:length(t)&lt;br /&gt;
     pmax(i)=max(t(i,:));&lt;br /&gt;
 end&lt;br /&gt;
  for i=1:length(m)&lt;br /&gt;
     pmin(i)=min(m(i,:));&lt;br /&gt;
 end&lt;br /&gt;
&lt;br /&gt;
figure(1)&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure(2)&lt;br /&gt;
plot(r,pmax)&lt;br /&gt;
figure(3)&lt;br /&gt;
plot(r,pmin)&lt;br /&gt;
figure(4)&lt;br /&gt;
plot(p,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35713</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35713"/>
				<updated>2016-05-03T19:24:07Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L], estudiaremos la gráfica par un intervalo de b [-10,10] y para valores positivos de b[0,10]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bpositiva1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 y 7  tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, hemos tomado valores&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1)&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
A partir de este programa, hemos creado los distintos valores máximos y mínimos de las cargas críticas.&lt;br /&gt;
&lt;br /&gt;
Se puede deducir  que para radios pequeños la carga crítica será menor, y para radios mayores la carga crítica será mayor. Esto es porque tanto la carga crítica como la inercia dependen del radio, y al ir multiplicados, radios mayores  darán cargas críticas mayores.&lt;br /&gt;
&lt;br /&gt;
También se puede comprobar que en el apartado 4 de este trabajo, se llega la misma conclusión, comparando los momentos de inercia del cuadrado y del rectángulo, solo que en este caso hay que añadir que el radio es otra variable y no es constante, es variable.&lt;br /&gt;
&lt;br /&gt;
'''6.2.1	Valores de la carga crítica en función del parámetro b ''&lt;br /&gt;
&lt;br /&gt;
Vamos a representar de las cargas críticas dependiendo del valor b , así como la gráfica de cargas críticas para n=1 para diferentes valores de b&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,A)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,p)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Observamos que en ambas gráficas se cumple que a mayor valor de b mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
Al igual que se ha hecho en apartados anteriores hemos elaborado un gráfico que represente los radios ( que en este caso dependerán de x , R(x)) y las cargas críticas para n=1&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rfrenteap1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Estudiando la figura 11 llegamos a la misma conclusión que anteriormente, un mayor radio implica una mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35712</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35712"/>
				<updated>2016-05-03T19:22:11Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L], estudiaremos la gráfica par un intervalo de b [-10,10] y para valores positivos de b[0,10]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bpositiva1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 y 7  tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, hemos tomado valores&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1)&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
A partir de este programa, hemos creado los distintos valores máximos y mínimos de las cargas críticas.&lt;br /&gt;
&lt;br /&gt;
Se puede deducir  que para radios pequeños la carga crítica será menor, y para radios mayores la carga crítica será mayor. Esto es porque tanto la carga crítica como la inercia dependen del radio, y al ir multiplicados, radios mayores  darán cargas críticas mayores.&lt;br /&gt;
&lt;br /&gt;
También se puede comprobar que en el apartado 4 de este trabajo, se llega la misma conclusión, comparando los momentos de inercia del cuadrado y del rectángulo, solo que en este caso hay que añadir que el radio es otra variable y no es constante, es variable.&lt;br /&gt;
&lt;br /&gt;
'''6.2.1	Valores de la carga crítica en función del parámetro b ''&lt;br /&gt;
&lt;br /&gt;
Vamos a representar de las cargas críticas dependiendo del valor b , así como la gráfica de cargas críticas para n=1 para diferentes valores de b&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,A)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,p)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Observamos que en ambas gráficas se cumple que a mayor valor de b mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
Al igual que se ha hecho en apartados anteriores hemos elaborado un gráfico que represente los radios ( que en este caso dependerán de x , R(x)) y las cargas críticas para n=1&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rfrenteap1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Estudiando la figura 11 llegamos a la misma conclusión que anteriormente, un mayor radio implica una mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''6.2.2	Valor mínimo de Pcr en función del radio'''&lt;br /&gt;
[[Archivo:Figura8pcr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
El valor mínimo que alcanza la carga crítica es '''0.1148'''&lt;br /&gt;
&lt;br /&gt;
'''6.2.3	Valor máximo de Pcr en función del radio'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura9radiosmax.png|centro]]&lt;br /&gt;
&lt;br /&gt;
El valor máximo de la carga crítica es '''11483'''&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Rfrenteap1.jpg&amp;diff=35711</id>
		<title>Archivo:Rfrenteap1.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Rfrenteap1.jpg&amp;diff=35711"/>
				<updated>2016-05-03T19:20:45Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Rfrenteap.jpg&amp;diff=35707</id>
		<title>Archivo:Rfrenteap.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Rfrenteap.jpg&amp;diff=35707"/>
				<updated>2016-05-03T19:15:15Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35703</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35703"/>
				<updated>2016-05-03T19:13:28Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L], estudiaremos la gráfica par un intervalo de b [-10,10] y para valores positivos de b[0,10]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bpositiva1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 y 7  tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, hemos tomado valores&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1)&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
A partir de este programa, hemos creado los distintos valores máximos y mínimos de las cargas críticas.&lt;br /&gt;
&lt;br /&gt;
Se puede deducir  que para radios pequeños la carga crítica será menor, y para radios mayores la carga crítica será mayor. Esto es porque tanto la carga crítica como la inercia dependen del radio, y al ir multiplicados, radios mayores  darán cargas críticas mayores.&lt;br /&gt;
&lt;br /&gt;
También se puede comprobar que en el apartado 4 de este trabajo, se llega la misma conclusión, comparando los momentos de inercia del cuadrado y del rectángulo, solo que en este caso hay que añadir que el radio es otra variable y no es constante, es variable.&lt;br /&gt;
&lt;br /&gt;
'''6.2.1	Valores de la carga crítica en función del parámetro b ''&lt;br /&gt;
&lt;br /&gt;
Vamos a representar de las cargas críticas dependiendo del valor b , así como la gráfica de cargas críticas para n=1 para diferentes valores de b&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,A)&lt;br /&gt;
figure&lt;br /&gt;
plot(b,p)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Bypcr1.jpg|centro]]&lt;br /&gt;
&lt;br /&gt;
Observamos que en ambas gráficas se cumple que a mayor valor de b mayor carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''6.2.2	Valor mínimo de Pcr en función del radio'''&lt;br /&gt;
[[Archivo:Figura8pcr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
El valor mínimo que alcanza la carga crítica es '''0.1148'''&lt;br /&gt;
&lt;br /&gt;
'''6.2.3	Valor máximo de Pcr en función del radio'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura9radiosmax.png|centro]]&lt;br /&gt;
&lt;br /&gt;
El valor máximo de la carga crítica es '''11483'''&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Bypcr1.jpg&amp;diff=35701</id>
		<title>Archivo:Bypcr1.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Bypcr1.jpg&amp;diff=35701"/>
				<updated>2016-05-03T19:11:05Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Bypcr.jpg&amp;diff=35699</id>
		<title>Archivo:Bypcr.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Bypcr.jpg&amp;diff=35699"/>
				<updated>2016-05-03T19:10:02Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Bpositiva1.png&amp;diff=35692</id>
		<title>Archivo:Bpositiva1.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Bpositiva1.png&amp;diff=35692"/>
				<updated>2016-05-03T18:52:02Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35544</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35544"/>
				<updated>2016-05-03T11:38:00Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, hemos tomado valores de b positivos:&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
&lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1)&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*r(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
    end&lt;br /&gt;
 end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
figure&lt;br /&gt;
plot(b,r)&lt;br /&gt;
figure&lt;br /&gt;
plot(r,p)&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
A partir de este programa, hemos creado los distintos valores máximos y mínimos de las cargas críticas.&lt;br /&gt;
&lt;br /&gt;
Se puede deducir  que para radios pequeños la carga crítica será menor, y para radios mayores la carga crítica será mayor. Esto es porque tanto la carga crítica como la inercia dependen del radio, y al ir multiplicados, radios mayores  darán cargas críticas mayores.&lt;br /&gt;
&lt;br /&gt;
También se puede comprobar que en el apartado 4 de este trabajo, se llega la misma conclusión, comparando los momentos de inercia del cuadrado y del rectángulo, solo que en este caso hay que añadir que el radio es otra variable y no es constante, es variable.&lt;br /&gt;
&lt;br /&gt;
'''6.2.1	Valores de la carga crítica en función del radio'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura7pyr2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 7, para cada valor de R(x), variará nuestra carga máxima. Podemos extrapolarlo a dos casos importantes: Cuando el radio es mínimo (entre 0 y 10) y para el radio máximo (0.5 a 3.5x〖10〗^4)&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''6.2.2	Valor mínimo de Pcr en función del radio'''&lt;br /&gt;
[[Archivo:Figura8pcr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
El valor mínimo que alcanza la carga crítica es '''0.1148'''&lt;br /&gt;
&lt;br /&gt;
'''6.2.3	Valor máximo de Pcr en función del radio'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura9radiosmax.png|centro]]&lt;br /&gt;
&lt;br /&gt;
El valor máximo de la carga crítica es '''11483'''&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura9radiosmax.png&amp;diff=35531</id>
		<title>Archivo:Figura9radiosmax.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura9radiosmax.png&amp;diff=35531"/>
				<updated>2016-05-03T11:04:07Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura8pcr.png&amp;diff=35527</id>
		<title>Archivo:Figura8pcr.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura8pcr.png&amp;diff=35527"/>
				<updated>2016-05-03T10:59:10Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura7pyr2.png&amp;diff=35525</id>
		<title>Archivo:Figura7pyr2.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura7pyr2.png&amp;diff=35525"/>
				<updated>2016-05-03T10:56:45Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35522</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35522"/>
				<updated>2016-05-03T10:55:23Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, así como las gráficas de los valores máximos y mínimos:&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;xb=9;ya=0;yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((8.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
 for i=1:length(r)&lt;br /&gt;
     Rsm(i)=min(r(i,:));&lt;br /&gt;
 end&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*Rsm(i)^4.*K);&lt;br /&gt;
    end&lt;br /&gt;
   p= A(:,1);  &lt;br /&gt;
 &lt;br /&gt;
 for i=1:length(p)&lt;br /&gt;
     pmax(i)=max(p(i,:));&lt;br /&gt;
 end&lt;br /&gt;
  for i=1:length(p)&lt;br /&gt;
     pmin(i)=min(p(i,:));&lt;br /&gt;
 end&lt;br /&gt;
  for i=1:length(r)&lt;br /&gt;
     rmax(i)=max(r(i,:));&lt;br /&gt;
  end&lt;br /&gt;
 for i=1:length(r)&lt;br /&gt;
     rmin(i)=min(r(i,:));&lt;br /&gt;
 end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
A partir de este programa, hemos creado los distintos valores máximos y mínimos de las cargas críticas.&lt;br /&gt;
&lt;br /&gt;
Se puede deducir  que para radios pequeños la carga crítica será menor, y para radios mayores la carga crítica será mayor. Esto es porque tanto la carga crítica como la inercia dependen del radio, y al ir multiplicados, radios mayores  darán cargas críticas mayores.&lt;br /&gt;
&lt;br /&gt;
También se puede comprobar que en el apartado 4 de este trabajo, se llega la misma conclusión, comparando los momentos de inercia del cuadrado y del rectángulo, solo que en este caso hay que añadir que el radio es otra variable y no es constante, es variable.&lt;br /&gt;
&lt;br /&gt;
'''6.2.1	Valores de la carga crítica en función del radio'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura7pyr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura7pyr.png&amp;diff=35521</id>
		<title>Archivo:Figura7pyr.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura7pyr.png&amp;diff=35521"/>
				<updated>2016-05-03T10:54:34Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35517</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35517"/>
				<updated>2016-05-03T10:51:08Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, así como las gráficas de los valores máximos y mínimos:&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all clc&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;xb=9;ya=0;yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
h=0.1;&lt;br /&gt;
N=(xb-xa)/h;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
b=linspace(1,10,N+1);&lt;br /&gt;
L=&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((8.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5);&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
 for i=1:length(r)&lt;br /&gt;
     Rsm(i)=min(r(i,:));&lt;br /&gt;
 end&lt;br /&gt;
    for i=1:length(r)&lt;br /&gt;
    A(i,:)=eig(1.2.*0.25*pi.*Rsm(i)^4.*K);&lt;br /&gt;
    end&lt;br /&gt;
   p= A(:,1);  &lt;br /&gt;
 &lt;br /&gt;
 for i=1:length(p)&lt;br /&gt;
     pmax(i)=max(p(i,:));&lt;br /&gt;
 end&lt;br /&gt;
  for i=1:length(p)&lt;br /&gt;
     pmin(i)=min(p(i,:));&lt;br /&gt;
 end&lt;br /&gt;
  for i=1:length(r)&lt;br /&gt;
     rmax(i)=max(r(i,:));&lt;br /&gt;
  end&lt;br /&gt;
 for i=1:length(r)&lt;br /&gt;
     rmin(i)=min(r(i,:));&lt;br /&gt;
 end&lt;br /&gt;
}}&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35515</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35515"/>
				<updated>2016-05-03T10:49:58Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Grafica6ryb.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Como podemos comprobar en la figura 6 tendremos un radio distinto para distintos valores de b. Sin embargo, para cálculos posteriores solo se tendrá en cuenta los valores positivos. También se puede comprobar que la gráfica de radios siempre será positiva para cualquier valor de b.&lt;br /&gt;
&lt;br /&gt;
'''6.2	Valores de la carga crítica para los diferentes valores de b'''&lt;br /&gt;
&lt;br /&gt;
Otro de los estudios interesantes es comprobar para que valores de R(x) la carga Crítica será máxima o mínima. En el cálculo de piezas de hormigón resulta  de importancia, ya que podremos saber cuál es la carga máxima que necesitaremos aplicar a una columna para evitar que produzca pandeo.&lt;br /&gt;
&lt;br /&gt;
A continuación, se detallará el programa que se ha utilizado para su cálculo, así como las gráficas de los valores máximos y mínimos:&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Grafica6ryb.png&amp;diff=35514</id>
		<title>Archivo:Grafica6ryb.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Grafica6ryb.png&amp;diff=35514"/>
				<updated>2016-05-03T10:48:09Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35513</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35513"/>
				<updated>2016-05-03T10:46:28Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
'''6.	Pandeo en sección variable'''&lt;br /&gt;
&lt;br /&gt;
En ocasiones, a la hora de dimensionar diferentes columnas nos encontramos con el caso de columnas de sección variable, y por tanto de inercia variable, en los que  no se puede aplicar de la misma forma el cálculo del pandeo. &lt;br /&gt;
&lt;br /&gt;
Un ejemplo de secciones variables pueden ser soportes diseñados con un solo perfil o con varios perfiles enlazados entre sí de manera continua, y con la sección con un área ligeramente variable.&lt;br /&gt;
&lt;br /&gt;
El cálculo de estos soportes se realiza obteniendo un valor del radio, y determinado como se indica en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
'''6.1	Pandeo con R(x) variable'''&lt;br /&gt;
&lt;br /&gt;
A continuación, se va a analizar el pandeo de un cambio de sección en la columna planteando el caso de radio variable más sencillo: un polinomio&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Seccionvariable.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Vamos a comprobar que R(x) se puede escribir en función de un único parámetro '''b'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Integral1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
'''6.1.1	Gráfica de R(x) para diferentes valores de b''' &lt;br /&gt;
&lt;br /&gt;
Como R(x) es variable, vamos a tener distintos valores del radio en función de b  como hemos indicado en el apartado 1.1. Ahora, se va a dibujar numéricamente los radios de las curvas de [0,L]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Dibujar R(x) para diferentes valores de b&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
b=linspace(-10,10,N+1);&lt;br /&gt;
L=9;&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
 &lt;br /&gt;
 for k=1:length(b)&lt;br /&gt;
      a=(((-4.*b(k)*((L/2)).^3)/3)-sqrt((4.*b(k)*(L/2).^3)/3).^2+((4.*(L/2)^5)/5).*((25.83/pi)+b(k).^2*L))/((4*(L/2)^5)/5)&lt;br /&gt;
  for j=1:length(x)&lt;br /&gt;
      r(k,j)=a.*((x(j)-L/2)^2)+b(k);&lt;br /&gt;
  end&lt;br /&gt;
 end&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(b,r)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Gradicaryb.png&amp;diff=35511</id>
		<title>Archivo:Gradicaryb.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Gradicaryb.png&amp;diff=35511"/>
				<updated>2016-05-03T10:37:07Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Radioyb.jpg&amp;diff=35510</id>
		<title>Archivo:Radioyb.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Radioyb.jpg&amp;diff=35510"/>
				<updated>2016-05-03T10:35:52Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Integral1.png&amp;diff=35508</id>
		<title>Archivo:Integral1.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Integral1.png&amp;diff=35508"/>
				<updated>2016-05-03T10:30:53Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Seccionvariable.png&amp;diff=35507</id>
		<title>Archivo:Seccionvariable.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Seccionvariable.png&amp;diff=35507"/>
				<updated>2016-05-03T10:29:01Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35497</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35497"/>
				<updated>2016-05-03T09:53:24Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino&lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35496</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35496"/>
				<updated>2016-05-03T09:52:42Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino, &lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
[[Archivo:Numericamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylo2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrices2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, la matriz de coeficientes nos queda de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrizcoef.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Se trata por lo tanto, un problema en el que tendremos que aproximar nuestro autovalor (que es la carga crítica) y encontrar una solución de éste:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Problemaautovalor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en '''〖10〗^(-3) m''', considerando así los valores calculados correctos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular y rectangular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica en función de su sección&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
&lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(0.25)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*(1/12)*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
m=A(:,1);&lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r',R,m,'b')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}    &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Comparacionciryrec1.png|centro]]&lt;br /&gt;
&lt;br /&gt;
En la figura 5 Observamos que la sección rectangular admite menos carga que la circular&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Comparacionciryrec1.png&amp;diff=35494</id>
		<title>Archivo:Comparacionciryrec1.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Comparacionciryrec1.png&amp;diff=35494"/>
				<updated>2016-05-03T09:49:39Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Comparacionciryrec.png&amp;diff=35475</id>
		<title>Archivo:Comparacionciryrec.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Comparacionciryrec.png&amp;diff=35475"/>
				<updated>2016-05-03T09:29:47Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Problemaautovalor.png&amp;diff=35456</id>
		<title>Archivo:Problemaautovalor.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Problemaautovalor.png&amp;diff=35456"/>
				<updated>2016-05-03T09:11:21Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Matrizcoef.png&amp;diff=35455</id>
		<title>Archivo:Matrizcoef.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Matrizcoef.png&amp;diff=35455"/>
				<updated>2016-05-03T09:07:31Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Matrices2.png&amp;diff=35454</id>
		<title>Archivo:Matrices2.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Matrices2.png&amp;diff=35454"/>
				<updated>2016-05-03T09:05:37Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Taylo2.png&amp;diff=35453</id>
		<title>Archivo:Taylo2.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Taylo2.png&amp;diff=35453"/>
				<updated>2016-05-03T09:04:07Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Numericamente.png&amp;diff=35452</id>
		<title>Archivo:Numericamente.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Numericamente.png&amp;diff=35452"/>
				<updated>2016-05-03T08:58:23Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35451</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35451"/>
				<updated>2016-05-03T08:55:26Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino, &lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacione2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrciliamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica para los casos 4.1 y 5&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en 〖10〗^(-3) m, considerando así los valores calculados correctos.&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Ecuacione2.png&amp;diff=35450</id>
		<title>Archivo:Ecuacione2.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Ecuacione2.png&amp;diff=35450"/>
				<updated>2016-05-03T08:54:33Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Ecuacione.png&amp;diff=35448</id>
		<title>Archivo:Ecuacione.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Ecuacione.png&amp;diff=35448"/>
				<updated>2016-05-03T08:51:25Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35447</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35447"/>
				<updated>2016-05-03T08:48:21Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino, &lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos1.png|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Nuevaecuacion.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrciliamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica para los casos 4.1 y 5&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en 〖10〗^(-3) m, considerando así los valores calculados correctos.&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Fotosnodos1.png&amp;diff=35445</id>
		<title>Archivo:Fotosnodos1.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Fotosnodos1.png&amp;diff=35445"/>
				<updated>2016-05-03T08:47:06Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35444</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35444"/>
				<updated>2016-05-03T08:42:59Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino, &lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
'''3.1	Estudio de la pieza de equilibrio'''&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:3.1foto.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos.png|800x600px|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Nuevaecuacion.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrciliamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica para los casos 4.1 y 5&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en 〖10〗^(-3) m, considerando así los valores calculados correctos.&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:3.1foto.png&amp;diff=35443</id>
		<title>Archivo:3.1foto.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:3.1foto.png&amp;diff=35443"/>
				<updated>2016-05-03T08:40:22Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35388</id>
		<title>Carga crítica de una columna, Trabajo 9, (Grupo 5)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Carga_cr%C3%ADtica_de_una_columna,_Trabajo_9,_(Grupo_5)&amp;diff=35388"/>
				<updated>2016-05-02T22:13:17Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Carga crítica de una columna. Grupo 5-A | [[:Categoría:Ecuaciones Diferenciales|Ecuaciones Diferenciales]]|[[:Categoría:ED15/16|Curso 2015-16]] | Noemi Palomino, &lt;br /&gt;
&lt;br /&gt;
Maria Lucia Cueva  }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''1.	Introducción'''&lt;br /&gt;
&lt;br /&gt;
En este tema se estudia el fenómeno de inestabilidad de piezas simples solicitadas a compresión centrada. Se trata por lo tanto de la primera aproximación a los fenómenos de pandeo de pilares, en la que se restringe el enfoque el caso de cortante puro.&lt;br /&gt;
Así mismo, en este tema se tratará de forma general, la carga crítica a la que se somete una columna se sección circular constante de una pieza simple e ideal. Aunque la información puede ser extrapolada a los pilares con sección variable, su caso se analizará más adelante.&lt;br /&gt;
Para la exposición del pandeo por composición pura de piezas simples se comenzará con los fundamentos teóricos del problema.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''2.	La pieza ideal'''&lt;br /&gt;
&lt;br /&gt;
Se denomina pieza ideal a una abstracción matemática de los pilares reales, basada en las siguientes hipótesis:&lt;br /&gt;
&lt;br /&gt;
•	El material tiene una rigidez constante caracterizada por un módulo de deformación '''E'''. &lt;br /&gt;
&lt;br /&gt;
•	El material es infinitamente elástico, sin que se alcance nunca un límite de elasticidad, o tensión de agotamiento.&lt;br /&gt;
&lt;br /&gt;
•	La pieza no tiene imperfecciones de ninguna clase, ajustándose de manera perfecta a su directriz teórica.&lt;br /&gt;
&lt;br /&gt;
•	No existen tensiones residuales dentro de la sección&lt;br /&gt;
&lt;br /&gt;
Con estas simplificaciones se pueden plantear de manera sencilla las ecuaciones que gobiernan el problema de inestabilidad, y su resolución matemática&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3. Carga crítica''' &lt;br /&gt;
&lt;br /&gt;
Vamos a analizar la posible inestabilidad de la columna biapoyada de la figura siguiente. Es evidente que la solución trivial de la pieza consiste en permanecer recta, sin deformación. Sin embargo, la posible aparición de una flecha y(x), hace que el axil (P) provoque un momento flector que a su vez puede incrementar la flecha. Para que la deformación sea posible, debe encontrarse una solución de equilibrio sobre la pieza deformada, entre los esfuerzos solicitantes y la respuesta de la sección.&lt;br /&gt;
Esta solución de equilibrio es un análisis de segundo orden. El planteamiento del equilibrio en cualquier sección de la pieza deformada es inmediato:&lt;br /&gt;
&lt;br /&gt;
	Momento solicitante:&lt;br /&gt;
[[Archivo:Formulamomento.png]]&lt;br /&gt;
&lt;br /&gt;
	'''EI''': Módulo de elasticidad lineal (o módulo de Young) que depende de las propiedades elásticas del material, y que supondremos constante&lt;br /&gt;
&lt;br /&gt;
	'''I(x)''': Momento de inercia de la sección transversal respecto del centro&lt;br /&gt;
&lt;br /&gt;
	Estudio de la pieza de equilibrio&lt;br /&gt;
&lt;br /&gt;
Para que la pieza esté en equilibrio, se debe resolver la ecuación diferencial de segundo orden. Para resolverla, suponemos que los desplazamientos son pequeños y '''aproximamos y(x)''', resolviendo la ecuación de la curva elástica que proviene del equilibrio de momentos:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se trata de una ecuación diferencial homogénea que admite solución general:&lt;br /&gt;
[[Archivo:Solgeneral.png|sinmarco|centro]]&lt;br /&gt;
                     &lt;br /&gt;
[[Archivo:Simplificado.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''3.2	Problema de contorno de la pieza de equilibrio. Concepto de carga crítica'''&lt;br /&gt;
&lt;br /&gt;
Para obtener la solución se deben particularizar las condiciones de contorno:&lt;br /&gt;
[[Archivo:Condicionescontorno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Lo que da lugar a:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ayb.png|sinmarco|centro]]&lt;br /&gt;
Este sistema tiene una solución trivial que es '''A=0''', con lo que la pieza está en equilibrio en la situación sin deformar, basado en la inexistencia de momentos flectores.&lt;br /&gt;
Sin embargo, también admite una solución cuando la función trigonométrica se anula:&lt;br /&gt;
[[Archivo:EcuacionSeno.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
En este caso, el parámetro A queda indeterminado, pudiendo adoptar cualquier valor, este es un problema de contorno homogéneo, por ello tendremos que determinar los valores de P que hacen que el problema de contorno tenga infinitas soluciones. Esto supone que la pieza admite infinitas posiciones de equilibrio en situación deformada, cuando se alcanzan unos determinados valores del axil aplicado (carga crítica). Hemos conseguido resolver el problema de autovalores asociado,  dados por la ecuación siguiente:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrr.png|centro]]&lt;br /&gt;
&lt;br /&gt;
A partir de esta ecuación podemos observar que la deformada de la pieza vendrá dada por los distintos valores de cargas críticas, y que estos dependen a su vez de '''n (n=1,2,3…)'''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fotosnodos.png|800x600px|centro]]&lt;br /&gt;
 &lt;br /&gt;
En la siguiente figura se ha hecho una representación de los diferentes axiles críticos. Se muestran los casos de los tres axiles críticos con los valores de n=1,2,3. La deformada que representa en la figura se le llama '''modo de pandeo'''.&lt;br /&gt;
&lt;br /&gt;
Con ello se explica que para efectos prácticos, la carga crítica relevante es la del primer modo, ya que una vez alcanzada la flexión, la pieza seguirá deformándose ante cualquier perturbación transversal. Se denomina '''carga crítica de Euler''':&lt;br /&gt;
&lt;br /&gt;
'''4.	Estabilidad de P'''&lt;br /&gt;
&lt;br /&gt;
Se dice que una columna es estable cuando la único solución posible es la trivial '''y(x)=0.'''&lt;br /&gt;
&lt;br /&gt;
'''4.1	Ejemplo de estabilidad de una columna con sección circular'''&lt;br /&gt;
&lt;br /&gt;
Sea&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Datosproblemas.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Para estudiar la estabilidad de la columna, necesitamos saber cuáles son los valores de P, para ello sustituimos en (1), los datos enunciados:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrdatos.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos deducir que habrá estabilidad cuando la carga '''no tenga un valor superior a 0,0470 KN'''&lt;br /&gt;
&lt;br /&gt;
'''4.1.1	Gráfica de estabilidad en función del radio'''&lt;br /&gt;
&lt;br /&gt;
Para comprobar que la carga crítica que se ha calculado es correcta, vamos a realizar un programa que asocia a cada radio el valor más pequeño  de la carga crítica para el cual la columna deja de ser estable.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
r1=1;&lt;br /&gt;
r2=5;&lt;br /&gt;
h=0.01;&lt;br /&gt;
N=(r2-r1)/h;&lt;br /&gt;
R=r1:h:r2;&lt;br /&gt;
P=zeros(1,N+1)&lt;br /&gt;
for k=1:(N+1)&lt;br /&gt;
    P(1,k)=1.2*(pi^3*R(1,k).^4)/(4*(9^2));&lt;br /&gt;
 end&lt;br /&gt;
plot(R,P,'b-')&lt;br /&gt;
xlabel('Radio (m)');&lt;br /&gt;
ylabel('Carga critica (kN)')&lt;br /&gt;
}} &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Radios2.jpg|800x800px|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
La carga crítica, se obtiene particularizando con n=1, como hemos comentado anteriormente, ya que es la carga que provoca el pandeo del pilar. En el apartado anterior, solo hay un radio, sin embargo para este ejemplo se ha utilizado un intervalo de radios (de 1 a 5)&lt;br /&gt;
 &lt;br /&gt;
En la gráfica se observa que un radio mayor permite un mayor valor para la carga crítica.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''4.2	Ejemplo de estabilidad de una columna con sección cuadrada'''&lt;br /&gt;
&lt;br /&gt;
Otro ejemplo particular, es el estudio de una columna con una sección cuadrada. Este ejemplo se resuelve de la misma forma que el apartado 4.1 solo que el momento de inercia cambia:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Momentoinerciarectanfula.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Vamos a suponer que la base (B), tiene la misma longitud que el radio de la circunferencia, por lo que nuestro nuevo valor para la carga crítica será:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pcrrectangulo.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Podemos comprobar que en una sección cuadrada la carga crítica disminuye, esto se debe al momento de inercia&lt;br /&gt;
&lt;br /&gt;
'''5.Estabilidad por diferencias finitas'''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sea nuestra ecuación diferencial &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Nuevaecuacion.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Escribimos una aproximación por diferencias finitas del apartado 4.1:&lt;br /&gt;
&lt;br /&gt;
El método de Diferencias Finitas es un método de carácter general que permite la resolución aproximada de ecuaciones diferencias en derivadas parciales definidas en recintos finitos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En este caso vamos a calcular una aproximación de la carga crítica. Vamos a calcular el problema matricialmente de forma que podamos representarlo numéricamente&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox.png|sinmarco|centro]]&lt;br /&gt;
&lt;br /&gt;
Aproximando:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Aprox2.png|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta forma, la ecuación diferencial nos quedará de la forma:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ecuacionaprox.png|centro]]&lt;br /&gt;
&lt;br /&gt;
Y pasándolo a forma matricial:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Taylor.png|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Matrciliamente.png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Numéricamente, se emplea el comando “eig”, que nos permite calcular los valores propios de la matriz A:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Calcular numéricamente por diferencias finitas &lt;br /&gt;
%los valores de P(cr). Para ellos se realizará&lt;br /&gt;
%un problema de autovalores&lt;br /&gt;
 &lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo del problema de contorno&lt;br /&gt;
plot(R,p,'r')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura3).png|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.1	Comparación de la Carga crítica en sección circular'''&lt;br /&gt;
&lt;br /&gt;
Uno de los estudios más interesantes es la comparación de la carga crítica para los casos 4.1 y 5&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figura4).png|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear all, clc&lt;br /&gt;
 &lt;br /&gt;
%Caso 1. Calculado a partir del autovalor Pr&lt;br /&gt;
 &lt;br /&gt;
L=input('introduce una longitud: ');&lt;br /&gt;
r=0:0.1:5;&lt;br /&gt;
%función del pcr &lt;br /&gt;
Pcr=((pi^3).*(r.^4).*1.2)./(4.*(L^2))&lt;br /&gt;
 &lt;br /&gt;
%Caso calculado por aproximación de diferencias finitas&lt;br /&gt;
%Parte 1. Condiciones de Contorno&lt;br /&gt;
xa=0;&lt;br /&gt;
xb=9;&lt;br /&gt;
ya=0;&lt;br /&gt;
yb=0;&lt;br /&gt;
%Parte 2. Paso y tamaño de paso &lt;br /&gt;
N=100;&lt;br /&gt;
h=(xb-xa)/N;&lt;br /&gt;
x=xa:h:xb;&lt;br /&gt;
%Parte 3. &lt;br /&gt;
%%Matriz K&lt;br /&gt;
K=(1/h^(2))*(2*diag(ones(N-1,1))-diag(ones(N-2,1),1)-diag(ones(N-2,1),-1));&lt;br /&gt;
%%Vector de longitudes (Radio de 1 a 5)&lt;br /&gt;
R=linspace(1,5,N+1);&lt;br /&gt;
 &lt;br /&gt;
%Parte 4. Bucle&lt;br /&gt;
for i=1:length(R)&lt;br /&gt;
A(i,:)=eig(1.2.*0.25*pi*R(i)^4.*K);&lt;br /&gt;
%La matriz A es EI/M*K&lt;br /&gt;
end&lt;br /&gt;
p=A(:,1);&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
%Dibujo de la comparación de los 2 programas&lt;br /&gt;
plot(R,p,'r',r,Pcr,'*')&lt;br /&gt;
xlabel('Radio (m)')&lt;br /&gt;
ylabel('Carga crítica (kN)')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
En la figura 4 vemos que las gráficas coinciden. Esto es porque la aproximación numérica difieren a partir del tercer decimal, por lo que podemos considerar ese error despreciable.&lt;br /&gt;
&lt;br /&gt;
Es decir, calculando la carga crítica con n=1 por autovalores o aproximándolo por diferencias finitas, la carga crítica difiere en 〖10〗^(-3) m, considerando así los valores calculados correctos.&lt;br /&gt;
{{ Beta }}&lt;br /&gt;
[[Categoría:Ecuaciones Diferentiales]]&lt;br /&gt;
[[Categoría:ED15/16]]&lt;br /&gt;
[[Categoría:Trabajos 2015-16]]&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura4).png&amp;diff=35381</id>
		<title>Archivo:Figura4).png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura4).png&amp;diff=35381"/>
				<updated>2016-05-02T22:09:12Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura3).png&amp;diff=35378</id>
		<title>Archivo:Figura3).png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Figura3).png&amp;diff=35378"/>
				<updated>2016-05-02T22:06:53Z</updated>
		
		<summary type="html">&lt;p&gt;NoemiP: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>NoemiP</name></author>	</entry>

	</feed>