From 2dac3536ac9dd149a037e57b0a180f15a64fd453 Mon Sep 17 00:00:00 2001 From: erdeszt Date: Sun, 12 Oct 2014 15:37:27 +0200 Subject: Simplify the vectore reversion in conv --- packages/base/src/Numeric/LinearAlgebra/Util/Convolution.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'packages/base/src/Numeric') diff --git a/packages/base/src/Numeric/LinearAlgebra/Util/Convolution.hs b/packages/base/src/Numeric/LinearAlgebra/Util/Convolution.hs index c8c7536..c9e75de 100644 --- a/packages/base/src/Numeric/LinearAlgebra/Util/Convolution.hs +++ b/packages/base/src/Numeric/LinearAlgebra/Util/Convolution.hs @@ -16,6 +16,7 @@ module Numeric.LinearAlgebra.Util.Convolution( corr2, conv2, separable ) where +import qualified Data.Vector.Storable as SV import Data.Packed.Numeric @@ -51,7 +52,7 @@ conv ker v | dim ker == 0 = konst 0 (dim v) | otherwise = corr ker' v' where - ker' = (flatten.fliprl.asRow) ker + ker' = SV.reverse ker v' = vjoin [z,v,z] z = konst 0 (dim ker -1) -- cgit v1.2.3