From 1a6d3168d0182b868ac3a87ab69a88f22e03b836 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 18 Mar 2012 12:33:17 +0100 Subject: change construction operators --- lib/Numeric/LinearAlgebra/Real.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'lib/Numeric/LinearAlgebra/Real.hs') diff --git a/lib/Numeric/LinearAlgebra/Real.hs b/lib/Numeric/LinearAlgebra/Real.hs index 08a218c..8478ee7 100644 --- a/lib/Numeric/LinearAlgebra/Real.hs +++ b/lib/Numeric/LinearAlgebra/Real.hs @@ -88,19 +88,19 @@ ones :: Int -- ^ rows ones r c = konst 1 (r,c) -- | Concatenation of real vectors. -infixl 9 # +infixl 3 # (#) :: Vector Double -> Vector Double -> Vector Double a # b = join [a,b] -- | Horizontal concatenation of real matrices. -infixl 8 & -(&) :: Matrix Double -> Matrix Double -> Matrix Double -a & b = fromBlocks [[a,b]] +infixl 3 ! +(!) :: Matrix Double -> Matrix Double -> Matrix Double +a ! b = fromBlocks [[a,b]] -- | Vertical concatenation of real matrices. -(//) :: Matrix Double -> Matrix Double -> Matrix Double -infixl 7 // -a // b = fromBlocks [[a],[b]] +(#) :: Matrix Double -> Matrix Double -> Matrix Double +infixl 2 # +a # b = fromBlocks [[a],[b]] -- | Real block matrix from a rectangular list of lists. -- cgit v1.2.3