Revision 03698027c2d84118bd0c53c4a9a5b5d23676f388 authored by HwB on 01 October 2012, 00:00:00 UTC, committed by Gabor Csardi on 01 October 2012, 00:00:00 UTC
1 parent 9fdea5d
testfunctions.R
##
## t e s t f u n c t i o n s . 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)
}
Computing file changes ...
