powered by
secant(f, x, tol = 0.001, m = 100)
tol
m
bisection
goldsect
gradient
hillclimbing
newton
sa
f <- function(x) { x^3 - 2 * x^2 - 159 * x - 540 } secant(f, 1)
Run the code above in your browser using DataLab