summaryrefslogtreecommitdiff
path: root/packages/tests/src
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-07-11 14:19:21 +0200
committerAlberto Ruiz <aruiz@um.es>2015-07-11 14:19:21 +0200
commitb2341058a2214d22dc23f516b6f09d3270faa18d (patch)
tree1d0734c367f35931822264a060142421edf356df /packages/tests/src
parenta27c3e2acfb2c37e6103639a9218a4cd20b54421 (diff)
ldl factorization
Diffstat (limited to 'packages/tests/src')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs3
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs5
2 files changed, 7 insertions, 1 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
index d9bc9a0..2ff1580 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
@@ -587,6 +587,9 @@ runTests n = do
587 putStrLn "------ luSolve" 587 putStrLn "------ luSolve"
588 test (linearSolveProp (luSolve.luPacked) . rSqWC) 588 test (linearSolveProp (luSolve.luPacked) . rSqWC)
589 test (linearSolveProp (luSolve.luPacked) . cSqWC) 589 test (linearSolveProp (luSolve.luPacked) . cSqWC)
590 putStrLn "------ ldlSolve"
591 test (linearSolveProp (ldlSolve.ldlPacked) . rSymWC)
592 test (linearSolveProp (ldlSolve.ldlPacked) . cSymWC)
590 putStrLn "------ cholSolve" 593 putStrLn "------ cholSolve"
591 test (linearSolveProp (cholSolve.chol) . rPosDef) 594 test (linearSolveProp (cholSolve.chol) . rPosDef)
592 test (linearSolveProp (cholSolve.chol) . cPosDef) 595 test (linearSolveProp (cholSolve.chol) . cPosDef)
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
index 904ae05..7c54535 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
@@ -16,7 +16,7 @@ module Numeric.LinearAlgebra.Tests.Instances(
16 Rot(..), rRot,cRot, 16 Rot(..), rRot,cRot,
17 Her(..), rHer,cHer, 17 Her(..), rHer,cHer,
18 WC(..), rWC,cWC, 18 WC(..), rWC,cWC,
19 SqWC(..), rSqWC, cSqWC, 19 SqWC(..), rSqWC, cSqWC, rSymWC, cSymWC,
20 PosDef(..), rPosDef, cPosDef, 20 PosDef(..), rPosDef, cPosDef,
21 Consistent(..), rConsist, cConsist, 21 Consistent(..), rConsist, cConsist,
22 RM,CM, rM,cM, 22 RM,CM, rM,cM,
@@ -176,6 +176,9 @@ cWC (WC m) = m :: CM
176rSqWC (SqWC m) = m :: RM 176rSqWC (SqWC m) = m :: RM
177cSqWC (SqWC m) = m :: CM 177cSqWC (SqWC m) = m :: CM
178 178
179rSymWC (SqWC m) = m + tr m :: RM
180cSymWC (SqWC m) = m + tr m :: CM
181
179rPosDef (PosDef m) = m :: RM 182rPosDef (PosDef m) = m :: RM
180cPosDef (PosDef m) = m :: CM 183cPosDef (PosDef m) = m :: CM
181 184