summaryrefslogtreecommitdiff
path: root/examples/tests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/tests.hs')
-rw-r--r--examples/tests.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/tests.hs b/examples/tests.hs
index 974ec24..b44d140 100644
--- a/examples/tests.hs
+++ b/examples/tests.hs
@@ -83,7 +83,7 @@ her (Her a) = a
83instance {-(Field a, Arbitrary a, Num a) =>-} Arbitrary Her where 83instance {-(Field a, Arbitrary a, Num a) =>-} Arbitrary Her where
84 arbitrary = do 84 arbitrary = do
85 SqM m <- arbitrary 85 SqM m <- arbitrary
86 return $ Her (m + conjTrans m) 86 return $ Her (m + ctrans m)
87 coarbitrary = undefined 87 coarbitrary = undefined
88 88
89data PairSM a = PairSM (Matrix a) (Matrix a) deriving Show 89data PairSM a = PairSM (Matrix a) (Matrix a) deriving Show
@@ -125,7 +125,7 @@ pseudorandomC seed (n,m) = toComplex (pseudorandomR seed (n,m), pseudorandomR (s
125 125
126bigmat = m + trans m :: RM 126bigmat = m + trans m :: RM
127 where m = pseudorandomR 18 (1000,1000) 127 where m = pseudorandomR 18 (1000,1000)
128bigmatc = mc + conjTrans mc ::CM 128bigmatc = mc + ctrans mc ::CM
129 where mc = pseudorandomC 19 (1000,1000) 129 where mc = pseudorandomC 19 (1000,1000)
130 130
131---------------------------------------------------------------------- 131----------------------------------------------------------------------