Permalink
Browse files

fixed transpose (dim. for rectamgular matrizes)

  • Loading branch information...
scravy committed Jan 16, 2014
1 parent 471f47d commit a2f8b44eb9c96e586a239145a4ebc2c73feb3632
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/Numeric/Matrix.hs
View
@@ -453,7 +453,8 @@ class (Eq e, Num e) => MatrixElement e where
(x:xs) -> (length xs + 1, length x)
adjugate = transpose . cofactors
- transpose m = matrix (dimensions m) (\(i,j) -> m `at` (j,i))
+ transpose mat = matrix (n, m) (\(i,j) -> mat `at` (j,i))
+ where (m, n) = dimensions mat
trace = select (uncurry (==))
inv _ = Nothing

0 comments on commit a2f8b44

Please sign in to comment.