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/Util/Convolution.hs | |
parent | eaa21e363a62274b3b457556d8f41b10cc335513 (diff) |
join -> vjoin
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Util/Convolution.hs')
-rw-r--r-- | lib/Numeric/LinearAlgebra/Util/Convolution.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Util/Convolution.hs b/lib/Numeric/LinearAlgebra/Util/Convolution.hs index 32cb188..be9b1eb 100644 --- a/lib/Numeric/LinearAlgebra/Util/Convolution.hs +++ b/lib/Numeric/LinearAlgebra/Util/Convolution.hs | |||
@@ -46,7 +46,7 @@ fromList [-1.0,0.0,1.0] | |||
46 | conv ker v = corr ker' v' | 46 | conv ker v = corr ker' v' |
47 | where | 47 | where |
48 | ker' = (flatten.fliprl.asRow) ker | 48 | ker' = (flatten.fliprl.asRow) ker |
49 | v' | dim ker > 1 = join [z,v,z] | 49 | v' | dim ker > 1 = vjoin [z,v,z] |
50 | | otherwise = v | 50 | | otherwise = v |
51 | z = constant 0 (dim ker -1) | 51 | z = constant 0 (dim ker -1) |
52 | 52 | ||