The following mathematica notebook does most of the work required for a derivation of Kepler's First Law (the ellipse law). I'll add further commentary to it when I get a chance.
Kepler's First Law (mathematica notebook)