Fast Fourier transform: Difference between revisions
Content added Content deleted
m (added whitespace.) |
|||
Line 1,988: | Line 1,988: | ||
Here is a user-space definition for good measure. |
Here is a user-space definition for good measure. |
||
<lang Mathematica>fft[{x_}] := {N@ |
<lang Mathematica>fft[{x_}] := {N@x} |
||
fft[l__] := |
fft[l__] := |
||
Join[#, #] &@fft@l[[1 ;; ;; 2]] + |
Join[#, #] &@fft@l[[1 ;; ;; 2]] + |