From 887622a8e23d862160489c7f8912c85e86d5d911 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 20 Jan 2010 14:17:49 +0000 Subject: block utest --- lib/Data/Packed/Matrix.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib/Data') 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: \> let vector xs = fromList xs :: Vector Double \> let diagl = diag . vector \> let rowm = asRow . vector + \> disp $ fromBlocks [[ident 5, 7, rowm[10,20]], [3, diagl[1,2,3], 0]] + 8x10 1 0 0 0 0 7 7 7 10 20 0 1 0 0 0 7 7 7 10 20 -- cgit v1.2.3