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 | ||