重力加速度(g)変化、地表からの距離

plot_g_transition_by_height_from_the_earth.R

z.g <- 6.67259e-11
z.m <- 5.972e24
z.r <- 6.356752314e6
z.fg <- function(h) z.g * z.m / (h + z.r)^2
curve(z.fg, from = 0, to = 1e7, xlab = "h[m]", ylab = "g[m/s2]", ylim = c(0, 10))
abline(v = 400e3)

z.g: 万有引力定数
z.m: 地球の質量
z.r: 地球の半径
z.fg: 重力加速度関数
400e3: スペースシャトルの位置
g: 重力加速度
h: 地表からの距離

重力加速度が地表から離れるにつれてどのように変わるかをプロットしました。