Mathematica generated solution to the restricted 3-body problem in three dimensions created by Jeff Bryant (jeffb@wolfram.com)