Keywords: Gravity well plot.svg Graph of gravity well Above Distortion of space-time Below Gravitational potential function own O - Asymptote import graph3; typedef real fun real ; fun Phi real R real GM_R real shift 0 return new real real r real r_R abs r / R; if r_R > 1 return -GM_R / r_R + shift; else return 0 5 GM_R r_R 2 - 3 + shift; ; typedef real fun2 pair ; fun2 revolve fun f return new real pair z return f abs z ; ; size 300 0 ; currentprojection perspective 0 20 4 ; add surface revolve Phi 2 7 nsub 4 -12 -12 12 12 nx 20 light O ; draw graph Phi 2 7 -10 -24 24 ; 2007 BenRG See also GravityPotential jpg 64 b l Gravitation 3D |