Movimiento en un pozo doble de potencial
Estudiaremos el movimiento de una partícula de masa m=1 en el potencial dado por la función
La energía potencial presenta dos mínimos x=±2 y un máximo local, x=0. Véase la figura más abajo
Calculamos la derivada primera y la igualamos a cero. Calculamos la derivada segunda
Para x=0, la deriva segunda es negativa, (máximo). Para x=±2, la derivada segunda es positiva (mínimo)
Dado el valor de la energía total E, determinamos el intervalo o intervalos en los que se puede mover la partícula.
Como la energía cinética es siempre positiva, la partícula se puede mover en aquellas posiciones en las que E≥Ep(x). Resolvemos la ecuación bicuadrada
Para E>1, se descarta el signo menos, la partícula se mueve en el intervalo
Si E<1, la partícula se puede mover en uno o en el otro intervalo
Representamos la energía potencial y los intervalos para dos valores de la energía total E=1.25, 0.5
f=@(x) 1-x.^2/2+x.^4/16; %energía potencial
fplot(f,[-3.1,3.1])
E=1.25;
x1=-2*sqrt(1+sqrt(E));
x2=-x1;
line([x1,x2],[f(x1),f(x2)],'color','b')
line([x1,x1],[0,f(x1)],'lineStyle','--','color','k')
line([x2,x2],[0,f(x2)],'lineStyle','--','color','k')
E=0.5;
x1=-2*sqrt(1+sqrt(E));
x2=-2*sqrt(1-sqrt(E));
line([x1,x2],[f(x1),f(x2)],'color','r')
line([x1,x1],[0,f(x1)],'lineStyle','--','color','k')
line([x2,x2],[0,f(x2)],'lineStyle','--')
x1=2*sqrt(1-sqrt(E));
x2=2*sqrt(1+sqrt(E));
line([x1,x2],[f(x1),f(x2)],'color','r')
line([x1,x1],[0,f(x1)],'lineStyle','--','color','k')
line([x2,x2],[0,f(x2)],'lineStyle','--','color','k')
grid on
xlabel('x')
ylabel('E_p(x)')
title('Energía potencial')

Como la energía total E es positiva, para simplificar la notación escribimos E=e2
En la ecuación de la energía despejamos dt e integramos
Supongamos que el móvil de masa m=1 parte de la posición del extremo derecho del intervalo, , con velocidad inicial negativa (dx/dt)0<0
Hacemos el cambio de variable,
El resultado es
Para e>1, k2=(1+e)/(2e)≤1
Para e=1, k2=(1+e)/(2e)=1
Para e<1, k2=(1+e)/(2e)>1
Despejamos x en función del tiempo t, empleando la función elíptica sn de Jacobi
Se ha utilizado la relación, sn2(x|k)+cn2(x|k)=1
Derivando respecto del tiempo, obtenemos la velocidad del móvil
Para este valor límite de k2, la posición y velocidad toman las expresiones
Para estos valores de k2 fuera del intervalo [0,1], la posición y velocidad toman las expresiones
Representamos la trayectoria de un móvil en el espacio de las fases (x, v) para las energías:
E=1.25. La partícula se mueve en el intervalo , la trayectoria en el espacio de las fases es cerrada y el tiempo que tarda en completarla es
E=1. Como el caso anterior, el móvil parte de la posición inicial , tardando un tiempo infinito en alcanzar el origen x=0
E=0.5. La partícula se mueve en el intervalo alrededor del mínimo x=2, la trayectoria en el espacio de las fases es cerrada, tardando un tiempo P en completarla. También es posible que la partícula se mueva en el intervalo centrado en x=-2. Pero no es posible que una partícula con energía E<1, pase de un intervalo al otro
e=sqrt(1.25);
m2=(1+e)/(2*e);
K=ellipke(m2);
P=4*K/sqrt(e); %periodo
t=linspace(0,P,200);
[sn,cn,dn]=ellipj(sqrt(e)*t,m2);
x=2*sqrt(1+e)*cn;
v=-2*sqrt(1+e)*sn.*dn;
hold on
plot(x,v, 'r')
%e=1;
t=linspace(0,10,200);
x=2*sqrt(2)./cosh(t);
v=-2*sqrt(2)*sinh(t)./cosh(t).^2;
plot(x,v,'k')
plot(-x,v,'k','lineStyle','--')
plot(x,-v,'k','lineStyle','--')
plot(-x,-v,'k','lineStyle','--')
e=sqrt(0.5);
m2=(1+e)/(2*e);
K=ellipke(1/m2);
P=2*K/sqrt((1+e)/2); %periodo
t=linspace(0,P,200);
[sn,cn,dn]=ellipj(sqrt((1+e)/2)*t,1/m2);
x=2*sqrt(1+e)*dn;
v=-2*sqrt(2)*e*sn.*cn;
plot(x,v,'b')
plot(-x,v,'b','lineStyle','--')
hold off
xlabel('x')
ylabel('v')
title('Espacio de las fases')
grid on

Referencias
Alain J. Brizard. A primer on elliptic functions with applications in classical mechanics. November 26, 2007. https://arxiv.org/abs/0711.4064.