109 SumX = SumY = SumXSq = SumYSq = SumXY = (
REAL)0.0;
110 for(i=0; i<NItem; i++)
122 Sx = SumXSq - SumX*SumX/n;
123 Sy = SumYSq - SumY*SumY/n;
124 c = SumXY - SumX*SumY/n;
126 r = c / (
REAL)sqrt((
double)(Sx * Sy));
REAL blPearson1(REAL *x, REAL *y, int NItem)
Type definitions for maths.