eval.c

遗传算法的一个源代码

#include <stdio.h>
#include "const.h"
#include "type.h"
#include "extern.h"
#include "exfunc.h"
#include <math.h>

/*==================================================================*/


double eval_org(IPTR pj) 
                        /* eval_org obviously takes a pointer to the org 
                        Called from gen.c and init.c */
{
  int n, pid, status;
  int i;
  double val[30];
  double sum;

  sum = 0.0;
  for(i = 0; i < nvars; i++){
    val[i] = decode(pj, i+10, 10);
    sum += val[i] * val[i];
  }
  return sum;
}


double decode(IPTR pj, int index, int size)
{
  return ((double) bin_to_dec(&(pj->chrom[index]), size) - 512.0)/100.0;
}


double bin_to_dec(int *chrom, int l)
{
  int i;
  double prod;

  prod = 0.0;

  for(i = 0; i < l; i++){
    prod += (chrom[i] == 0 ? 0.0 : pow((double)2.0, (double) i));
  }
  return prod;
}

void dec_to_bin(int ad, int *barray, int size)
{
  int i, t;

  t = ad;
  for(i = 0; i < size; i++){
    barray[i] = t%2;
    t = t/2;
  }
}