diff options
Diffstat (limited to 'packages/hmatrix/src')
-rw-r--r-- | packages/hmatrix/src/Numeric/GSL/Vector.hs | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/packages/hmatrix/src/Numeric/GSL/Vector.hs b/packages/hmatrix/src/Numeric/GSL/Vector.hs index 7b5a617..5c34f70 100644 --- a/packages/hmatrix/src/Numeric/GSL/Vector.hs +++ b/packages/hmatrix/src/Numeric/GSL/Vector.hs | |||
@@ -28,7 +28,7 @@ import Numeric.Vectorized( | |||
28 | sumF, sumR, sumQ, sumC, | 28 | sumF, sumR, sumQ, sumC, |
29 | prodF, prodR, prodQ, prodC, | 29 | prodF, prodR, prodQ, prodC, |
30 | FunCodeS(..), toScalarR, toScalarF, toScalarC, toScalarQ, | 30 | FunCodeS(..), toScalarR, toScalarF, toScalarC, toScalarQ, |
31 | FunCodeV(..), vectorMapR, vectorMapF, | 31 | FunCodeV(..), vectorMapR, vectorMapF, vectorMapC, vectorMapQ, |
32 | FunCodeSV(..), vectorMapValR, vectorMapValF, | 32 | FunCodeSV(..), vectorMapValR, vectorMapValF, |
33 | FunCodeVV(..), vectorZipR, vectorZipF | 33 | FunCodeVV(..), vectorZipR, vectorZipF |
34 | ) | 34 | ) |
@@ -66,20 +66,6 @@ vectorZipAux fun code u v = unsafePerformIO $ do | |||
66 | --------------------------------------------------------------------- | 66 | --------------------------------------------------------------------- |
67 | 67 | ||
68 | -- | map of complex vectors with given function | 68 | -- | map of complex vectors with given function |
69 | vectorMapC :: FunCodeV -> Vector (Complex Double) -> Vector (Complex Double) | ||
70 | vectorMapC oper = vectorMapAux c_vectorMapC (fromei oper) | ||
71 | |||
72 | foreign import ccall unsafe "gsl-aux.h mapC" c_vectorMapC :: CInt -> TCVCV | ||
73 | |||
74 | -- | map of real vectors with given function | ||
75 | vectorMapQ :: FunCodeV -> Vector (Complex Float) -> Vector (Complex Float) | ||
76 | vectorMapQ = vectorMapAux c_vectorMapQ | ||
77 | |||
78 | foreign import ccall unsafe "gsl-aux.h mapQ" c_vectorMapQ :: CInt -> TQVQV | ||
79 | |||
80 | ------------------------------------------------------------------- | ||
81 | |||
82 | -- | map of complex vectors with given function | ||
83 | vectorMapValC :: FunCodeSV -> Complex Double -> Vector (Complex Double) -> Vector (Complex Double) | 69 | vectorMapValC :: FunCodeSV -> Complex Double -> Vector (Complex Double) -> Vector (Complex Double) |
84 | vectorMapValC = vectorMapValAux c_vectorMapValC | 70 | vectorMapValC = vectorMapValAux c_vectorMapValC |
85 | 71 | ||