Pensieve header: Maximize gravity on a little prince, following Greg Kuperberg.

RegionPlot[(x^2)≥((((x^2)+(y^2)))^3), {x,0,2}, {y,-1,1}]

ContourPlot[Log[((x^2)/((((x^2)+(y^2)))^3))],{x,0,2}, {y,-1,1}, Contours ->Range[-10,10]]