FXLMS Algorithm - Periodic noise cancellation


#include<stdio.h>
#include<math.h>

#define taps 8
#define Hz 0.763
#define mu 8e-3
#define Pz 0.817

void main()
{
     float c[taps], y[taps], xn[10], x1[taps], x[taps], w[taps], yn, rn, en, e_n, j, val;
     int reg[14] = { 0,1, 0,0,0,0, 0,1,0,0, 0,1,0,1 };
     int i, k, l=0, shift, value=0;

     clrscr();

     for( i=0; i<taps; i++ )
          x1[i] = w[i] = x[i] = c[i] = y[i] = 0;

     for( i=0; i<200; i++ )
     {
          shift = (reg[0] ^ reg[2]) ^ (reg[9] ^ reg[11]);

          for( k=13; k>0; k-- )
              reg[k] = reg[k-1];
          reg[0] = shift;

          for( k=13; k>=0; k-- )
              value += reg[k] * pow( 2, k );
 
          value = value - 8192;
          yn = 5.0/8192 * value;

          value = 0;

          en = Hz * yn;

          for( k=taps-1; k>0; k-- )
              y[k] = y[k-1];

          y[0] = yn;

          rn = 0;
          for( k=0; k<taps; k++ )
               rn += c[k] * y[k];
 
          e_n = en - rn;

          for( k=0; k<taps; k++ )
               c[k] = c[k] + ( mu * e_n * y[k] );
     }

     for( i=0,j=0; j<=5e-3; j+=5e-4,i++ )
     {
          val = 5 * sin( 2*3.142*200*j );
          xn[i] = val;
     }
 
     for( i=0; i<300; i++ )
     {
          for( k=taps-1; k>0; k-- )
               x[k] = x[k-1];
          x[0] = xn[l];

          en = Hz*Pz*x[0];

          for( k=taps-1; k>0; k-- )
               x1[k] = x1[k-1];
 
          x1[0] = 0;
          for( k=0; k<taps; k++ )
              x1[0] += c[k] * x[k];

          yn = 0;
          for( k=0; k<taps; k++ )
               yn += w[k] * x[k];
          rn = yn*Hz;

          e_n = en + rn;

          for( k=0; k<taps; k++ )
               w[k] = w[k] - ( mu * e_n * x1[k] );

          printf( "%.2f\n", en );

          l++;
          l = l>9 ? 0 : l;
     }
}
  1