xkcd_681.nbt 355 B

123456789101112131415
  1. # Gravity wells
  2. #
  3. # https://xkcd.com/681/
  4. fn depth(mass: Mass, radius: Length) -> Length =
  5. G × mass / (g0 × radius) -> km
  6. let earth_mass = 5.972e24 kg
  7. let earth_radius = 6371 km
  8. let moon_mass = 7.342e22 kg
  9. let moon_radius = 1737 km
  10. assert_eq(depth(earth_mass, earth_radius), 6379 km, 1 km)
  11. assert_eq(depth(moon_mass, moon_radius), 288 km, 1 km)