diff options
| author | Alberto Ruiz <aruiz@um.es> | 2009-12-28 15:47:26 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2009-12-28 15:47:26 +0000 |
| commit | b2715e91d7aef5cee1b64b641b8f173167a7145a (patch) | |
| tree | f97b82cfa435441f52153ccdfad5e1fa119f14dc /lib/Numeric/LinearAlgebra/Tests/Instances.hs | |
| parent | 107478b2288b0904159599be94089230c7cd3edf (diff) | |
additional svd functions
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests/Instances.hs')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Tests/Instances.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests/Instances.hs b/lib/Numeric/LinearAlgebra/Tests/Instances.hs index 9b18513..4995e39 100644 --- a/lib/Numeric/LinearAlgebra/Tests/Instances.hs +++ b/lib/Numeric/LinearAlgebra/Tests/Instances.hs | |||
| @@ -143,8 +143,8 @@ instance (Field a, Arbitrary a) => Arbitrary (WC a) where | |||
| 143 | r = rows m | 143 | r = rows m |
| 144 | c = cols m | 144 | c = cols m |
| 145 | n = min r c | 145 | n = min r c |
| 146 | sv <- replicateM n (choose (1,100)) | 146 | sv' <- replicateM n (choose (1,100)) |
| 147 | let s = diagRect (fromList sv) r c | 147 | let s = diagRect (fromList sv') r c |
| 148 | return $ WC (u <> real s <> trans v) | 148 | return $ WC (u <> real s <> trans v) |
| 149 | 149 | ||
| 150 | #if MIN_VERSION_QuickCheck(2,0,0) | 150 | #if MIN_VERSION_QuickCheck(2,0,0) |
| @@ -160,8 +160,8 @@ instance (Field a, Arbitrary a) => Arbitrary (SqWC a) where | |||
| 160 | Sq m <- arbitrary | 160 | Sq m <- arbitrary |
| 161 | let (u,_,v) = svd m | 161 | let (u,_,v) = svd m |
| 162 | n = rows m | 162 | n = rows m |
| 163 | sv <- replicateM n (choose (1,100)) | 163 | sv' <- replicateM n (choose (1,100)) |
| 164 | let s = diag (fromList sv) | 164 | let s = diag (fromList sv') |
| 165 | return $ SqWC (u <> real s <> trans v) | 165 | return $ SqWC (u <> real s <> trans v) |
| 166 | 166 | ||
| 167 | #if MIN_VERSION_QuickCheck(2,0,0) | 167 | #if MIN_VERSION_QuickCheck(2,0,0) |