********************************************************************
function: psychoacoustics not including preecho
- last mod: $Id: psy.c,v 1.77 2002/10/11 07:44:28 xiphmont Exp $
+ last mod: $Id: psy.c,v 1.78 2002/10/17 04:41:39 xiphmont Exp $
********************************************************************/
lo = hi - fixed;
tN = N[hi] + N[-lo];
- tX = X[hi] - X[-lo];
+ tX = X[hi] + X[-lo];
tXX = XX[hi] + XX[-lo];
tY = Y[hi] + Y[-lo];
- tXY = XY[hi] - XY[-lo];
+ tXY = XY[hi] + XY[-lo];
A = tY * tXX - tX * tXY;
}
if(seq&1)
- _analysis_output("medianR",seq/2,work,n,1,0,0);
+ _analysis_output("median2R",seq/2,work,n,1,0,0);
else
- _analysis_output("medianL",seq/2,work,n,1,0,0);
+ _analysis_output("median2L",seq/2,work,n,1,0,0);
if(seq&1)
- _analysis_output("envelopeR",seq/2,work2,n,1,0,0);
+ _analysis_output("envelope2R",seq/2,work2,n,1,0,0);
else
- _analysis_output("enveloperL",seq/2,work2,n,1,0,0);
+ _analysis_output("envelope2L",seq/2,work2,n,1,0,0);
seq++;
}
#endif