extra/math/transforms/fft/fft-tests.factor

   1 USING: math.vectors tools.test ;
   2 IN: math.transforms.fft
   3
   4 ! even lengths
   5
   6 { t } [
   7     { C{ 10 0 } C{ -2 2 } C{ -2 0 } C{ -2 -2 } }
   8     { 1 2 3 4 } fft 1e-12 v~
   9 ] unit-test
  10
  11 { t } [
  12     { C{ 2+1/2 0 } C{ -1/2 -1/2 } C{ -1/2 0 } C{ -1/2 1/2 } }
  13     { 1 2 3 4 } ifft 1e-12 v~
  14 ] unit-test
  15
  16 ! odd lengths
  17
  18 { t } [
  19     { C{ 5 0 } C{ -1 0 } C{ -1 0 } }
  20     { 1 2 2 } fft 1e-12 v~
  21 ] unit-test
  22
  23 { t } [
  24     { C{ 1+2/3 0 } C{ -1/3 0 } C{ -1/3 0 } }
  25     { 1 2 2 } ifft 1e-12 v~
  26 ] unit-test
  27
  28 { t } [
  29     { C{ 0.05 0.0 } C{ 0.05 0.0 } C{ 0.05 0.0 } C{ 0.05 0.0 } }
  30     { 0.1 0.1 0.1 0.1 } { 0.2 0.1 0.1 0.1 } correlate 1e-12 v~
  31 ] unit-test