Основы вычислительной математики. Денисова Э.В - 157 стр.

UptoLike

Составители: 

LFDFT (Re, Im, Count);
if Direct < 0 then
begin //Дополнительное деление на n для обратного преобразования
PRe := Re; …;
for I := 1 to Count do
begin
PRe^ := PRe^ / Count; …;
Inc (PRe); …;
end;
end;
end;
end.