Una varilla vertical penetra en el agua

Una varilla en posición vertical de longitud l y sección S hecha de un material de densidad ρ, penetra en el agua de densidad ρf con velocidad inicial v0, tal como se muestra en la figura. Supondremos que la densidad de la varilla es mayor que la del agua
Vamos a estudiar el movimiento de la varilla, suponiendo que el medio ejerce una fuerza de rozamiento proporcional a la velocidad
Las fuerzas que actúan sobre la varilla son:
El peso, mg=ρSl·g
La fuerza de rozamiento, Fr=kv, de sentido contario a la velocidad
El empuje
- E=ρf·xS·g, cuando la varilla está parcialmente sumergida.
- E'=ρf·lS·g, cuando la varilla está totalmente sumergida
La varilla está parcialmente sumergida x<l
Sea x la posición del extremo inferior de la varilla. Estudiamos el movimiento de la varilla parcialmente sumergida, x<l
La ecuación característica tiene dos raíces reales negativas
La solución de la ecuación diferencial homogénea es
La solución particular es una cosntante C tal que
La solución completa es la suma de las dos
Los coeficientes A1 y B1 se determinan a partir de las condiciones iniciales, en el instante t=0, la posición del extremo inferior de la varilla es x=0 y su velocidad es dx/dt=v0
La varilla está completamente sumergida x=l en el instante t0, raíz de la ecuación transcendente
En dicho instante la velocidad de la varilla es
La varilla está completamente sumergida x>l
La ecuación del movimiento es ahora
La ecuación característica tiene dos raíces reales
La solución de la ecuación diferencial homogénea es
La solución particular ya no es una constante, sino C(t-t0), introduciendo en la ecuación diferencial
La solución completa para t>t0 es
Los coeficientes A2 y B2 se determinan a partir de las condiciones iniciales, en el instante t=t0, la posición del extremo inferior de la varilla es x=l y su velocidad es dx/dt=v01
Como la raíz r2 es negativa, la velocidad final tiende a
La velocidad final es independiente de la inicial v0
Ejemplos
Los datos son los siguientes
- Densidad del agua, ρf=1000 kg/m3
- Densidad de la varilla, ρ=2000 kg/m3
- Longitud de la varilla, l=2 m
- Sección de la varilla, S=1 cm2
- Fuerza de rozamiento, constante, k=1 s-1
- Velocidad inicial v0=0, (parte del reposo), v0=4 m/s
Representamos la velocidad de la varilla en función del tiempo, calculando el instante t0 mediante la
k=1;
rho_f=1000; %densidad del agua
rho=2000; %densidad varilla
S=1e-4; %sección varilla
l=2; %longitud varilla
m=rho*S*l; %masa de la varilla
dis=sqrt(k^2/m^2-4*rho_f*9.8/(rho*l)); %discriminante
hold on
for v0=[0,4]
%primera etapa
r1=(-k/m+dis)/2; %raíces de la ecuación característica
r2=(-k/m-dis)/2;
A1=(v0+r2*rho*l/rho_f)/(r1-r2); %coeficientes
B1=-(v0+r1*rho*l/rho_f)/(r1-r2);
x=@(t) A1*exp(r1*t)+B1*exp(r2*t)+rho*l/rho_f;
f=@(t) x(t)-l;
t0=fzero(f,[0,10]); %instante completamente sumergida
v=@(t) A1*r1*exp(r1*t)+B1*r2*exp(r2*t);
v0_1=v(t0);
%segunda etapa
r2=-k/m; %raíz de la ecuación acaracterística
B2=(v0_1-(1-rho_f/rho)*m*9.8/k)/r2; %coeficientes
A2=l-B2;
%x1=@(t) A2+B2*exp(r2*(t-t0))+(1-rho_f/rho)*m*9.8*(t-t0)/k;
v1=@(t) B2*r2*exp(r2*(t-t0))+(1-rho_f/rho)*m*9.8/k;
line([t0,t0],[0,v(t0)],'lineStyle','--')
fplot(v,[0,t0])
fplot(v1,[t0, 5])
end
hold off
grid on
xlabel('t (s)')
ylabel('v (m/s)')
title('Velocidad')

La velocidad límite constante v∞, independiente de la velocidad inicial es
>> (1-rho_f/rho)*m*9.8/k ans = 1.9600
Representamos la posición x del extremo inferior de la varilla
k=1;
rho_f=1000; %densidad del agua
rho=2000; %densidad varilla
S=1e-4; %sección varilla
l=2; %longitud varilla
m=rho*S*l; %masa de la varilla
dis=sqrt(k^2/m^2-4*rho_f*9.8/(rho*l)); %discriminante
hold on
for v0=[0,4]
%primera etapa
r1=(-k/m+dis)/2; %raíces de la ecuación característica
r2=(-k/m-dis)/2;
A1=(v0+r2*rho*l/rho_f)/(r1-r2); %coeficientes
B1=-(v0+r1*rho*l/rho_f)/(r1-r2);
x=@(t) A1*exp(r1*t)+B1*exp(r2*t)+rho*l/rho_f;
f=@(t) x(t)-l;
t0=fzero(f,[0,10]); %instante completamente sumergida
v0_1=r1*A1*exp(r1*t0)+r2*B1*exp(r2*t0);
%segunda etapa
r2=-k/m; %raíz de la ecuación acaracterística
B2=(v0_1-(1-rho_f/rho)*m*9.8/k)/r2; %coeficientes
A2=l-B2;
x1=@(t) A2+B2*exp(r2*(t-t0))+(1-rho_f/rho)*m*9.8*(t-t0)/k;
line([t0,t0],[0,x(t0)],'lineStyle','--')
fplot(x,[0,t0])
fplot(x1,[t0, 3])
end
hold off
grid on
xlabel('t (s)')
ylabel('x (m)')
title('Posición')

Referencias
HANG Yu-feng, XIE Dong, WEI Xiang-zhong, SHANGGUAN Wang-zuo. Analytical calculation and numerical simulation of the dynamics of water-entry of a slender rod. College Physics. Volume 43, Issue 01, March 2024