Movimiento de una partícula cargada en el campo magnético de un dipolo.

El campo magnético producido por un dipolo, de momento dipolar magnético , situado en el origen, en coordenadas polares es
El potencial vector es
Comprobación
La velocidad de la partícula es
La energía cinética
La energía potencial es
La partícula cargada se mueve sobre una superficie esférica de radio R
El radio es constante r=R, dr/dt=0
La energía cinética de la partícula es
La energía potencial es
La fuerza que ejerce el campo magnético sobre una partícula en movimiento es . Esta fuerza, perpendicular a la velocidad, no realiza trabajo alguno. La energía de la partícula es solamente cinética, el módulo de su velocidad es constante
La lagrangiana es
Ecuaciones del movimiento
-
En θ
-
La lagrangiana no depende de φ. Además de la energía E, definimos una nueva constante del movimiento pφ
El sistema de dos ecuaciones diferenciales del movimiento es
Energía potencial efectiva
La energía de la partícula cargada es
- Es una función simétrica respecto del ángulo θ=π/2, (ecuador)
- El potencial Vef se hace infinito cuando θ=0 y π, (polos)
Casos
pφ<k
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pθ=0.2k
- Radio de la esfera, R=10
Extremos (máximo y mínimos)
Hay dos posiciones de equilibrio estable θs y π-θs y una posición de equilibrio inestable en θ=π/2
Datos
Representamos la energía potencial efectiva, Vef en función de θ en el intervalo [0,π]. Señalamos, las posiciones de equilibrio estable (en rojo) e inestable (en azul)
M=2; %masa
k=0.5;
p=0.2*k;
%esfera
R=10; %radio
f=@(x) (p+k*sin(x).^2).^2./(2*M*R^2*sin(x).^2);
hold on
fplot(f,[0.15,pi-0.15])
%mínimo
ths=asin(sqrt(p/k));
min=2*p*k/(M*R^2);
plot(ths,min,'ro','markersize',3,'markerfacecolor','r')
plot(pi-ths,min,'ro','markersize',3,'markerfacecolor','r')
%máximo
max=(p+k)^2/(2*M*R^2);
plot(pi/2,max,'bo','markersize',3,'markerfacecolor','b')
hold off
set(gca,'XTickLabel',{'0','\pi/6','\pi/3','\pi/2',
'2\pi/3','5\pi/6','\pi'})
grid on
xlabel('\theta')
ylabel('V_{ef}')
title('Energía potencial efectiva')

Posiciones de equilibrio
- Estable: θs=0.4636 (26.6°), π-θs=2.6779 (153.4°).
- Inestable: θi=π/2 (90°)
>> ths ths = 0.4636 >> pi-ths ans = 2.6779>> min min = 5.0000e-04 >> max max = 9.0000e-04
Mínimo
Máximo
La velocidad angular dφ/dt es constante. El periodo es
La velocidad angular dφ/dt es constante.
Descripción cualitativa del movimiento de la partícula cargada
Dada la energía E de la partícula cargada determinaremos el intervalo θ en el que se mueve
Para una energía E comprendida entre el mínimo y el máximo, Vef(θs)<E<Vef(π/2).
Para una energía E mayor que el máximo, E>Vef(π/2).
Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=0.2k
Representamos la energía potencial efectiva, y describiremos el movimiento de la partícula cargada para dos energías
M=2; %masa
k=0.5;
p=0.2*k;
%esfera
R=10; %radio
f=@(x) (p+k*sin(x).^2).^2./(2*M*R^2*sin(x).^2);
hold on
fplot(f,[0.15,pi-0.15])
E=7e-4; %energía
x1=(M*R^2*E-p*k+sqrt(M*R^2*E*(M*R^2*E-2*p*k)))/k^2;
x2=(M*R^2*E-p*k-sqrt(M*R^2*E*(M*R^2*E-2*p*k)))/k^2;
th_1=asin(sqrt(x1));
th_2=asin(sqrt(x2));
line([th_1,th_2],[E,E], 'color','red')
line([th_1,th_1],[0,E],'lineStyle','--')
line([th_2,th_2],[0,E],'lineStyle','--')
E=12e-4; %energía
x3=(M*R^2*E-p*k-sqrt(M*R^2*E*(M*R^2*E-2*p*k)))/k^2;
th_3=asin(sqrt(x3));
th_4=pi-th_3;
line([th_3,th_4],[E,E], 'color','blue')
line([th_3,th_3],[0,E],'lineStyle','--')
line([th_4,th_4],[0,E],'lineStyle','--')
hold off
set(gca,'XTick',0:pi/6:pi)
set(gca,'XTickLabel',{'0','\pi/6','\pi/3','\pi/2',
'2\pi/3','5\pi/6','\pi'})
grid on
xlabel('\theta')
ylabel('V_{ef}')
title('Energía potencial')

