diff options
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests.hs')
-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 | ||