inst/benchmarks/rosen10.R

rosen10<-function(x){
	f<-0;
	n=length(x);
	for (i in 1:(n-1)){
		 f <- f + 100*(x[i]^2 - x[i+1])^2 + (x[i]-1)^2;
	}
	return(f)
}
jaegea/MEIGOR documentation built on April 8, 2024, 9:36 a.m.