diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-07-17 14:44:20 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-07-17 14:44:20 +0200 |
| commit | 475ab94e1e2210d7f2e49cf42a1dfc7959bbebd3 (patch) | |
| tree | c1ce883a7a866ff5ed51cf6ea3e2a2a7840da2d1 /packages/tests/src/Numeric | |
| parent | a273fdb74b04db6d57d5c9b15e676d83357e71fd (diff) | |
QR type
Diffstat (limited to 'packages/tests/src/Numeric')
| -rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index 30480d7..ecda6c1 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs | |||
| @@ -500,10 +500,10 @@ sliceTest = utest "slice test" $ and | |||
| 500 | , testSlice (test_qrgr 4 tau2) qrr2 | 500 | , testSlice (test_qrgr 4 tau2) qrr2 |
| 501 | ] | 501 | ] |
| 502 | where | 502 | where |
| 503 | (qrr1,tau1) = qrRaw (rec :: Matrix R) | 503 | QR qrr1 tau1 = qrRaw (rec :: Matrix R) |
| 504 | (qrr2,tau2) = qrRaw (rec :: Matrix C) | 504 | QR qrr2 tau2 = qrRaw (rec :: Matrix C) |
| 505 | 505 | ||
| 506 | test_qrgr n t x = qrgr n (x,t) | 506 | test_qrgr n t x = qrgr n (QR x t) |
| 507 | 507 | ||
| 508 | ok_qrgr x = simeq 1E-15 q q' | 508 | ok_qrgr x = simeq 1E-15 q q' |
| 509 | where | 509 | where |