00001 #include "funcec08f7.h" 00002 #include "funcec08.h" 00003 00004 double fastfractal_doubledip( int dim ,tGen * x); 00005 00006 double fastfractal_doubledip_adapt(int dim ,const tGen * x) { 00007 double xs[dim]; 00008 double result; 00009 00010 for (int i=0; i < dim; ++i) { 00011 xs[i] = x[i]; 00012 } 00013 00014 result = fastfractal_doubledip(dim, xs); 00015 return result; 00016 } 00017 00018 00019 double eval_cec2008f7(const tGen *x, int dim) { 00020 extern int gfunc_number; 00021 00022 if (gfunc_number == 7) { 00023 return fastfractal_doubledip_adapt(dim, x); 00024 } 00025 else { 00026 return eval_cec2008(x, dim); 00027 } 00028 00029 }