diff options
| author | Alberto Ruiz <aruiz@um.es> | 2011-03-09 09:30:37 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2011-03-09 09:30:37 +0000 |
| commit | 8a1a04f10e37af280e4fa640c3f66f93d6f16004 (patch) | |
| tree | 64b2c87f48273f1e4ecc42b882086d5329e073ff /lib | |
| parent | 52178710b4c5d2a2bdd9b612d7174e0a79ffe01f (diff) | |
os x brew and rotTest tolerance
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Tests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs index 2b5869d..5036e3f 100644 --- a/lib/Numeric/LinearAlgebra/Tests.hs +++ b/lib/Numeric/LinearAlgebra/Tests.hs | |||
| @@ -213,7 +213,7 @@ rot a = (3><3) [ c,0,s | |||
| 213 | where c = cos a | 213 | where c = cos a |
| 214 | s = sin a | 214 | s = sin a |
| 215 | 215 | ||
| 216 | rotTest = fun (10^5) :~12~: rot 5E4 | 216 | rotTest = fun (10^5) :~11~: rot 5E4 |
| 217 | where fun n = foldl1' (<>) (map rot angles) | 217 | where fun n = foldl1' (<>) (map rot angles) |
| 218 | where angles = toList $ linspace n (0,1) | 218 | where angles = toList $ linspace n (0,1) |
| 219 | 219 | ||