R/camelback.R

camelback <- function(x){
	x1 <- x[1]*6-3   
	x2 <- x[2]*4-2  
	(4-2.1*x1^2+(x1^4)/3)*x1^2+x1*x2+(-4+4*x2^2)*x2^2 
}
IRSN/DiceKriging documentation built on May 8, 2019, 1:25 p.m.