steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.transforms.fft: specify algorithm.

db4
John Benediktsson 2012-08-09 08:56:47 -07:00
parent 034b5a255d
commit d6aa829a06
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/transforms/fft/fft.factor
View File

@ -6,6 +6,7 @@ IN: math.transforms.fft
<PRIVATE <PRIVATE
! Discrete Fourier Transform
:: (slow-fft) ( seq inverse? -- seq' ) :: (slow-fft) ( seq inverse? -- seq' )
seq length :> N seq length :> N
inverse? 1 -1 ? 2pi * i* N / :> O inverse? 1 -1 ? 2pi * i* N / :> O
@ -14,6 +15,7 @@ IN: math.transforms.fft
inverse? [ N / ] when inverse? [ N / ] when
] map ; inline ] map ; inline
! Cooley–Tukey Algorithm
:: (fft) ( seq inverse? -- seq' ) :: (fft) ( seq inverse? -- seq' )
seq length :> N seq length :> N
N 1 = [ seq ] [ N 1 = [ seq ] [