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