diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-09-09 15:45:06 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-09-09 15:45:06 +0000 |
| commit | 631a32fbdc0d61f647d3217da86bcb1d552e5e5a (patch) | |
| tree | 2b81e4e6b9d7ae646787bc3ff8684b2d759b24c5 /examples/tests.hs | |
| parent | 34380f2b5d7b048a4d68197f16a8db0e53742030 (diff) | |
simplified (but wrong)
Diffstat (limited to 'examples/tests.hs')
| -rw-r--r-- | examples/tests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/tests.hs b/examples/tests.hs index 7eabf87..56bd2ab 100644 --- a/examples/tests.hs +++ b/examples/tests.hs | |||
| @@ -189,7 +189,7 @@ instance (Field a, Arbitrary a) => Arbitrary (PairV a) where | |||
| 189 | 189 | ||
| 190 | 190 | ||
| 191 | 191 | ||
| 192 | type BaseType = Double | 192 | type BaseType = Complex Double |
| 193 | 193 | ||
| 194 | svdTestR fun m = u <> s <> trans v |~| m | 194 | svdTestR fun m = u <> s <> trans v |~| m |
| 195 | && u <> trans u |~| ident (rows m) | 195 | && u <> trans u |~| ident (rows m) |