diff options
Diffstat (limited to 'lib/Data')
-rw-r--r-- | lib/Data/Packed/Matrix.hs | 2 |
1 files changed, 2 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 | |||
64 | 8x10 | 66 | 8x10 |
65 | 1 0 0 0 0 7 7 7 10 20 | 67 | 1 0 0 0 0 7 7 7 10 20 |
66 | 0 1 0 0 0 7 7 7 10 20 | 68 | 0 1 0 0 0 7 7 7 10 20 |