Last chance! 50% off unlimited learning
Sale ends in
golden_ratio(f, a, b, ..., maxiter = 100, tol = .Machine$double.eps^0.5)
sqrt(eps)
.xmin
, fmin
,
the function value at the minimum, niter
, the number of iterations
done, and the estimated precision estim.prec
uniroot
f <- function(x) x * cos(0.1*exp(x)) * sin(0.1*pi*exp(x))
golden_ratio(f, 0, 4, tol=10^-10) # $xmin = 3.24848329206212
optimize(f, c(0,4), tol=10^-10) # $minimum = 3.24848328971188
Run the code above in your browser using DataLab