From 197e88c3b56d28840217010a2871c6ea3a4dd1a4 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 21 May 2014 10:30:55 +0200 Subject: update dependencies, move examples etc --- packages/hmatrix/src/Numeric/GSL/Fourier.hs | 44 ----------------------------- 1 file changed, 44 deletions(-) delete mode 100644 packages/hmatrix/src/Numeric/GSL/Fourier.hs (limited to 'packages/hmatrix/src/Numeric/GSL/Fourier.hs') diff --git a/packages/hmatrix/src/Numeric/GSL/Fourier.hs b/packages/hmatrix/src/Numeric/GSL/Fourier.hs deleted file mode 100644 index 734325b..0000000 --- a/packages/hmatrix/src/Numeric/GSL/Fourier.hs +++ /dev/null @@ -1,44 +0,0 @@ -{- | -Module : Numeric.GSL.Fourier -Copyright : (c) Alberto Ruiz 2006 -License : GPL -Maintainer : Alberto Ruiz -Stability : provisional - -Fourier Transform. - - - --} - -module Numeric.GSL.Fourier ( - fft, - ifft -) where - -import Data.Packed -import Numeric.GSL.Internal -import Data.Complex -import Foreign.C.Types -import System.IO.Unsafe (unsafePerformIO) - -genfft code v = unsafePerformIO $ do - r <- createVector (dim v) - app2 (c_fft code) vec v vec r "fft" - return r - -foreign import ccall unsafe "gsl-aux.h fft" c_fft :: CInt -> TCV (TCV Res) - - -{- | Fast 1D Fourier transform of a 'Vector' @(@'Complex' 'Double'@)@ using /gsl_fft_complex_forward/. It uses the same scaling conventions as GNU Octave. - ->>> fft (fromList [1,2,3,4]) -fromList [10.0 :+ 0.0,(-2.0) :+ 2.0,(-2.0) :+ 0.0,(-2.0) :+ (-2.0)] - --} -fft :: Vector (Complex Double) -> Vector (Complex Double) -fft = genfft 0 - --- | The inverse of 'fft', using /gsl_fft_complex_inverse/. -ifft :: Vector (Complex Double) -> Vector (Complex Double) -ifft = genfft 1 -- cgit v1.2.3