/************************************************************ * Function: * * Parameters: * * Returns: * * Description: * *************************************************************/ double OPT_Function_Routines (int fun_idx,int dim, double *para) { double result; switch (fun_idx) { case F6: result = f6(para); break; case SPHERE: result = sphere(dim,para); break; case ROSENBROCK: result = rosenbrock(dim,para); break; case RASTRIGRIN: result = rastrigrin(dim,para); break; case GRIEWANK: result = griewank(dim,para); break; default: break; } return(result); }
double MyHCJob19::basic_func(int func_no, double *x,int length) { double result = 0.0; switch(func_no) { case 0: case 1: result = ackley(x,length); break; case 2: case 3: result = rastrigin(x,length); break; case 4: case 5: result = sphere(x,length); break; case 6: case 7: result = weierstrass(x,length); break; case 8: case 9: result = griewank(x,length); break; default: printf("func_no is out of range."); exit(-1); } return (result); }
double MyHCJob24::basic_func(int func_no, double *x,int length) { double result = 0.0; // This part is according to Matlab reference code switch(func_no) { case 0: result = weierstrass(x,length); break; case 1: result = EScafferF6(x,length); break; case 2: result = F8F2(x,length); break; case 3: result = ackley(x,length); break; case 4: result = rastrigin(x,length); break; case 5: result = griewank(x,length); break; case 6: result = EScafferF6NonCont(x,length); break; case 7: result = rastriginNonCont(x,length); break; case 8: result = elliptic(x,length); break; case 9: result = sphere_noise(x,length); break; default: puts("func_no is out of range."); exit(-1); } return (result); }