diff options
author | Alberto Ruiz <aruiz@um.es> | 2013-06-24 07:37:40 -0700 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2013-06-24 07:37:40 -0700 |
commit | 2c06aabae5d50164ae520c70c9dc61aefc09cb72 (patch) | |
tree | 1a2a6780d40b04fde19c8b6a407ecec1542fee3d /lib/Data/Packed/Internal | |
parent | ea2e0fad701d6dcacc99a17034d68ccb11532e43 (diff) | |
parent | 027fa6391bc7b21a8aecbdc577ad485aee274333 (diff) |
Merge pull request #43 from mikeplus64/master
Add FFI helpers
Diffstat (limited to 'lib/Data/Packed/Internal')
-rw-r--r-- | lib/Data/Packed/Internal/Matrix.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index 367c189..255009c 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs | |||
@@ -132,12 +132,10 @@ mat a f = | |||
132 | let m g = do | 132 | let m g = do |
133 | g (fi (rows a)) (fi (cols a)) p | 133 | g (fi (rows a)) (fi (cols a)) p |
134 | f m | 134 | f m |
135 | 135 | -- | Creates a vector by concatenation of rows. If the matrix is ColumnMajor, this operation requires a transpose. | |
136 | {- | Creates a vector by concatenation of rows | 136 | -- |
137 | 137 | -- @\> flatten ('ident' 3) | |
138 | @\> flatten ('ident' 3) | 138 | -- 9 |> [1.0,0.0,0.0,0.0,1.0,0.0,0.0,0.0,1.0]@ |
139 | 9 |> [1.0,0.0,0.0,0.0,1.0,0.0,0.0,0.0,1.0]@ | ||
140 | -} | ||
141 | flatten :: Element t => Matrix t -> Vector t | 139 | flatten :: Element t => Matrix t -> Vector t |
142 | flatten = xdat . cmat | 140 | flatten = xdat . cmat |
143 | 141 | ||