diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-01-20 14:17:49 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-01-20 14:17:49 +0000 |
| commit | 887622a8e23d862160489c7f8912c85e86d5d911 (patch) | |
| tree | c70332965d26a9cdaa56f035414913f9c61aac0b /lib/Data/Packed | |
| parent | 5cd0bbe755c00a3decaef39e008ee36ef5be8d53 (diff) | |
block utest
Diffstat (limited to 'lib/Data/Packed')
| -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 |