Final Mathematica project for calculus