diff options
Diffstat (limited to 'lib/LinearAlgebra/Algorithms.hs')
-rw-r--r-- | lib/LinearAlgebra/Algorithms.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/LinearAlgebra/Algorithms.hs b/lib/LinearAlgebra/Algorithms.hs index a67f822..007067f 100644 --- a/lib/LinearAlgebra/Algorithms.hs +++ b/lib/LinearAlgebra/Algorithms.hs | |||
@@ -44,7 +44,7 @@ module LinearAlgebra.Algorithms ( | |||
44 | 44 | ||
45 | import Data.Packed.Internal hiding (fromComplex, toComplex, comp, conj) | 45 | import Data.Packed.Internal hiding (fromComplex, toComplex, comp, conj) |
46 | import Data.Packed | 46 | import Data.Packed |
47 | import GSL.Matrix | 47 | import GSL.Matrix(luR,luC,qr) |
48 | import GSL.Vector | 48 | import GSL.Vector |
49 | import LAPACK | 49 | import LAPACK |
50 | import Complex | 50 | import Complex |
@@ -70,7 +70,7 @@ instance GenMat Double where | |||
70 | ctrans = trans | 70 | ctrans = trans |
71 | eig = eigR | 71 | eig = eigR |
72 | eigSH = LAPACK.eigS | 72 | eigSH = LAPACK.eigS |
73 | chol = cholR | 73 | chol = cholS |
74 | 74 | ||
75 | instance GenMat (Complex Double) where | 75 | instance GenMat (Complex Double) where |
76 | svd = svdC | 76 | svd = svdC |
@@ -80,7 +80,7 @@ instance GenMat (Complex Double) where | |||
80 | ctrans = conjTrans | 80 | ctrans = conjTrans |
81 | eig = eigC | 81 | eig = eigC |
82 | eigSH = LAPACK.eigH | 82 | eigSH = LAPACK.eigH |
83 | chol = error "cholC not yet implemented" -- waiting for GSL-1.10 | 83 | chol = cholH |
84 | 84 | ||
85 | -- | eigensystem of a symmetric matrix | 85 | -- | eigensystem of a symmetric matrix |
86 | eigS :: Matrix Double -> (Vector Double, Matrix Double) | 86 | eigS :: Matrix Double -> (Vector Double, Matrix Double) |