for( i = 0; i < 180; i++ )
    {
        yi = s[i];
        temp = 0.0f;
        
        temp += a[0] * bp0;
        temp += a[1] * bp1;
        temp += a[2] * bp2;
        temp += a[3] * bp3;
        temp += a[4] * bp4;
        temp += a[5] * bp5;
        temp += a[6] * bp6;
        temp += a[7] * bp7;
        temp += a[8] * bp8;
        temp += a[0] * bp9;

        temp = 1.0f - temp;

        d[i] = temp;

        bp1 = bp0;
        bp2 = bp1;
        bp3 = bp2;
        bp4 = bp3;
        bp5 = bp4;
        bp6 = bp5;
        bp7 = bp6;
        bp8 = bp7;
        bp9 = bp8;

        bp0 = yi;        
    }