https://github.com/cran/pracma
Raw File
Tip revision: 708a2ad382a163d1eef5af0665e3ae2aad200ced authored by HwB on 21 March 2013, 00:00:00 UTC
version 1.4.5
Tip revision: 708a2ad
aitken.R
##
##  a i t k e n . R  Aitken's acceleration method
##


aitken <- function(f, x0, nmax = 12, tol = 1e-8, ...) {
    if (!is.numeric(x0) || length(x0) != 1)
        stop("Argument 'x0' must be a numeric scalar.")
    fun <- match.fun(f)
    f <- function(x) fun(x, ...)

    x <- x0
    diff <- 1 + tol
    niter <- 0
    while (diff > tol && niter <= nmax) {
        gx <- f(x)
        ggx <- f(gx)
        xnew <- (x*ggx - gx^2) / (ggx - 2*gx + x)
        diff <- abs(x - xnew)
        x <- xnew
        niter <- niter + 1
    }
    if (niter > nmax)
        warning("Maximum number of iterations exceeded.")
    return(x)
}
back to top