R/griewank.R

In EEEA: Explicit Exploration Strategy for Evolutionary Algorithms

Defines functions griewank

Documented in griewank

griewank <- function(x) {
  term1 <- sum(x^2 / 4000)
  term2 <- prod(cos(x / sqrt(seq_along(x))))
  return(1 + term1 - term2)
}

Try the EEEA package in your browser