if (FALSE) {
p.a<- show.comp1(d.cigar4,"evals","(a) Cigar function")
p.b<- show.comp1(d.schaffer4,"evals","(b) Schafer function")
p.c<- show.comp1(d.griewank4,"evals","(c) Griewank function")
p.d<- show.comp1(d.bohachevsky4,"evals","(d) Bohachevsky function")
}
Run the code above in your browser using DataLab