Movimiento vertical de un cohete con rozamiento (II)

En las páginas previas, se ha supuesto que la masa del cohete decrece linealmente con el tiempo hasta el instante tf en el que se agota el combustible, m=m0-D·t, donde D=-dm/dt cantidad de combustible quemado en la unidad de tiempo. El empuje constante es el producto uD, siendo u la velocidad de salida de los gases respecto del cohete. La masa final del cohete es mf=m0-D·tf

En esta página, supondremos que la masa disminuye exponencialmente con el tiempo, m=m0exp(-t/τ), hasta el instante tf en el que se agota el combustible. La masa final del cohete será mf=m0exp(-tf). El combustible gastado es la diferencia m0-mf

Sin rozamiento

Hemos deducido la ecuación de un cohete que se mueve verticalmente sin rozamiento

mg=m dv dt +u dm dt

Un cohete puede considerarse una partícula de masa variable m sometida a la acción de dos fuerzas de la misma dirección y sentido contrario:

La ecuación del movimiento para t<tf es

m= m 0 exp( t τ ), dm dt = m 0 τ exp( t τ )= m τ mg=m dv dt u m τ dv dt = u τ g

La aceleración es constante. Para que el cohete ascienda partiendo del reposo, u/τ>g

La velocidad y altura del cohete serán

v= v 0 +( u τ g )t x= v 0 t+ 1 2 ( u τ g ) t 2

A continuación, estudiaremos dos casos de fuerza de rozamiento Fr:

Fuerza de rozamiento proporcional a la velocidad

En este caso Fr=bv. La ecuación del movimiemto de escribe

mgbv=m dv dt +u dm dt m dv dt =m u τ mgbv dv dt + b m v= u τ g

Hacemos el cambio de variable

ξ= bτ m = bτ m 0 exp( t τ ) dv dt = dv dξ dξ dt = dv dξ b m = dv dξ ξ τ

Sustituyendo en la ecuación diferencial

dv dξ ξ τ + ξ τ v= u τ g dv dξ +v=( u τ g ) τ ξ

Tenemos una ecuación del tipo

