added mathematica script that calcualtes focus of parabola