diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-06-09 16:29:46 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-06-09 16:29:46 +0000 |
| commit | f2cf177e93d4578b404909c68b24625a76466ee5 (patch) | |
| tree | 28dabd5ae200ad1fbfdf41333599bb6ecccc571f /lib/Data/Packed/Internal/Matrix.hs | |
| parent | 7931a9b18ea84ed5f49e2803ba596f190567d9d8 (diff) | |
eigC
Diffstat (limited to 'lib/Data/Packed/Internal/Matrix.hs')
| -rw-r--r-- | lib/Data/Packed/Internal/Matrix.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index 0664e9b..b8de245 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs | |||
| @@ -108,6 +108,8 @@ createMatrix order r c = do | |||
| 108 | 108 | ||
| 109 | reshape c v = matrixFromVector RowMajor c v | 109 | reshape c v = matrixFromVector RowMajor c v |
| 110 | 110 | ||
| 111 | singleton x = reshape 1 (fromList [x]) | ||
| 112 | |||
| 111 | transdataG :: Storable a => Int -> Vector a -> Int -> Vector a | 113 | transdataG :: Storable a => Int -> Vector a -> Int -> Vector a |
| 112 | transdataG c1 d c2 = fromList . concat . transpose . partit c1 . toList $ d | 114 | transdataG c1 d c2 = fromList . concat . transpose . partit c1 . toList $ d |
| 113 | 115 | ||