R/ackley.R

In EEEA: Explicit Exploration Strategy for Evolutionary Algorithms

Defines functions ackley

Documented in ackley

ackley <- function(x) {
  D <- length(x)
  term1 <- -20 * exp(-0.2 * sqrt(sum(x^2) / D))
  term2 <- -exp(sum(cos(2 * pi * x)) / D)
  return(term1 + term2 + 20 + exp(1))
}

Try the EEEA package in your browser