Mathematica Code For Newton Raphson Method