Para una energía E (en rojo) comprendida entre el mínimo y el máximo, Vef(θs)<E<Vef(π/2). Por ejemplo, E=7·10-4
Para una energía E (en azul) mayor que el máximo, E>Vef(π/2). Por ejemplo, E=12·10-4
La partícula se mueve entre dos posiciones: θ1=0.9476 y θ2=0.2489. O bien, su simétrico, (no representado) π-θ1=2.1940 y π-θ2=2.8927
La partícula se mueve entre dos posiciones: θ3= 0.1644 y θ4=π-θ3=2.9772.
>> th_1 th_1 = 0.9476 >> th_2 th_2 = 0.2489 >> th_3 th_3 = 0.1644 >> th_4 th_4 = 2.9772
En las posiciones extremas θ1, θ2, θ3 y θ4, se cumple que E=Vef(θi), por lo que, dθ/dt=0. En el mínimo, la partícula alcanza su máxima velocidad dθ/dt
pφ>k
El máximo local desaparece
Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=1.2k
M=2; %masa
k=0.5;
p=1.2*k;
%esfera
R=10; %radio
f=@(x) (p+k*sin(x).^2).^2./(2*M*R^2*sin(x).^2);
hold on
fplot(f,[0.15,pi-0.15])
E=0.025; %energía
x3=(M*R^2*E-p*k-sqrt(M*R^2*E*(M*R^2*E-2*p*k)))/k^2;
th_3=asin(sqrt(x3));
th_4=pi-th_3;
line([th_3,th_4],[E,E], 'color','red')
line([th_3,th_3],[0,E],'lineStyle','--')
line([th_4,th_4],[0,E],'lineStyle','--')
hold off
set(gca,'XTick',0:pi/6:pi)
set(gca,'XTickLabel',{'0','\pi/6','\pi/3','\pi/2','2\pi',
'2\pi/3','5\pi/3','\pi'})
grid on
xlabel('\theta')
ylabel('V_{ef}')
title('Energía potencial efectiva')

