Fast Fourier transform: Difference between revisions
m
→Recursive
m (→Recursive) |
|||
Line 2,807:
FOR x := 0 TO 3 DO
Ar [ x
Ar [ x + 4 ] := 0.0 ;
END ;
WriteCTable ( FFT ( Ar ) ) ;
|