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

math.transforms.fft: adding cross-correlation.

db4
John Benediktsson 2012-08-08 21:00:49 -07:00
parent 0279e4139f
commit 206d4f851d
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/math/transforms/fft/fft-tests.factor
View File

@ -24,3 +24,8 @@ IN: math.transforms.fft
{ C{ 1+2/3 0 } C{ -1/3 0 } C{ -1/3 0 } } { C{ 1+2/3 0 } C{ -1/3 0 } C{ -1/3 0 } }
{ 1 2 2 } ifft 1e-12 v~ { 1 2 2 } ifft 1e-12 v~
] unit-test ] unit-test
{ t } [
{ C{ 0.05 0.0 } C{ 0.05 0.0 } C{ 0.05 0.0 } C{ 0.05 0.0 } }
{ 0.1 0.1 0.1 0.1 } { 0.2 0.1 0.1 0.1 } correlate 1e-12 v~
] unit-test

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

@ -41,3 +41,6 @@ ERROR: not-enough-data ;
[ not-enough-data ] [ [ not-enough-data ] [
t over length even? [ (fft) ] [ (slow-fft) ] if t over length even? [ (fft) ] [ (slow-fft) ] if
] if-empty ; ] if-empty ;
: correlate ( x y -- z )
[ fft ] [ reverse fft ] bi* v* ifft ;