Para una energía E (en rojo) mayor que el mínimo E>Vef(π/2). Por ejemplo, E=0.025
La partícula se mueve entre dos posiciones: θ3= 0.1971 y π-θ3=2.9445
>> th_3 th_3 = 0.1971 >> th_4 th_4 = 2.9445
Trayectoria sobre la superficie esférica de radio R
Resolveremos el sistema de dos ecuaciones diferenciales aplicando el procedimiento numérico
- El ángulo φ=0
- La partícula parte del extremo del intervalo (posición de retorno) θi con velocidad angular nula dθ/dt=0
Examinamos los distintos casos
pφ<k
Energía E comprendida entre el mínimo y el máximo. Vef(θs)<E<Vef(π/2)
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=0.2k
- Energía de la partícula, E=7·10-4.
- En el instante t=0, φ=0
- Posición de partida θ1 en reposo
- Tiempo total, T=50 000, intervalo Δt=50
Datos
hold on
M=2; %masa
k=0.5;
p=0.2*k;
%esfera
R=10; %radio
phi=linspace(0,pi,30);
theta=linspace(0,2*pi,40);
[phi,theta]=meshgrid(phi,theta);
xp=R*sin(phi).*cos(theta);
yp=R*sin(phi).*sin(theta);
zp=R*cos(phi);
h1=mesh(xp,yp,zp);
set(h1,'EdgeColor',[0.6,0.6,0.6],'EdgeAlpha',0.5,'FaceAlpha',0.5)
%trayectoria
E=7e-4; %energía
x1=(M*R^2*E-p*k+sqrt(M*R^2*E*(M*R^2*E-2*p*k)))/k^2;
th_1=asin(sqrt(x1)); %posición de retorno
f=@(t,x) [(p/sin(x(2))^2+k)/(M*R^2); x(3);
(p^2/sin(x(2))^4-k^2)*sin(x(2))*cos(x(2))/(M^2*R^4)];
[t,x]=ode45(f,0:50:50000,[0,th_1,0]);
xp=R*sin(x(:,2)).*cos(x(:,1));
yp=R*sin(x(:,2)).*sin(x(:,1));
zp=R*cos(x(:,2));
E=M*R^2*x(:,3).^2/2+(sin(x(:,2)).^2).*(p./sin(x(:,2)).^2+k).^2/
(2*M*R^2);
h1=line(xp,yp,zp);
set(h1,'Color',[.7,0,0],'LineWidth',1.5)
view (145,45)
hold off
axis equal
grid on
xlabel('x')
ylabel('y')
zlabel('z')
title('Movimiento de una partícula cargada en un dipolo')
axis off
set(gcf,'position',[0,0,840,630])

Comprobamos que la energía (cinética) se conserva
>> E
E = 1.0e-03 *
0.7000
0.7000
0.7000
.....
0.7035
0.7036
0.7027
Energía E mayor que el máximo. E>Vef(π/2)
Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=0.2k
- Energía de la partícula, E=12·10-4.
- En el instante t=0, φ=0
- Posición de partida θ3 en reposo
- Tiempo total, T=50 000, intervalo Δt=20
hold on
M=2; %masa
k=0.5;
p=0.2*k;
%esfera
R=10; %radio
phi=linspace(0,pi,30);
theta=linspace(0,2*pi,40);
[phi,theta]=meshgrid(phi,theta);
xp=R*sin(phi).*cos(theta);
yp=R*sin(phi).*sin(theta);
zp=R*cos(phi);
h1=mesh(xp,yp,zp);
set(h1,'EdgeColor',[0.6,0.6,0.6],'EdgeAlpha',0.5,'FaceAlpha',0.5)
%trayectoria
E=12e-4; %energía
x3=(M*R^2*E-p*k-sqrt(M*R^2*E*(M*R^2*E-2*p*k)))/k^2;
th_3=asin(sqrt(x3));
f=@(t,x) [(p/sin(x(2))^2+k)/(M*R^2); x(3);
(p^2/sin(x(2))^4-k^2)*sin(x(2))*cos(x(2))/(M^2*R^4)];
[t,x]=ode45(f,0:20:50000,[0,th_3,0]);
xp=R*sin(x(:,2)).*cos(x(:,1));
yp=R*sin(x(:,2)).*sin(x(:,1));
zp=R*cos(x(:,2));
E=M*R^2*x(:,3).^2/2+(sin(x(:,2)).^2).*(p./sin(x(:,2)).^2+k).^2
/(2*M*R^2);
h1=line(xp,yp,zp);
set(h1,'Color',[.7,0,0],'LineWidth',1.5)
view (145,45)
hold off
axis equal
grid on
xlabel('x')
ylabel('y')
zlabel('z')
title('Movimiento de una partícula cargada en un dipolo')
axis off
set(gcf,'position',[0,0,840,630])

