summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra/Util.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Util.hs')
-rw-r--r--lib/Numeric/LinearAlgebra/Util.hs8
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/Numeric/LinearAlgebra/Util.hs b/lib/Numeric/LinearAlgebra/Util.hs
index 21b6188..7164827 100644
--- a/lib/Numeric/LinearAlgebra/Util.hs
+++ b/lib/Numeric/LinearAlgebra/Util.hs
@@ -134,7 +134,7 @@ a & b = vjoin [a,b]
134 134
135{- | horizontal concatenation of real matrices 135{- | horizontal concatenation of real matrices
136 136
137 (0x00a6 broken bar) 137 (unicode 0x00a6, broken bar)
138 138
139>>> ident 3 ¦ konst 7 (3,4) 139>>> ident 3 ¦ konst 7 (3,4)
140(3><7) 140(3><7)
@@ -149,7 +149,7 @@ a ¦ b = fromBlocks [[a,b]]
149 149
150-- | vertical concatenation of real matrices 150-- | vertical concatenation of real matrices
151-- 151--
152-- (0x2014, em dash) 152-- (unicode 0x2014, em dash)
153(——) :: Matrix Double -> Matrix Double -> Matrix Double 153(——) :: Matrix Double -> Matrix Double -> Matrix Double
154infixl 2 —— 154infixl 2 ——
155a —— b = fromBlocks [[a],[b]] 155a —— b = fromBlocks [[a],[b]]
@@ -179,7 +179,9 @@ infixl 9 ?
179(?) :: Element t => Matrix t -> [Int] -> Matrix t 179(?) :: Element t => Matrix t -> [Int] -> Matrix t
180(?) = flip extractRows 180(?) = flip extractRows
181 181
182-- | (00BF) extract selected columns 182-- | extract selected columns
183--
184-- (unicode 0x00bf, inverted question mark)
183infixl 9 ¿ 185infixl 9 ¿
184(¿) :: Element t => Matrix t -> [Int] -> Matrix t 186(¿) :: Element t => Matrix t -> [Int] -> Matrix t
185m ¿ ks = trans . extractRows ks . trans $ m 187m ¿ ks = trans . extractRows ks . trans $ m