Bisection Method Code In Mathematica