summaryrefslogtreecommitdiff
path: root/packages/base/src/Numeric
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src/Numeric')
-rw-r--r--packages/base/src/Numeric/LinearAlgebra/Static.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs
index 037396d..3398e6a 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Static.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs
@@ -52,7 +52,7 @@ module Numeric.LinearAlgebra.Static(
52 linSolve, (<\>), 52 linSolve, (<\>),
53 -- * Factorizations 53 -- * Factorizations
54 svd, withCompactSVD, svdTall, svdFlat, Eigen(..), 54 svd, withCompactSVD, svdTall, svdFlat, Eigen(..),
55 withNullspace, qr, 55 withNullspace, qr, chol,
56 -- * Misc 56 -- * Misc
57 mean, 57 mean,
58 Disp(..), Domain(..), 58 Disp(..), Domain(..),
@@ -68,7 +68,7 @@ import Numeric.LinearAlgebra.HMatrix hiding (
68 row,col,vector,matrix,linspace,toRows,toColumns, 68 row,col,vector,matrix,linspace,toRows,toColumns,
69 (<\>),fromList,takeDiag,svd,eig,eigSH,eigSH', 69 (<\>),fromList,takeDiag,svd,eig,eigSH,eigSH',
70 eigenvalues,eigenvaluesSH,eigenvaluesSH',build, 70 eigenvalues,eigenvaluesSH,eigenvaluesSH',build,
71 qr,size,app,mul,dot) 71 qr,size,app,mul,dot,chol)
72import qualified Numeric.LinearAlgebra.HMatrix as LA 72import qualified Numeric.LinearAlgebra.HMatrix as LA
73import Data.Proxy(Proxy) 73import Data.Proxy(Proxy)
74import Numeric.LinearAlgebra.Static.Internal 74import Numeric.LinearAlgebra.Static.Internal
@@ -306,6 +306,9 @@ instance KnownNat n => Eigen (Sq n) (C n) (M n n)
306 where 306 where
307 (l,v) = LA.eig m 307 (l,v) = LA.eig m
308 308
309chol :: KnownNat n => Sym n -> Sq n
310chol (extract . unSym -> m) = mkL $ LA.cholSH m
311
309-------------------------------------------------------------------------------- 312--------------------------------------------------------------------------------
310 313
311withNullspace 314withNullspace