Finding Root By Fixed Point Iteration Method In Mathematica