Техническая закладка на память. Я нашёл параметры стандартной атмосферы и сделал простую аппроксимацию для расчёта (данные готовы для вставки в maxima).

array (h,8);
array (p,8);
array (T,8);
fillarray (h,[0.0, 11000.0, 20000.0, 32000.0, 47000.0, 51000.0, 71000.0, 84852.0]);
fillarray (p,[101325.0, 22632.0, 5474.9, 868.02, 110.91, 66.939, 3.9564, 0.3734]);
fillarray (T,[288.15, 216.65, 216.65, 228.65, 270.65, 270.65, 214.5, 186.95]);
R:8314.0;
mu:29.0;
xy:create_list([h[i],log(p[i]*mu/R/T[i])/log(10.0)],i,0,7);
plot2d([[discrete, xy], log(1.227*exp(-x/7100.0))/log(10.0)], [x,0,100000],
[style, points, lines], [color, red, blue], [point_type, bullet],
[legend, "Standard Atmosphere", "Approximation: rho = 1.227*exp(-h/7100)"],
[xlabel, "Altitude, m"], [ylabel, "log (Air Density, kg/m^3)"]);