Насколько я понимаю sinc делается в во временной области.
Мой вот но он явно с ошибкой, а где не пойму.
Код: Выделить всё
dT:=1/FactorSize;
For j:=0 to NewLength-1 do
begin
sr:=0;
For i:=-32767 to 32768-1 do {массив word поэтому 32767 далее сума будет менее 1}
sr:=sr+SinC(Round(dt*j+i))*InA[Round(dt*j+i) mod OldLength]; {Метод SinC предпологает циклтичность}
end;
OutA[j]:=Round(sr{*1/65536});
end;