Bisection Method In Mathematica