dv dξ +P(ξ)v=Q(ξ),{ P(ξ)=1 Q(ξ)=( u τ g ) τ ξ

cuya solución es

v(ξ)=exp( P(ξ)dξ ){ c+ Q(ξ)exp( P(ξ)dξ )dξ }

donde c es una constante que determina la condición inicial, en el instante t=0, parte con velocidad v0.

P(ξ)dξ =ξ ( u τ g ) τ ξ exp( ξ )dξ =( ugτ ) exp( ξ ) ξ dξ v(ξ)=exp( ξ ){ c+( ugτ ) exp( ξ ) ξ dξ }

La constante c se determina a partir de las condiciones iniciales, t=0, v=v0, ξ0=bτ/m0

v 0 =exp( ξ 0 ){ c+( ugτ )f( ξ 0 ) } c= v 0 exp( ξ 0 )( ugτ )f( ξ 0 )

La expresión de la velocidad v en función del tiempo t es

v(ξ)=exp( ξ ){ v 0 exp( ξ 0 )+( ugτ )( f(ξ)f( ξ 0 ) ) } v(ξ)=exp( ξ ){ v 0 exp( ξ 0 )+( ugτ )( ξ e ξ ξ dξ ξ 0 e ξ ξ dξ ) } v(ξ)=exp( ξ ){ v 0 exp( ξ 0 )+( ugτ )( ei(ξ)ei( ξ 0 ) ) }

Donde ei(ξ) se denomina función integral exponencial

Ejemplo

Sea un cohete

Representamos

u=400; %velocidad de salida de los gases
v0=30; %velocidad inicial
tau=35; %parámetro
tf=42.1; %agota el combustible
m0=1000; %masa inicial
b=10;
hold on
%sin rozamiento
v=@(t) v0+(u/tau-9.8)*t;
fplot(v,[0,tf], 'color','k')
%solución analítica
v=@(t) exp(-b*tau*exp(t/tau)/m0).*(v0*exp(b*tau/m0)+(u-9.8*tau)*
(ei(b*tau*exp(t/tau)/m0)-ei(b*tau/m0)));
fplot(v,[0,tf])
%solución numérica
f=@(t,x) [x(2); u/tau-9.8-b*x(2)*exp(t/tau)/m0];
[t,x]=ode45(f,[0,tf],[0,v0]);
plot(t,x(:,2))
hold off
grid on
xlabel('t (s)')
ylabel('v (m/s)')
title('Velocidad')

Observamos que la solución numérica de la ecuación diferencial del movimiento, utilizando el procedimiento ode45 de MATLAB, coincide con la analítica

d 2 x d t 2 + b m 0 dx dt exp( t τ )= u τ g

Las condiciones iniciales son, en el instante t=0, x=0, dx/dt=v0

Fuerza de rozamiento proporcional al cuadrado de la velocidad

En este caso Fr=bv2. La ecuación del movimiemto de escribe

dv dt + b m v 2 = u τ g

Es una ecuación del tipo

dv dt + a 2 v 2 a 0 =0,{ a 2 (t)= b m 0 exp( t τ ) a 0 = u τ g

que es complicada de resolver

Definimos una nueva variable χ, tal que

v= dχ dt a 2 χ

Derivamos respecto del tiempo

dv dt = d 2 χ d t 2 a 2 χ( d a 2 dt χ+ a 2 dχ dt ) dχ dt a 2 2 χ 2 = d 2 χ d t 2 a 2 χ d a 2 dt dχ dt a 2 2 χ ( dχ dt ) 2 a 2 χ 2

Introduciendo v y dv/dt en la ecuación diferencial, obtenemos

a 2 d 2 χ d t 2 d a 2 dt dχ dt a 0 a 2 2 χ=0

Definimos una nueva variable ξ

ξ=2τ b a 0 m =2τ b a 0 m 0 exp( t τ )

Cambiamos la variable t por ξ

dχ dt = dχ dξ dξ dt = ξ 2τ dχ dξ d 2 χ d t 2 = d dt ( dχ dt )= d dξ ( dχ dt ) dξ dt = d dξ ( ξ 2τ dχ dξ ) dξ dt =( 1 2τ dχ dξ + ξ 2τ d 2 χ d ξ 2 ) ξ 2τ = 1 4 τ 2 ( ξ dχ dξ + ξ 2 d 2 χ d ξ 2 ) d a 2 dt = a 2 τ a 0 a 2 = ξ 2 4 τ 2

Introducimos, a0a2, da2/dt, dχ/dt, d2χ/dt2 en la ecuación diferencial, que se transforma en

d 2 χ d t 2 1 τ dχ dt a 0 a 2 χ=0 1 4 τ 2 ( ξ dχ dξ + ξ 2 d 2 χ d ξ 2 ) 1 τ ξ 2τ dχ dξ ξ 2 4 τ 2 χ=0 ξ d 2 χ d ξ 2 dχ dξ ξχ=0

Haciendo el cambio

χ=ξ·φ(ξ) dχ dξ =φ+ξ dφ dξ d 2 χ d ξ 2 = dφ dξ + dφ dξ +ξ d 2 φ d ξ 2 =2 dφ dξ +ξ d 2 φ d ξ 2

Sustituyendo en la ecuación diferencial

ξ( 2 dφ dξ +ξ d 2 φ d ξ 2 )( φ+ξ dφ dξ ) ξ 2 φ=0 ξ 2 d 2 φ d ξ 2 +ξ dφ dξ ( ξ 2 +1 )φ=0

Obtenemos una ecuación de Bessel, cuya solución es

φ(ξ)= c 1 I 1 (ξ)+ c 2 K 1 (ξ)

La expresión de la velocidad v(ξ) es

v= dχ dt a 2 χ = ξ 2τ ( φ+ξ dφ dξ ) ξ 2 4 τ 2 a 0 ξ·φ(ξ) = 2τ a 0 ξ 2 c 1 I 1 (ξ)+ c 2 K 1 (ξ)+ξ( c 1 ( I 0 (ξ) I 1 (ξ) ξ )+ c 2 ( K 0 (ξ) K 1 (ξ) ξ ) ) c 1 I 1 (ξ)+ c 2 K 1 (ξ) v(ξ)= 2τ a 0 ξ ( c I 0 (ξ) K 0 (ξ) ) ( c I 1 (ξ)+ K 1 (ξ) ) ,ξ=2τ b a 0 m 0 exp( t τ )

La constante c=c1/c2 se determina sabiendo que en el instante t=0, m=m0, y v=v0.

v 0 = 2τ a 0 ξ 0 ( c I 0 ( ξ 0 ) K 0 ( ξ 0 ) ) ( c I 1 ( ξ 0 )+ K 1 ( ξ 0 ) ) , ξ 0 =2τ b a 0 m 0 c= 2τ a 0 K 0 ( ξ 0 )+ v 0 ξ 0 K 1 ( ξ 0 ) 2τ a 0 I 0 ( ξ 0 ) v 0 ξ 0 I 1 ( ξ 0 )

Ejemplo

Sea un cohete

Representamos

u=1200; %velocidad de salida de los gases
v0=200; %velocidad inicial
tau=15; %parámetro
tf=18.1; %agota el combustible
m0=1000; %masa inicial
b=0.04;
hold on
%sin rozamiento
a0=u/tau-9.8;
v=@(t) v0+a0*t;
fplot(v,[0,tf], 'color','k')
%solución analítica
xi_0=2*tau*sqrt(b*a0/m0);
c=(2*tau*a0*besselk(0,xi_0)+v0*xi_0*besselk(1,xi_0))/
(2*tau*a0*besseli(0,xi_0)-v0*xi_0*besseli(1,xi_0));
v=@(t) 2*tau*a0*(c*besseli(0,2*tau*sqrt(b*a0*exp(t/tau)/m0))-
besselk(0,2*tau*sqrt(b*a0*exp(t/tau)/m0)))./(2*tau*sqrt(b*a0*exp(t/tau)/m0).*
(c*besseli(1,2*tau*sqrt(b*a0*exp(t/tau)/m0))+besselk(1,2*tau*
sqrt(b*a0*exp(t/tau)/m0))));
fplot(v,[0,tf])
%solución numérica
f=@(t,x) [x(2); u/tau-9.8-b*x(2)^2*exp(t/tau)/m0];
[t,x]=ode45(f,[0,tf],[0,v0]);
plot(t,x(:,2))
hold off
grid on
xlabel('t (s)')
ylabel('v (m/s)')
title('Velocidad')

Observamos que la solución numérica de la ecuación diferencial del movimiento, utilizando el procedimiento ode45 de MATLAB, coincide con la analítica

d 2 x d t 2 + b m 0 ( dx dt ) 2 exp( t τ )= u τ g

Las condiciones iniciales son, en el instante t=0, x=0, dx/dt=v0

Referencias

Hilário Rodrigues, Marcos Oliveira Pinho, Dirceu Portes Jr., Arnaldo José Santiago. Modelling the dynamics of bodies self-propelled by exponential mass exhaustion. Eur. J. Phys. 29 (2008) pp. 527–537