diff options
Diffstat (limited to 'examples/tests.hs')
-rw-r--r-- | examples/tests.hs | 4 |
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 | |||
83 | instance {-(Field a, Arbitrary a, Num a) =>-} Arbitrary Her where | 83 | instance {-(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 | ||
89 | data PairSM a = PairSM (Matrix a) (Matrix a) deriving Show | 89 | data 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 | ||
126 | bigmat = m + trans m :: RM | 126 | bigmat = m + trans m :: RM |
127 | where m = pseudorandomR 18 (1000,1000) | 127 | where m = pseudorandomR 18 (1000,1000) |
128 | bigmatc = mc + conjTrans mc ::CM | 128 | bigmatc = mc + ctrans mc ::CM |
129 | where mc = pseudorandomC 19 (1000,1000) | 129 | where mc = pseudorandomC 19 (1000,1000) |
130 | 130 | ||
131 | ---------------------------------------------------------------------- | 131 | ---------------------------------------------------------------------- |