Rozamiento en el bucle

Consideremos un bucle de radio R, la velocidad inicial de la partícula es v0 en la posición inicial θ=0. Vamos a calcular la velocidad v de la partícula en la posición θ.

La energía inicial de la partícula es

E 0 = 1 2 m v 0 2

La energía de la partícula en la posición θ es

E= 1 2 m v 2 +mgR(1cosθ)

El trabajo de la fuerza de rozamiento a lo largo del camino de longitud R·θ es

W= 0 Rθ μN·ds = 0 θ μN·R ·dθ

El trabajo W de la fuerza de rozamiento disminuye la energía E de la partícula. W=E-E0

La ecuación del movimiento en la dirección radial nos proporciona el valor de la reacción N de la pista circular

m v 2 R =Nmgcosθ

Se sustituye N en la expresión del trabajo de la fuerza de rozamiento

W= 0 θ μm( v 2 +gRcosθ ) dθ=μm( 0 θ v 2 dθ+gRsinθ )

La velocidad v de la partícula en función de la posición θ

μm( 0 θ v 2 dθ+gRsinθ )= 1 2 m v 2 +mgR(1cosθ) 1 2 m v 0 2 v 2 gR = v 0 2 gR +2(cosθμsinθ1)2μ 0 θ v 2 gR dθ

o bien, en términos de la velocidad adimensional V

V 2 = V 0 2 +2(cosθμsinθ1)2μ 0 θ V 2 dθ

De acuerdo con el artículo citado en las referencias esta ecuación tiene solución analítica por ser de la forma

V 2 (θ)=f(θ)+ 0 θ h(t)· V 2 (t)·dt

denominada integral de Volterra. La solución se obtiene en dos pasos

R(θ,t)=h(t)exp( t θ h(s)·ds ) V 2 (θ)=f(θ)+ 0 θ R(θ,t) ·f(t)·dt

Donde h(t)=-2μ

R(θ,t)=2μexp( t θ 2μ·ds )=2μexp( 2μθ )·exp( 2μt ) f(t)= V 0 2 +2( costμsint1 ) V 2 (θ)= V 0 2 +2( cosθμsinθ1 ) 2μexp( 2μθ ) 0 θ exp( 2μt )( V 0 2 +2( costμsint1 ) ) dt

Posición final de la partícula en la pista circular

Integrando por partes y simplificando, despejamos la velocidad adimensional V en función de la la posición θ

V 2 =( V 0 2 + 2( 2 μ 2 1 ) 1+4 μ 2 )exp( 2μθ ) 2 1+4 μ 2 ( ( 2 μ 2 1 )cosθ+3μsinθ )

Esta junto con la ecuación del movimiento en la dirección radial

N mg = V 2 +cosθ

determinan la posición final de la partícula en la pista circular. La reacción de la pista deberá ser N>0 para que la partícula permanezca en contacto con la pista y no caiga

