Danke für die antwort, aber ich hab noch ne stelle gefunden wo es sehr hakt nämlich diese hier:
Delphi-Quellcode:
for(i=0; i<64; i++)
{
/* X1[i] = X[2*i] */
/* X2[i] = X[2*i+1] */
k = bit_reverse_256[i];
p = (127 - (i<<1))<<1;
q = i<<2;
/* Z1[i] = (X1[128-2*i-1] + j * X1[2*i]) * (xcos2[i] + j * xsin2[i]); */
buf_1[k].real = data[p] * xcos2[i] - data[q] * xsin2[i];
buf_1[k].imag = - data[q] * xcos2[i] - data[p] * xsin2[i];
/* Z2[i] = (X2[128-2*i-1] + j * X2[2*i]) * (xcos2[i] + j * xsin2[i]); */
buf_2[k].real = data[p + 1] * xcos2[i] - data[q + 1] * xsin2[i];
buf_2[k].imag = - data[q + 1] * xcos2[i] - data[p + 1] * xsin2[i];
}
ich komme mit dem vielen sinus und kosinus durcheinander und erkenne teilweise nicht so recht den sinn der formel