https://github.com/cran/pracma
Tip revision: 708a2ad382a163d1eef5af0665e3ae2aad200ced authored by HwB on 21 March 2013, 00:00:00 UTC
version 1.4.5
version 1.4.5
Tip revision: 708a2ad
rosenbrock.R
##
## r o s e n b r o c k . R Test Functions
##
rastrigin <- function(x) {
n <- length(x)
10*n + sum(x^2 - 10*cos(2*pi*x))
}
rosenbrock <- function(x) {
n <- length(x)
x1 <- x[2:n]
x2 <- x[1:(n-1)]
sum(100*(x1-x2^2)^2 + (1-x2)^2)
}