summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Data/Packed/Matrix.hs2
-rw-r--r--lib/Numeric/LinearAlgebra/Tests.hs1
2 files changed, 3 insertions, 0 deletions
diff --git a/lib/Data/Packed/Matrix.hs b/lib/Data/Packed/Matrix.hs
index 912e1c6..4cb7a88 100644
--- a/lib/Data/Packed/Matrix.hs
+++ b/lib/Data/Packed/Matrix.hs
@@ -60,7 +60,9 @@ corresponding common row and column:
60\> let vector xs = fromList xs :: Vector Double 60\> let vector xs = fromList xs :: Vector Double
61\> let diagl = diag . vector 61\> let diagl = diag . vector
62\> let rowm = asRow . vector 62\> let rowm = asRow . vector
63
63\> disp $ fromBlocks [[ident 5, 7, rowm[10,20]], [3, diagl[1,2,3], 0]] 64\> disp $ fromBlocks [[ident 5, 7, rowm[10,20]], [3, diagl[1,2,3], 0]]
65
648x10 668x10
651 0 0 0 0 7 7 7 10 20 671 0 0 0 0 7 7 7 10 20
660 1 0 0 0 7 7 7 10 20 680 1 0 0 0 7 7 7 10 20
diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs
index c1dae4a..89c8297 100644
--- a/lib/Numeric/LinearAlgebra/Tests.hs
+++ b/lib/Numeric/LinearAlgebra/Tests.hs
@@ -279,6 +279,7 @@ runTests n = do
279 && ident 5 == buildMatrix 5 5 (\(r,c) -> if r==c then 1::Double else 0) 279 && ident 5 == buildMatrix 5 5 (\(r,c) -> if r==c then 1::Double else 0)
280 , utest "rank" $ rank ((2><3)[1,0,0,1,6*eps,0]) == 1 280 , utest "rank" $ rank ((2><3)[1,0,0,1,6*eps,0]) == 1
281 && rank ((2><3)[1,0,0,1,7*eps,0]) == 2 281 && rank ((2><3)[1,0,0,1,7*eps,0]) == 2
282 , utest "block" $ fromBlocks [[ident 3,0],[0,ident 4]] == (ident 7 :: CM)
282 ] 283 ]
283 return () 284 return ()
284 285