Ejemplos

  1. En el script, la variable V2 guarda la expresión de la velocidad adimensional V2 en términos de V0, μ y θ en el código V0, mu y x . La variable VV2 guarda dicha expresión para el caso particular de μ=0.2 y V02=2. Representamos gráficamente VV2 función de x y vemos que velocidad V2 se hace cero para el ángulo θ=1.132=64.8ยบ, resultado que obtenemos con mejor aproximación mediante la función solve.

  2. syms V0 mu x t;
    V2=V0^2+2*(cos(x)-mu*sin(x)-1)-2*mu*exp(-2*mu*x)*
    int('(V0^2+2*(cos(t)-mu*sin(t)-1))*exp(2*mu*t)',t,0,x);
    V2=simplify(V2);
    VV2=subs(V2,{V0,mu},{sqrt(2),0.2});
    double(solve(VV2,x)*180/pi)
    ezplot(VV2,[0,pi/2])
    set(gca,'XTick',0:pi/2:2*pi)
    set(gca,'XTickLabel',{'0','\pi/2','\pi','3\pi/2','2\pi'})
    grid on
    title('V_0^2=2, \mu=0.2')
    xlabel('\theta')
    ylabel('V^2')
    ans =   64.8741

  3. Comprobamos que la larga integración y simplificación realizada a mano, coincide con la obtenida con MATLAB Symbolic Toolbox en el ejemplo 1. Representamos V2 en función de θ para μ=0.2 y V02=2 y también se representa la reacción N. Vemos que la velocidad V2 se hace cero antes de que lo haga N. Con fzero calculamos el angulo θ=64.87 para el cual la velocidad se anula, V2=0.

  4. mu=0.2;
    V0=sqrt(2);
    V2=@(mu,x) (V0^2+2*(2*mu^2-1)/(1+4*mu^2))*exp(-2*mu*x)
    -2*((2*mu^2-1)*cos(x)+3*mu*sin(x))/(1+4*mu^2);
    hold on
    f=@(x) V2(0.2,x);
    fzero(f,pi/2)*180/pi
    fplot(f,[0,pi/2])
    f=@(x) V2(0,x);
    fplot(f,[0,pi/2])
    hold off
    set(gca,'XTick',0:pi/2:2*pi)
    set(gca,'XTickLabel',{'0','\pi/2','\pi','3\pi/2','2\pi'})
    legend('\mu=0.2','\mu=0');
    grid on
    title('V_0^2=2')
    xlabel('\theta')
    ylabel('V^2') 
    ans =   64.8741

  5. Cambiamos el valor de la velocidad inicial V02=5, con el mismo rozamiento, μ=0.2. En este caso la normal N se hace cero antes de que lo haga la velocidad V2

  6. mu=0.2;
    V0=sqrt(5);
    V2=@(mu,x) (V0^2+2*(2*mu^2-1)/(1+4*mu^2))*exp(-2*mu*x)
    -2*((2*mu^2-1)*cos(x)+3*mu*sin(x))/(1+4*mu^2);
    hold on
    f=@(x) V2(0.2,x)+cos(x);
    fzero(f,[pi/2,pi])*180/pi
    fplot(f,[0,pi])
    f=@(x) V2(0.2,x);
    fplot(f,[0,pi])
    hold off
    set(gca,'XTick',0:pi/2:2*pi)
    set(gca,'XTickLabel',{'0','\pi/2','\pi','3\pi/2','2\pi'})
    legend('N','V^2');
    grid on
    title('V_0^2=2, \mu=0.2')
    xlabel('\theta')
    ylabel('N, V^2') 
    ans =   104.4372

  7. Vamos cambiando el valor de la velocidad inicial V02 con el mismo rozamiento, μ=0.2 y vamos observando si se hace cero antes V2 o N. Por ejemplo, para V02=12, no se hace cero ni V2 ni N en el intervalo [0,2π]. Cambiando los valores de V0 y μ y observando la representación gráfica de V2 y N nos permite conocer con detalle la complejidad del movimiento de la partícula en el bucle

  8. mu=0.2;
    V0=sqrt(12);
    V2=@(mu,x) (V0^2+2*(2*mu^2-1)/(1+4*mu^2))*exp(-2*mu*x)-
    2*((2*mu^2-1)*cos(x)+3*mu*sin(x))/(1+4*mu^2);
    hold on
    f=@(x) V2(0.2,x)+cos(x);
    fplot(f,[0,2*pi])
    f=@(x) V2(0.2,x);
    fplot(f,[0,2*pi])
    hold off
    set(gca,'XTick',0:pi/2:2*pi)
    set(gca,'XTickLabel',{'0','\pi/2','\pi','3\pi/2','2\pi'})
    legend('N','V^2');
    grid on
    title('V_0^2=12, \mu=0.2')
    xlabel('\theta')
    ylabel('N, V^2') 

Ecuación diferencial del movimiento

A partir de la figura al principio de esta página, en la que se han dibujado las fuerzas sobre la partícula, formulamos las ecuaciones del movimiento en la dirección radial y tangencial

mR ( dθ dt ) 2 =Nmgcosθ mR d 2 θ d t 2 =mgsinθμN

Eliminando la reacción N

d 2 θ d t 2 = g R sinθμ g R cosθμ ( dθ dt ) 2

Se resuelve esta ecuación diferencial por procedimientos numéricos con las siguientes condiciones iniciales: en el instante t=0, θ=0, dθ/dt=v0/R

mu=0.2;  %coeficiente de rozamiento
R=1; %radio
x0=[0, sqrt(5*9.8)];
f=@(t,x) [x(2);-(9.8/R)*sin(x(1))-(mu*9.8/R)*cos(x(1))-mu*x(2)^2];
tspan=[0 2.2];
opts=odeset('events',@stop_bucle);
[t,x]=ode45(f,tspan,x0,opts);
 
subplot(2,1,1)
plot(t,x(:,1))
set(gca,'YTick',0:pi/2:2*pi)
set(gca,'YTickLabel',{'0','\pi/2','\pi','3\pi/2','2\pi'})
grid on
xlabel('t')
ylabel('\theta');
title('Posición angular en función del tiempo')
subplot(2,1,2)
plot(t,x(:,2))
grid on
xlabel('t')
ylabel('d\theta/dt');
title('Velocidad angular en función del tiempo')

Se crea una función que detiene el proceso de integración cuando la velocidad dθ/dt=0 o cuando la reacción N sea cero, en los cuadrantes apropiados

function [detect,stopin,direction]=stop_bucle(~,x)
   ang=mod(x(1),2*pi); 
    if (ang>0 && ang<pi/2) ||(ang>pi && ang<2*pi)  
        detect=x(2);
    else
        detect=x(2)^2/9.8+cos(x(1));
    end
    stopin=1; 
    direction=-1; 
end

En la figura, repetimos el ejemplo 3, vemos que el proceso de integración se detiene en el segundo cuadrante, cuando N=0, anque dθ/dt sea mayor que cero. En ese instante, la partícula deja de tener contacto con la pista circular y describe una trayectoria parabólica de caída.

Actividades

Se introduce

Se pulsa el botón titulado Nuevo y se observa el movimiento del bloque

En la parte izquierda, se proporcionanlos datos del tiempo t, la posición angular θ, en grados, la velocidad angular ω=dθ/dt, y la reacción N

En la parte derecha, se representa el balance energético: la energía cinética (en color rojo), la energía potencial (en color azul) y el trabajo de la fuerza de rozamiento (en color negro)


Referencias

Waldemar Klobus. Motion on a vertical loop with friction. Am. J. Phys. 79 (9), September 2011, pp. 913-918