1//Bug discovered by julius smith
2
3SR = fconstant(int fSamplingFreq, <math.h>);
4R = 1.0-4410.0/SR;
5process = (1-1') / (1-R*R);
6