diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-09-20 17:08:34 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-09-20 17:08:34 +0000 |
| commit | 05908719a7323110ba1955038d8341a8b7483351 (patch) | |
| tree | f1f1fe28a8db64675dacc7eb4ec79d36e8174588 /lib/Numeric/LinearAlgebra/Tests/Properties.hs | |
| parent | 482b533c3fbfcd75d6c5c1d3ce32585bf9fc2ad7 (diff) | |
generalized diagRect
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests/Properties.hs')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Tests/Properties.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests/Properties.hs b/lib/Numeric/LinearAlgebra/Tests/Properties.hs index 623b78c..a35f591 100644 --- a/lib/Numeric/LinearAlgebra/Tests/Properties.hs +++ b/lib/Numeric/LinearAlgebra/Tests/Properties.hs | |||
| @@ -138,7 +138,7 @@ svdProp1 m = m |~| u <> real d <> trans v && unitary u && unitary v | |||
| 138 | 138 | ||
| 139 | svdProp1a svdfun m = m |~| u <> real d <> trans v && unitary u && unitary v where | 139 | svdProp1a svdfun m = m |~| u <> real d <> trans v && unitary u && unitary v where |
| 140 | (u,s,v) = svdfun m | 140 | (u,s,v) = svdfun m |
| 141 | d = diagRect s (rows m) (cols m) | 141 | d = diagRect 0 s (rows m) (cols m) |
| 142 | 142 | ||
| 143 | svdProp1b svdfun m = unitary u && unitary v where | 143 | svdProp1b svdfun m = unitary u && unitary v where |
| 144 | (u,_,v) = svdfun m | 144 | (u,_,v) = svdfun m |