From 6fbed842525491e280448a00a4b5426e6830ccaa Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 24 Apr 2014 10:30:01 +0200 Subject: cdot and (×) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit added cdot dot renamed to udot <.> changed to cdot and moved to Numeric.LinearAlgebra.Util new general contraction operator (×) Plot functions moved to Numeric.LinearAlgebra.Util --- lib/Numeric/LinearAlgebra/Util/Convolution.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Numeric/LinearAlgebra/Util/Convolution.hs') diff --git a/lib/Numeric/LinearAlgebra/Util/Convolution.hs b/lib/Numeric/LinearAlgebra/Util/Convolution.hs index be9b1eb..1043614 100644 --- a/lib/Numeric/LinearAlgebra/Util/Convolution.hs +++ b/lib/Numeric/LinearAlgebra/Util/Convolution.hs @@ -75,7 +75,7 @@ matSS dr m = map (reshape c) [ subVector (k*c) n v | k <- [0 .. r - dr] ] corr2 :: Product a => Matrix a -> Matrix a -> Matrix a -- ^ 2D correlation corr2 ker mat = dims - . concatMap (map ((<.> ker') . flatten) . matSS c . trans) + . concatMap (map (udot ker' . flatten) . matSS c . trans) . matSS r $ mat where r = rows ker -- cgit v1.2.3