fftw: fix for ifft1d.
parent
a735761574
commit
d2c6bc41ce
|
@ -39,7 +39,8 @@ PRIVATE>
|
||||||
|
|
||||||
: fft1d ( seq -- seq' ) FFTW_FORWARD (fft1d) ;
|
: fft1d ( seq -- seq' ) FFTW_FORWARD (fft1d) ;
|
||||||
|
|
||||||
: ifft1d ( seq -- seq' ) FFTW_BACKWARD (fft1d) ;
|
: ifft1d ( seq -- seq' )
|
||||||
|
[ FFTW_BACKWARD (fft1d) ] [ length v/n ] bi ;
|
||||||
|
|
||||||
: correlate1d ( x y -- z )
|
: correlate1d ( x y -- z )
|
||||||
[ fft1d ] [ reverse fft1d ] bi* v* ifft1d ;
|
[ fft1d ] [ reverse fft1d ] bi* v* ifft1d ;
|
||||||
|
|
Loading…
Reference in New Issue