source: Sophya/trunk/ArchTOIPipe/Processors/wienerdecor.cc@ 1956

#include "toimanager.h"
#include "correl.h"
#include "wienerdecor.h"
extern "C" {
#include "nrutil.h"
}
extern "C" void dtoeplz(double r[], double x[], double y[], int n);

WienerDecorrelator::WienerDecorrelator(int n, int l) {
  nsamples = n;
  lcorr = l;
}

void WienerDecorrelator::init() {
  declareInput("signal");
  declareInput("probe");
  declareOutput("signal");
  name="WienerDecorrelator";
  setNeededHistory(nsamples+lcorr+1);
  lowExtra = lcorr;
}

void WienerDecorrelator::run() {
  int snb = getMinIn();
  int sne = getMaxIn();

  //  cout << "Wiener " << snb << " - " << sne << endl;

  CorrelEstimator corr(lcorr, nsamples), autocorr(lcorr, nsamples);

  double* r = new double[2*lcorr];  // autocorr toeplitz matrix
  double* w = new double[lcorr+1];  // filter
  double* y = new double[lcorr+1];  // corr vector
  double* window = new double[lcorr];
  double* filter = w+1;
  
  int sn = snb;
  int snstartcorr = -1;
  
  while (sn < sne) {
    if (snstartcorr < 0 || 
        (snstartcorr + nsamples < sn && sn+nsamples < sne)) {
      // let's (re)compute the correlation
      snstartcorr = sn;
      corr.reset();
      autocorr.reset();
      for (int i=sn; i<sn+nsamples; i++) {
        double sig = getData(0, i);
        double prb = getData(1, i);
        corr.push(i, sig, prb);
        autocorr.push(i, prb);
      }
      // correlation is recomputed, let's recompute the wiener filter from wiener equations
      for (int i=0; i<lcorr; i++) {
        r[lcorr+i] = r[lcorr-i] = autocorr.correl(i);
        y[i+1] = corr.correl(i);
      }
      dtoeplz(r,w,y,lcorr);
      cout << "Wiener filter : \n ";
      for (int i=0; i<lcorr; i++) {
        cout << filter[i] << " ";
      }
     cout << endl;
    }

    if (sn >= snb+lcorr-1) {
      getData(1, sn-lcorr+1, lcorr, window);
      double outSig = 0;
      for (int i=0; i<lcorr; i++) {
        outSig += filter[i] * window[lcorr-1 - i];
      }
      putData(0, sn, getData(0, sn) - outSig);
    }
    sn++;
  }

  delete[] y;
  delete[] w;
  delete[] r;
}