diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-10-02 19:06:10 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-10-02 19:06:10 +0000 |
| commit | 9b9cf8495bdae791d3f0ec1a2e4a57b72e4c9d89 (patch) | |
| tree | d0317bc0f16312bae64fe7cc2561559ad73db02b | |
| parent | 42bec1ac9911131b552f66779203eb599a86563d (diff) | |
fix qrTest
| -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 | --------------------------------------------------------------------- |