Program of secant method