diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-10-23 19:53:03 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-10-23 19:53:03 +0000 |
| commit | 9c65a03f4e2b3b09f6f2ac606c5b22f6df9cea14 (patch) | |
| tree | 72e0410c896e5ab6c1e7745bab20b1e2eaf6c72b /examples/tests.hs | |
| parent | 477c7cfc74c93363708ece4832947455c3e55e31 (diff) | |
removed conjTrans
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 | ---------------------------------------------------------------------- |