[an error occurred while processing this directive]
|
автокорреляцияint16 i,k;
for (i=0; i<=P; i++)
{
R[i]=0;
for(k=0; k<(window-1); k++)
R[i]+=xw[k]*xw[k+i];
}Сам алгоритм
float alfa;
int16 i,k;
float E,B,PARCOR;
float b[64];beta[0]=1;
E=R[0];
for (i=1; i<=P; i++)
{
B = R[i];
for (k=1; k<(i); k++) B +=R[i-k]*beta[k];
PARCOR=-B/E;
for (k=1; k<(i); k++) b[k]=beta[i-k];
for (k=1; k<(i); k++) beta[k] += PARCOR*b[k];
beta[i]=PARCOR;
E *= (1 - beta[i]*beta[i]);
}
alfa=E;
E-mail: info@telesys.ru