/*===============================================       file : functions.c      purpose : define objective functions   developed : 1991     author : Kalyanmoy Deb=================================================*/#include "mga.ext"double file0(chr,len)int chr[];int len;/*  Liepins and Vose's fully deceptive function  */{	double x,val;	int d;	d = ones(chr,len);	if (d == 0)         /* local  solution: all 0's */		x = 1.0 - 1.0/(2.0*len);	else if (d == len)  /* global solution: all 1's */		x = 1.0;	else                /* otherwise */		x = 1.0 - (1.0 + d)/len;	return((double) x * len);}double file1(chr,len)int chr[];int len;/* Ackley's one max problem */{	double x,val;	x = ones(chr,len);	return((double) 10*x);}double file2(chr,len)int chr[];int len;/* Ackley's two max function */{	double x,val;	float fabs();	x = ones(chr,len);	val = fabs(18.0 * x - 8.0 * len);	return((double) val);}double file3(chr,len)int chr[];int len;/* Ackley's trap function */{	double x,z,val;	x = ones(chr,len);	z = 0.75 * len;	if (x <= z)		val = 8 * len * (z-x) / z;	else 		val = 10 * len * (x-z) / (len-z);	return((double) val);}double file4(chr,len)int chr[];int len;/* Ackley's Porcupine function */{	double x,val;	x = ones(chr,len);	val = 10 * x - 15 * (1 - parity(x));	return((double) val);}double file5(chr,len)int chr[];int len;/* Ackley's Plateaus function */{	double x, val, z;	float fabs();	int ones(), parity();	x = ones(chr,len);	if (x >= 1.0*len) 		val = 2.5 * len;	else val = 0.0;	return((double) val);}double file9(chr,len)int chr[];int len;/* User defined function */{	double x,val;	x = decode(chr,len);	val = x;	return((double) val);}double file7(chr,len)int chr[];int len;/* User defined function */{	double x,val;	x = decode(chr,len);	val = x;	return((double) val);}double file8(chr,len)int chr[];int len;/* User defined function */{	double x,val;	x = decode(chr,len);	val = x;	return((double) val);}double file6(chr,len)int chr[];int len;/* User defined function */{	double tval=0.0;	int val,i;	for (i=0; i<len; i++) {	/*	if (coeff[i] <= 0.5) val = 0;		else val = 1; */		if (val == chr[i]) tval += 1.0;	}		return((double) tval);}double get_func_val(id, chr, len)int id;unsigned chr[];int len;{	switch (id) {	case 0:		return(file0(chr,len));		break;	case 1:		return(file1(chr,len));		break;	case 2:		return(file2(chr,len));		break;	case 3:		return(file3(chr,len));		break;	case 4:		return(file4(chr,len));		break;	case 5:		return(file5(chr,len));		break;	case 6:		return(file6(chr,len));		break;	case 7:		return(file7(chr,len));		break;	case 8:		return(file8(chr,len));		break;	case 9:		return(file9(chr,len));		break;	default:		return(0.0);	}}