Fast Fourier transform: Difference between revisions
m
→Recursive
m (→Recursive) |
|||
Line 2,794:
VAR
Ar : array
x : integer ;
Line 2,800:
BEGIN
SetLength
BEGIN
Ar [ x ]
Ar [ x + 4 ] := 0.0 ;
END;
WriteCTable ( FFT ( Ar ) ) ;
SetLength ( Ar, 0 ) ;
END.
|