genback.c

GENETIC ALGORITHM FOR NEURAL NETWORKS ON TRANSPUTERS (Source code and Reference)

/* Implementations for Genetric Backpropagation */

#include "defs.h"
#include "ind.h"
#include "gen.h"
#include "back.h"
#include "stdnet.h"
#include "genback.h"

void randomNetPop(int popsize,float w)
{
  int i;

  for(i=0;i<popsize;i++)
  {
    randomNet(w);
    back2gen(Pop[i]);
  };
}

void gen2back(ind x)
{
  int i,j,k;
  for(i=0;i<=Nin;i++)
    for(j=0;j<Nhid;j++)
      { Wih[i][j]=weight1(x,i,j); DDih[i][j]=0.0; };
  for(j=0;j<=Nhid;j++)
    for(k=0;k<Nout;k++)
      { Who[j][k]=weight2(x,j,k); DDho[j][k]=0.0; };
  LearnRate=lrate(x);
  Impulse=imp(x);
}

void back2gen(ind x)
{
  int i,j,k;
  int w,m;
  float s;

  m=(1<<Nbits)-1;
  s=((1<<(Nbits-1))-1)/Width;
  for(i=0;i<=Nin;i++)
    for(j=0;j<Nhid;j++)
    {
      w=float2int(Wih[i][j]);
      if(w<0) w=0; else if(w>FGmax) w=FGmax;
      putbits(int2grey[w],x,IncW1*j+Nbits*i,Nbits);
    };
  for(j=0;j<=Nhid;j++)
    for(k=0;k<Nout;k++)
    {
      w=float2int(Who[j][k]);
      if(w<0) w=0; else if(w>FGmax) w=FGmax;
      putbits(int2grey[w],x,OffW2+IncW2*k+Nbits*j,Nbits);
    };
}

void backsteps(ind x,int n)
{
  int i;

  gen2back(x);
  for(i=0;i<n;i++)
  {
    calcNetErr();
    updateNet();
  };
  back2gen(x);
}