Ответ:
Отправлено
pirandelo 08 сентября 2009, г. 12:56
В ответ на:
Ответ: отправлено пользователем
pirandelo 08 сентября 2009, г. 12:56
[pre\]
for (k=0; k<N; k++)
{//1
summaRE=0;
summaIM=0;
for (n1=0; n1<N; n1++)
{
tempre=(y1[n1]*wcos_array[k*n1]);
tempim=(y1[n1]*wsin_array[k*n1]);
summaRE=summaRE+tempre;
summaIM=summaIM+tempim;
}// for n
temp= (summaRE*summaRE)+(summaIM*summaIM) ;
spectr[k]=(sqrt(temp));
}// for k
Работает неправильно в спектре лишние частоты , на PC работает четко.