diff options
| author | Alberto Ruiz <aruiz@um.es> | 2014-04-23 14:19:34 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2014-04-23 14:19:34 +0200 |
| commit | 7c5adb83c9cb632c39eb2d844a1496e2a7a23e8b (patch) | |
| tree | ec80d2d2533fcf1a2c1f1f021bc0669767ec7817 /lib/Numeric/LinearAlgebra/Algorithms.hs | |
| parent | eaa21e363a62274b3b457556d8f41b10cc335513 (diff) | |
join -> vjoin
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Algorithms.hs')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Algorithms.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs index 4823cec..a3f541b 100644 --- a/lib/Numeric/LinearAlgebra/Algorithms.hs +++ b/lib/Numeric/LinearAlgebra/Algorithms.hs | |||
| @@ -484,7 +484,7 @@ zh k v = fromList $ replicate (k-1) 0 ++ (1:drop k xs) | |||
| 484 | where xs = toList v | 484 | where xs = toList v |
| 485 | 485 | ||
| 486 | zt 0 v = v | 486 | zt 0 v = v |
| 487 | zt k v = join [subVector 0 (dim v - k) v, konst 0 k] | 487 | zt k v = vjoin [subVector 0 (dim v - k) v, konst 0 k] |
| 488 | 488 | ||
| 489 | 489 | ||
| 490 | unpackQR :: (Field t) => (Matrix t, Vector t) -> (Matrix t, Matrix t) | 490 | unpackQR :: (Field t) => (Matrix t, Vector t) -> (Matrix t, Matrix t) |