diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-07-11 14:19:21 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-07-11 14:19:21 +0200 |
commit | b2341058a2214d22dc23f516b6f09d3270faa18d (patch) | |
tree | 1d0734c367f35931822264a060142421edf356df /packages/tests/src/Numeric/LinearAlgebra/Tests | |
parent | a27c3e2acfb2c37e6103639a9218a4cd20b54421 (diff) |
ldl factorization
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests')
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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 | |||
176 | rSqWC (SqWC m) = m :: RM | 176 | rSqWC (SqWC m) = m :: RM |
177 | cSqWC (SqWC m) = m :: CM | 177 | cSqWC (SqWC m) = m :: CM |
178 | 178 | ||
179 | rSymWC (SqWC m) = m + tr m :: RM | ||
180 | cSymWC (SqWC m) = m + tr m :: CM | ||
181 | |||
179 | rPosDef (PosDef m) = m :: RM | 182 | rPosDef (PosDef m) = m :: RM |
180 | cPosDef (PosDef m) = m :: CM | 183 | cPosDef (PosDef m) = m :: CM |
181 | 184 | ||