diff options
| -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 b3272cf..ab1b485 100644 --- a/examples/tests.hs +++ b/examples/tests.hs | |||
| @@ -272,7 +272,7 @@ cholCTest = chol ((2><2) [1,2,2,9::Complex Double]) == (2><2) [1,2,0,2.236067977 | |||
| 272 | 272 | ||
| 273 | --------------------------------------------------------------------- | 273 | --------------------------------------------------------------------- |
| 274 | 274 | ||
| 275 | qrTest qr m = q <> r |~| m -- && q <> ctrans q |~| ident (rows m) | 275 | qrTest qr m = q <> r |~| m && q <> ctrans q |~| ident (rows m) |
| 276 | where (q,r) = qr m | 276 | where (q,r) = qr m |
| 277 | 277 | ||
| 278 | --------------------------------------------------------------------- | 278 | --------------------------------------------------------------------- |