summaryrefslogtreecommitdiff
path: root/packages
diff options
context:
space:
mode:
authorJustin Le <justin@jle.im>2016-05-25 08:46:54 -0700
committerJustin Le <justin@jle.im>2016-05-25 08:46:54 -0700
commit5a23359dfea4f11a83d17d6aa7ec139003084782 (patch)
tree0ba78f2d8adf76c6de6ed57beec72a0768af0aaf /packages
parentd272e5428b3bb9acf3e9680c38d18d099dca7890 (diff)
The conjugate transpose of a symmetric real matrix is itself
Diffstat (limited to 'packages')
-rw-r--r--packages/base/src/Numeric/LinearAlgebra/Static.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs
index c764038..64c0f14 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Static.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs
@@ -844,8 +844,8 @@ instance KnownNat n => Additive (Sym n) where
844 add = (+) 844 add = (+)
845 845
846instance KnownNat n => Transposable (Sym n) (Sym n) where 846instance KnownNat n => Transposable (Sym n) (Sym n) where
847 tr (Sym m) = Sym (tr m) 847 tr = id
848 tr' = id 848 tr' = id
849 849
850instance KnownNat n => Transposable (Her n) (Her n) where 850instance KnownNat n => Transposable (Her n) (Her n) where
851 tr = id 851 tr = id