El péndulo esférico

Consideramos el movimiento de un péndulo de longitud l que se puede mover en todas las direcciones del espacio bajo la acción de su propio peso. En un instante dado t, la partícula dista l del centro de oscilación y hace un ángulo φ con el eje X y un ángulo θ con el eje Z, tal como se muestra en la figura. Describimos el movimiento de la partícula en coordenadas esféricas (r, φ, θ) con el radio r=l constante.
La posición de la partícula es
Derivando con respecto del tiempo obtenemos las componentes de la velocidad
La energía cinética es
La energía potencial es V=-mgz=-mglcosθ
La lagrangiana L=T-V es
Ecuaciones del movimiento
La primera ecuación del movimiento es
La segunda ecuación del movimiento es
Principios de conservación
Como la lagrangiana L es independiente de φ, obtenemos una cantidad h que se conserva
Comprobamos que h está relacionado con la componente Z del momento angular
Llamamos a la frecuencia natural de la oscilación de un péndulo simple. La primera ecuación se convierte en
que a su vez es la derivada con respecto del tiempo de una cantidad que se conserva
La conservación de la energía ε se expresa
Donde V(θ) es la energía potencial efectiva.
Para un valor dado de ε mayor que el mínimo V(θm), el movimiento tiene lugar entre los ángulos θ1 y θ2 dados por las soluciones de la ecuación cúbica
Las raíces de la ecuación cúbica se pueden calcular con
R=1; %longitud del péndulo w0=sqrt(9.8/R); %frecuencia natural de oscilación h2=21.1; % cuadrado del momento angular, Lz energia=37.3; %energía f=@(x) h2./(2*sin(x).^2)-w0^2*cos(x); fplot(f,[pi/12,pi-pi/12],'color','r') line([0,pi],[energia, energia],'color','k') g=@(x) f(x)-energia; %raíces th=zeros(1,2); cth=raices_3([1,energia/w0^2,-1,(h2-2*energia)/(2*w0^2)]); j=1; for i=1:length(cth) if abs(cth(i))>=1 continue; end th(j)=acos(cth(i)); j=j+1; end line([th(1),th(1)],[0,energia], 'lineStyle','--') line([th(2),th(2)],[0,energia],'lineStyle','--') ylim([0,40]) xlim([0,2.7]) grid on xlabel('\theta') ylabel('V(\theta)') title('Energía potencial')
El mínimo de la energía potencial efectiva V(θ) se calcula derivando con respecto a θ e igualando a cero
El ángulo correspondiente al mínimo θm es la raíz real y positiva de la ecuación
>> roots([1,0,-2,-h2/w0^2,1]) ans = 1.7081 + 0.0000i -1.0315 + 0.7654i -1.0315 - 0.7654i 0.3549 + 0.0000i >> th_m=acos(0.3549) th_m = 1.2080
Calculamos la derivada segunda y verificamos que la posición θm corresponde a un mínimo
El valor del mínimo V(θm) es
>> f(th_m) ans = 8.5923
Caso particular
Un caso particular importante se produce cuando h2=2ε. Una de las raíces es cosθ1=0, θ1=π/2. La otra posición de retorno θ2 es la raíz positiva de la ecuación de segundo grado
Cuando , se obtiene el número áureo
Trayectoria de la partícula
Dada la energía ε y del momento angular h, calculamos las posiciones de retorno θ1 y θ2. En este apartado, los datos son las posiciones de retorno
Para representar la trayectoria seguida por la partícula, partimos de la posición angular θ=θ1 en el que se cumple que dθ/dt=0, establecemos φ=0. Determinamos la constante h a partir de los datos de θ1 y θ2. Igualando V(θ1)=V(θ2)=ε, obtenemos
Integramos las dos ecuaciones diferenciales con las condiciones iniciales señaladas para obtener la trayectoria θ=θ(φ) en la superficie esférica de radio l
R=1; %longitud del péndulo w0=sqrt(9.8/R); %frecuencia natural de oscilación th_1=pi/6; %angulos mínimo y máximo th_2=pi/3; h2=w0^2*sin(th_1)^2*sin(th_2)^2/(cos((th_1+th_2)/2)*cos((th_1-th_2)/2)); x0=[th_1,0,0]; %condiciones iniciales tspan=[0,5]; % x(1)=th, x(2)=dth/dt,x(3)=phi fg=@(t,x)[x(2); h2*cos(x(1))/(sin(x(1))^3)-w0^2*sin(x(1)); sqrt(h2)/sin(x(1))^2]; [t,x]=ode45(fg,tspan,x0); xp=R*sin(x(:,1)).*cos(x(:,3)); yp=R*sin(x(:,1)).*sin(x(:,3)); zp=R*cos(x(:,1)); %esfera phi=linspace(0,pi,30); theta=linspace(0,2*pi,40); [phi,theta]=meshgrid(phi,theta); x=R*sin(phi).*cos(theta); y=R*sin(phi).*sin(theta); z=R*cos(phi); h1=mesh(x,y,z); set(h1,'EdgeColor',[0.6,0.6,0.6],'EdgeAlpha',0.5,'FaceAlpha',0.5) axis equal %trayectoria h1=line(xp,yp,zp); set(h1,'Color',[.7,0,0],'LineWidth',1.5) set(gca,'zDir','reverse') view (-40,20) hold off axis equal grid on xlabel('x') ylabel('y') zlabel('z') title('Movimiento en la superficie de una esfera')
Cambiamos los ángulos θ1 y θ2
... th_1=pi/2; th_2=acos((-1+sqrt(5))/2); %angulos mínimo y máximo tspan=[0,10]; ...
Péndulo simple
Si φ=φ0=constante, dφ/dt=0, h=0
Obtenemos la ecuación diferencial del péndulo simple que oscila en el plano φ0
Trayectorias casi circulares
Un péndulo cónico gira alrededor del eje Z con velocidad angular dφ/dt constante, haciendo un ángulo θ0 con la vertical. La partícula describirá una trayectoria circular de radio lsinθ0 perpendicular al eje Z.
Si θ=θ0=constante, dφ/dt=constante.
Supongamos ahora que θ=θ0+δ(t). Donde δ es una cantidad pequeña frente a θ0
Para determinar δ(t), en la ecuación diferencial
aproximamos el término entre paréntesis utilizando Math Symbolic.
>> syms x x0; >> y=sin(x)-sin(x0)^4*cos(x)/(cos(x0)*sin(x)^3); >> z=taylor(y,x,x0,'Order',2); >> simplify(z) ((x - x0)*(3*cos(x0)^2 + 1))/cos(x0)
La ecuación diferencial se transforma en otra mucho más simple
que corresponde a una oscilación con frecuencias angular
En el script anterior cambiamos las líneas
... th_1=pi/4+5*pi/180; %50° th_2=pi/4; %45° ....
para obtener mediante integración numérica la trayectoria de la partícula y compararla con la trayectoria que se obtiene al suponer una trayectoria casi circular
R=1; %longitud del péndulo w0=sqrt(9.8/R); %frecuencia natural de oscilación h_1=pi/4+5*pi/180; %50° th_2=pi/4; %45° W=w0*sqrt((1+3*cos(th_1)^2)/cos(th_1)); w=w0/sqrt(cos(th_1)); % x(1)=th, x(2)=dth/dt,x(3)=phi t=0:0.01:5; th=(th_1+th_2)/2+(th_2-th_1)*sin(W*t)/2; phi=w*t; xp=R*sin(th).*cos(phi); yp=R*sin(th).*sin(phi); zp=R*cos(th); %esfera phi=linspace(0,pi,30); th=linspace(0,2*pi,40); [phi,th]=meshgrid(phi,th); x=R*sin(phi).*cos(th); y=R*sin(phi).*sin(th); z=R*cos(phi); h1=mesh(x,y,z); set(h1,'EdgeColor',[0.6,0.6,0.6],'EdgeAlpha',0.5,'FaceAlpha',0.5) axis equal %trayectoria h1=line(xp,yp,zp); set(h1,'Color',[.7,0,0],'LineWidth',1.5) set(gca,'zDir','reverse') view (-40,20) hold off axis equal grid on xlabel('x') ylabel('y') zlabel('z') title('Movimiento en la superficie de una esfera')
Referencias
Hanno Essén, Nicholas Apazidis. Turning points of the spherical pendulum and the golden ratio. Eur. J. Phys. 30 (2009) pp. 427–432