La función integral exponencial Ei(x)

Se define la función integral exponencial

Ei( x )= x e t t dt

fplot(@(x) ei(x),[0,4])
grid on
xlabel('x')
ylabel('Ei(x)')
title ('Función Ei(x)')

Utilizaremos esta función para calcular la integral

a b e t t dt =Ei( b )Ei( a )

Por ejemplo, sea a=2 y b=7. Calculamos la integral por dos procedimientos

>> integral(@(t) exp(t)./t, 2, 7)
ans =  186.5505
>> ei(7)-ei(2)
ans =  186.5505

Producen el mismo resultado

Una función similar es E1(x)

E 1 ( x )= x e t t dt

fplot(@(x) expint(x),[0,4])
grid on
xlabel('x')
ylabel('E_1(x)')
title ('Función E_1(x)')

Movimiento de un cuerpo en una atmósfera no uniforme

La atmósfera isoterma es un buen modelo cuando un cuerpo de masa m se deja caer desde una altura z0 de algunos kilómetros por encima de la superficie de la Tierra

p= p 0 exp( Mg RT z )= p 0 exp( z λ ),λ= RT Mg

La ecuación del movimiento

m d 2 z d t 2 =mg k 0 v 2 exp( z λ )

En vez de determinar la altura z en función del tiempo t, determinamos la velocidad de caída v en función de la altura z

d 2 z d t 2 = dv dt = dv dz dz dt =v dv dz v dv dz =g( 1 k 0 mg v 2 exp( z λ ) )

El cuerpo parte del reposo, incrementa su velocidad a medida que cae, alcanzando un valor límite constante dv/dz=0 cuando z se hace grande

0=g( 1 k 0 mg v 2 ) v t 2 = mg k 0

vt es la velocidad límite constante

Hacemos el cambio de variable

u= k 0 mg v 2 = ( v v t ) 2 x=exp( z λ ),z=λlnx,dz=λ dx x 1 2 d v 2 dz =g( 1 k 0 mg v 2 exp( z λ ) ) v t 2 2 du λ dx x =g( 1ux ) du dx = 2λg v t 2 ( 1 x u ) du dx +au= a x ,a= 2λg v t 2

Solución de la ecuación diferencial

Para obtener la solución de esta ecuación diferencial seguimos los pasos que se describen en la página titulada Ecuaciones diferenciales (I) en el apartado titulado 'Ecuaciones diferenciales exactas'

Para utilizar la misma nomenclatura, cambiamos temporalmente el nombre de la variable u por t

dt+a( t 1 x )dx=0,{ P(t,x)=1 Q(t,x)=a( t 1 x ) P x Q t

No es diferencial exacta, por lo que es posible encontrar un factor integrante μ tal que

x ( μP )= t ( μQ )

Buscamos el factor integrante de la segunda forma de las dos posibles

1 P ( Q t P x )=g(x),μ=exp( g(x)dx ) 1 1 ( a0 )=g(x),μ=exp( ax )

Comprobamos

x ( e ax ·1 )= t ( e ax a( t 1 x ) ) a e ax =a e ax

La ecuación diferencial se puede escribir de la forma

dU(t,x)=μP(t,x)dt+μQ(t,x)dx=0 μP(t,x)= U t ,μQ(t,x)= U x

Integramos

U= μP(t,x)dt+φ(x) U= e ax dt+φ(x) U=t e ax +φ(x)

Obtenemos la función φ(x)

μQ(t,x)= U x e ax a( t 1 x )=at e ax + dφ dx dφ dx =a e ax x φ(x)=a e ax x dx U=t e ax a e ax x dx =c t e ax a e ax x dx =c

Donde c es una constante que se determina a partir de la condición inicial. Restauramos el nombre de la variable cambiando de t a u

u=c e ax +a e ax e ax x dx

La condición inicial es u=0 para x=x0, (el cuerpo parte desde la altura z0 en reposo) por lo que c=0

Velocidad en función de la altura

En términos de las variables velocidad v y altura z, se escribe

( v v t ) 2 =a e ax x 0 x e ax x dx ,x=exp( z λ ) ( v v t ) 2 =a e ax a x 0 ax e t t dt ( v v t ) 2 =a e ax ( Ei( ax )-Ei( a x 0 ) )

Representamos el cociente de la velocidad adimensional v/vt en términos de la variable adimensional t=1-z/z0. El punto de partida es t=0, y el de llegada t=1. Los datos son

El coeficiente a vale

a= 2λg v t 2 =91.4107

lambda=7.4621e3;
a=2*lambda*9.8/40^2;
hold on
for z0=(10:10:30)*1000
    f=@(t) sqrt(a*exp(-a*exp(-(z0*(1-t)/lambda))).* 
(ei(a*exp(-z0*(1-t)/lambda))-ei(a*exp(-z0/lambda)))); 
    fplot(f,[0,1])
  %máximo
    x0=exp(-z0/lambda);
    g=@(x) a*x*exp(-a*x)*(ei(a*x)-ei(a*x0))-1;
    x_m=fzero(g,[x0,1]);
    z_m=-lambda*log(x_m);
    t_m=1-z_m/z0;
    line([t_m,t_m],[0,f(t_m)],'lineStyle','--')
end
hold off
grid on
xlabel('1-z/z_0')
ylabel('v/v_t')
title('Velocidad')

Observamos que la velocidad se incremente alcanzando un máximo a cierta altura y luego, disminuye hasta alcanzar una velocidad próxima a la límite vt. Este comportamiento del cuerpo que cae, es distinto si la atmósfera es uniforme. En este caso, la velocidad se va incrementando hasta alcanzar una velocidad próxima a la limite constante

El máximo ocurre cuando dv/dz=0

mg= k 0 v 2 exp( z λ ) mg k 0 v m 2 =exp( z m λ ) 1 u m = x m

Resolvemos la ecuación transcendente en xm, la altura a la que se produce el máximo

u m =a e a x m ( Ei( a x m )-Ei( a x 0 ) ) 1 x m =a e a x m ( Ei( a x m )-Ei( a x 0 ) )

En la figura, se ha señalado el máximo con una línea a trazos

La función integral exponencial Ei(x) en otras páginas

Referencias

Pirooz Mohazzabi. High-altitude free fall. Am J. Phys. 64 (10) October 1996, pp. 1242-1246