unmaintained: removing old math.transforms.fft.

db4
John Benediktsson 2012-08-08 20:29:02 -07:00
parent d46617e323
commit e5b36cfbff
4 changed files with 0 additions and 47 deletions

View File

@ -1 +0,0 @@
Hans Schmid

View File

@ -1,7 +0,0 @@
USING: help.markup help.syntax sequences ;
IN: math.transforms.fft
HELP: fft
{ $values { "seq" sequence } { "seq'" sequence } }
{ $description "Fast Fourier transform function." } ;

View File

@ -1,38 +0,0 @@
! Copyright (c) 2007 Hans Schmid.
! See http://factorcode.org/license.txt for BSD license.
USING: columns grouping kernel math math.constants math.functions math.vectors
sequences ;
IN: math.transforms.fft
! Fast Fourier Transform
<PRIVATE
: n^v ( n v -- w ) [ ^ ] with map ;
: omega ( n -- n' )
recip -2 pi i* * * exp ;
: twiddle ( seq -- seq' )
dup length [ omega ] [ n^v ] bi v* ;
PRIVATE>
DEFER: fft
: two ( seq -- seq' )
fft 2 v/n dup append ;
<PRIVATE
: even ( seq -- seq' ) 2 group 0 <column> ;
: odd ( seq -- seq' ) 2 group 1 <column> ;
: (fft) ( seq -- seq' )
[ odd two twiddle ] [ even two ] bi v+ ;
PRIVATE>
: fft ( seq -- seq' )
dup length 1 = [ (fft) ] unless ;

View File

@ -1 +0,0 @@
Fast fourier transform