Comprobamos que la energía (cinética) se conserva
>> E
E =
0.0012
0.0012
0.0012
......
0.0012
0.0012
pφ>k
Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=1.2k
- Energía de la partícula, E=0.025.
- En el instante t=0, φ=0
- Posición de partida θ3 en reposo
- Tiempo total, T=20 000, intervalo Δt=10
hold on
M=2; %masa
k=0.5;
p=1.2*k;
%esfera
R=10; %radio
phi=linspace(0,pi,30);
theta=linspace(0,2*pi,40);
[phi,theta]=meshgrid(phi,theta);
xp=R*sin(phi).*cos(theta);
yp=R*sin(phi).*sin(theta);
zp=R*cos(phi);
h1=mesh(xp,yp,zp);
set(h1,'EdgeColor',[0.6,0.6,0.6],'EdgeAlpha',0.5,'FaceAlpha',0.5)
%trayectoria
E=0.025; %energía
x3=(M*R^2*E-p*k-sqrt(M*R^2*E*(M*R^2*E-2*p*k)))/k^2;
th_3=asin(sqrt(x3));
f=@(t,x) [(p/sin(x(2))^2+k)/(M*R^2); x(3);
(p^2/sin(x(2))^4-k^2)*sin(x(2))*cos(x(2))/(M^2*R^4)];
[t,x]=ode45(f,0:10:20000,[0,th_3,0]);
xp=R*sin(x(:,2)).*cos(x(:,1));
yp=R*sin(x(:,2)).*sin(x(:,1));
zp=R*cos(x(:,2));
E=M*R^2*x(:,3).^2/2+(sin(x(:,2)).^2).*(p./sin(x(:,2)).^2+k).^2
/(2*M*R^2);
h1=line(xp,yp,zp);
set(h1,'Color',[.7,0,0],'LineWidth',1.5)
view (145,45)
hold off
axis equal
grid on
xlabel('x')
ylabel('y')
zlabel('z')
title('Movimiento de una partícula cargada en un dipolo')
axis off
set(gcf,'position',[0,0,840,630])

Comprobamos que la energía (cinética) se conserva
>> E
E =
0.0250
0.0250
0.0250
......
0.0276
0.0276
Otras trayectorias
En los artículos citados en las referencias, aparecen otros casos distintos de los mencionados
Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=0.394
- En el instante t=0, φ=0
- Posición de partida θ=π/3 en reposo
- Tiempo total, T=20 000, intervalo Δt=10

Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=-0.394
- En el instante t=0, φ=0
- Posición de partida θ=75π/180 en reposo
- Tiempo total, T=75 000, intervalo Δt=20

Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ==-0.6k
- En el instante t=0, φ=0
- Posición de partida θ=π/6. Velocidad inicial, dθ/dt=0.151/(MR2)
- Tiempo total, T=17 000, intervalo Δt=20

Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=0.601k
- En el instante t=0, φ=0
- Posición de partida θ=π/4. Velocidad inicial, dθ/dt=0.3/(MR2)
- Tiempo total, T=10 000, intervalo Δt=10

Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=0.601k
- En el instante t=0, φ=0
- Posición de partida θ=π/9, en reposo
- Tiempo total, T=20 000, intervalo Δt=20

Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=-0.3k
- En el instante t=0, φ=0
- Posición de partida θ=π/4. Velocidad inicial, dθ/dt=0.3/(MR2)
- Tiempo total, T=10 000, intervalo Δt=10

Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=-0.71k
- En el instante t=0, φ=0
- Posición de partida θ=π/3. Velocidad inicial, dθ/dt=0.2/(MR2)
- Tiempo total, T=15 000, intervalo Δt=10

Datos
- Radio de la esfera, R=10
- Masa de la partícula, M=2
- Dipolo, k=0.5
- Constante, pφ=-0.722k
- En el instante t=0, φ=0
- Posición de partida θ=π/3. Velocidad inicial, dθ/dt=0.2/(MR2)
- Tiempo total, T=10 000, intervalo Δt=10

Una figura similar a la de un ocho, se ha obtenido en la página titulada Movimiento relativo sobre la superficie de la Tierra
Referencias
Emilio Cortés, D Cortés-Poza. Spherically restricted motion of a charge in the field of a magnetic dipole. ArXiv. Physics > Classical Physics (2013)