Finding Root By False Position Method In Mathematica ~REPACK~