From 1b5e84ec979105d54fee51d19fccddb52026be69 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 25 Apr 2014 20:45:36 +0200 Subject: (<>) and (·) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit use <> for general contraction, remove ×, use Alt Gr . for cdot --- packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'packages/tests') diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs index 647a06c..30bf690 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs @@ -153,7 +153,7 @@ instance (ArbitraryField a) => Arbitrary (WC a) where n = min r c sv' <- replicateM n (choose (1,100)) let s = diagRect 0 (fromList sv') r c - return $ WC (u <> real s <> trans v) + return $ WC (u `mXm` real s `mXm` trans v) #if MIN_VERSION_QuickCheck(2,0,0) #else @@ -170,7 +170,7 @@ instance (ArbitraryField a) => Arbitrary (SqWC a) where n = rows m sv' <- replicateM n (choose (1,100)) let s = diag (fromList sv') - return $ SqWC (u <> real s <> trans v) + return $ SqWC (u `mXm` real s `mXm` trans v) #if MIN_VERSION_QuickCheck(2,0,0) #else @@ -188,7 +188,7 @@ instance (ArbitraryField a, Num (Vector a)) n = rows m l <- replicateM n (choose (0,100)) let s = diag (fromList l) - p = v <> real s <> ctrans v + p = v `mXm` real s `mXm` ctrans v return $ PosDef (0.5 * p + 0.5 * ctrans p) #if MIN_VERSION_QuickCheck(2,0,0) -- cgit v1.2.3