Three Body Problem Mathematica Code