Esfera de gas en equilibrio bajo la acción de su propia gravedad
Masa del cuerpo celeste

Supongamos un cuerpo celeste de masa M y radio R cuya densidad ρ(r) cambia con la distancia al centro.
Dividimos la esfera de radio R en capas esféricas de radio r y de espesor dr. La masa dm que contiene cada una de las capas es
La masa M(r) contenida en una esfera de radio r es
Cuando el límite superior es R tenemos la masa M del cuerpo celeste
Cuando la densidad es constante
Presión en el centro
En una capa esférica de de radio r y de espesor dr, consideramos un elemento de volumen (en color rojo) de área dA. Las fuerzas sobre el elemento de masa dm=ρ·dA·dr son
La fuerza de atracción, dirigida hacia el centro de la Tierra dm·g(r). Donde g(r) es la aceleración de la gravedad a una distancia r del centro de la Tierra
La fuerza que ejerce la presión p(r)·dA sobre la cara inferior del elemento de volumen
La fuerza que ejerce la presión p(r+dr)·dA sobre la cara superior del elemento de volumen
En el equilibrio
Obtenemos la ecuación
La aceleración de la gravedad g(r) en un punto situado a una distancia r del centro, se debe (ley de Gauss) a la masa M(r) contenida en la esfera de radio r
Densidad constante
Supongamos que la densidad ρc del cuerpo celeste es constante. La masa es
Representamos la densidad ρ(r)/ρc en función de r/R
line([0,1],[1,1],'color','r') grid on ylim([0,1.1]) xlabel('r/R') ylabel('\rho(r)/\rho_c') title('Densidad')
Calculamos la presión en el centro pc para r=0
La presión a una distancia r del centro
fplot(@(x) 1-x.^2,[0,1],'color','b') grid on ylim([0,1.1]) xlabel('r/R') ylabel('p(r)/p_c') title('Presión')
La densidad disminuye linealmente con la distancia al centro
Es un caso particular de la densidad que estudiaremos en el apartado siguiente con n=1
La masa del cuerpo celeste es
Calculamos la presión en el centro pc para r=0
La presión a una distancia r del centro
La densidad es una función potencial
Supongamos que la densidad disminuye con la distancia r al centro de la forma
Representamos la densidad ρ/ρc en función del cociente r/R para n= 1, 3, 5, 7, 9. El caso, n=1, es la densidad lineal estudiada en el apartado anterior
hold on for n=1:2:9 fplot(@(x) 1-x.^n, [0,1], 'displayName',num2str(n)) end grid on xlabel('r/R') legend('-DynamicLegend','location','best') ylabel('\rho/\rho_c') title('Densidad')
La masa del cuerpo celeste es
Calculamos la presión en el centro pc para r=0
La presión a una distancia r del centro
Comprobamos que para n=1, obtenemos el resultado del apartado anterior
Representamos la presión p/pc en función del cociente r/R para n= 1, 3, 5, 7, 9. El caso, n=1, (primera curva de color azul) corresponde a la densidad lineal estudiada en el apartado anterior
hold on for n=1:2:9 f=@(x) 1-(n+3)*(n+2)*(n+1)*x.^2/(n^2*(n+4))+2*(n+6)*(n+1)*x.^(n+2)/(n^2*(n+4)) -3*(n+2)*x.^(2*n+2)/(n^2*(n+4)); fplot(f, [0,1], 'displayName',num2str(n)) end grid on xlabel('r/R') legend('-DynamicLegend','location','best') ylabel('p/p_c') title('Presión')
La densidad es una función exponencial decreciente
La densidad ρ(r) es
Representamos la densidad ρ(r)/ρc en función de r/R
fplot(@(x) (1-x/3).*exp(-x),[0,1]) grid on ylim([0,1.1]) xlabel('r/R') ylabel('\rho(r)/\rho_c') title('Densidad')
La masa de gas contenida en la esfera de radio r es
Integrando por partes
El resultado es
La ecuación diferencial se escribe
Integramos entre 0 y r
Integrando por partes
El resultado es
Donde pc es la presión en el centro de la esfera que determinamos sabiendo que p(R)=0
La presión p en función de la distancia radial r es
Representamos p(r)/pc en función de r/R
f=@(x) ((1+2*x-x.^2).*exp(2-2*x)-2)/(exp(2)-2); fplot(f,[0,1]) grid on ylim([0,1.1]) xlabel('r/R') ylabel('p(r)/p_c') title('Presión')
Otra condición de contorno sería que la presión en el infinito fuese nula p(∞)=0
La presión p en función de la distancia radial r es
Representamos p(r)/pc en función de r/R
f=@(x) (1+2*x-x.^2).*exp(-2*x); fplot(f,[0,3]) grid on ylim([0,1.1]) xlabel('r/R') ylabel('p(r)/p_c') title('Presión')
La densidad es una función gausiana
La densidad ρ(r) es
Representamos la densidad ρ(r)/ρc en función de r/R
fplot(@(x) (1-2*x.^2/3).*exp(-x.^2),[0,1]) grid on ylim([0,1.1]) xlabel('r/R') ylabel('\rho(r)/\rho_c') title('Densidad')
La masa de gas contenida en la esfera de radio r es
Integrando por partes
El resultado es
La ecuación diferencial se escribe
Integramos entre 0 y r
Tenemos una integral inmediata y otra por partes
El resultado es
Donde pc es la presión en el centro de la esfera que determinamos sabiendo que p(R)=0
La presión p en función de la distancia radial r es
Representamos p(r)/pc en función de r/R
f=@(x) (1-x.^2).*exp(-2*x.^2); fplot(f,[0,1]) grid on ylim([0,1.1]) xlabel('r/R') ylabel('p(r)/p_c') title('Presión')
Otra condición de contorno sería que la presión en el infinito fuese nula p(∞)=0
La presión p en función de la distancia radial r es
Se obtiene el mismo resultado
Modelo para el gradiente de presión dp/dr
En el tercer artículo citado en las referencias, se propone un modelo para el gradiente de presión que represente de forma analítica sencilla la estructura del interior del Sol.
donde a es un parámetro de ajuste. El gradiente de presión tiene la forma de la función
La función tiene un extremo, que calculamos derivando con respecto de x,
para el gradiente de presión presenta un mínimo.
Representamos el gradiente de presión dp/dr en función de r/a
f=@(x) -x.*exp(-x.^2); fplot(f, [0,4]) line([1/sqrt(2), 1/sqrt(2)],[0,f(1/sqrt(2))], 'lineStyle','--') grid on xlabel('r/a') ylabel('dp/dr') title('Gradiente de presión')
La presión en el centro, r=0
El segundo término podría ser despreciable frente a la unidad
Hemos obtenido una expresión similar cuando la densidad es constante, R el radio del cuerpo celeste, en vez del parámetro a
La presión para cualquier valor de r es
Dado el gradiente de presión dp/dr calculamos la masa del cuerpo celeste
Partimos de las relaciones
Llegamos a la masa M(r)
Hacemos el cambio de variable y=x2, dy=2x·dx. Integramos dos veces por partes
La masa del cuerpo celeste es M=M(R)
Conocida la masa M(r) calculamos la densidad ρ(r)
Partimos de las relaciones
Despejamos la densidad ρ(r)
Representamos la densidad ρ/ρc en función de x=r/a
f=@(x) x.^3.*exp(-x.^2)./sqrt(6-3*exp(-x.^2).*(x.^4+2*x.^2+2)); fplot(f, [0,5]) grid on xlabel('r/a') ylabel('\rho/\rho_c') title('Densidad')
Cuando x→0, es pequeño
>> syms x; >> taylor(exp(-x^2), x,0,'order',7) ans =- x^6/6 + x^4/2 - x^2 + 1
El denominador
El cociente
tal como se aprecia en la representación gráfica
Cuando x→∞, es grande
Referencias
Andrei Smirnov, Ricardo Max Menezes Oliveira. Esferas de gás em estado de equilíbrio sob ação da gravitação própria. Revista Brasileira de Ensino de Física, v. 37, n. 1, 1308 (2015) https://www.scielo.br/j/rbef/i/2015.v37n1/
Mohammed Abobaker. Equilibrium of Gravitating System of Spherical Gas-Dust Cloud. Universal Journal of Mechanical Engineering 7(4): 192-197, 2019
Donald D. Clayton. Solar structure without computers. Am. J. Phys. 54 (4) April 1968, pp. 354-362