Mercurial > hg > octave-lojdl
changeset 14068:6eeb9e8e63cf stable
quadl.m: Relax tolerance on %!test to pass on all platforms (Bug #33863)
* quadl.m: Relax tolerance on %!test to pass on all platforms (Bug #33863)
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Sun, 18 Dec 2011 21:14:05 -0800 |
parents | b2e9c4b0c4f8 |
children | 88029530ffbc c2c18e2e7c9c |
files | scripts/general/quadl.m |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/general/quadl.m +++ b/scripts/general/quadl.m @@ -203,11 +203,11 @@ ## the values here are very high so it may be unavoidable that this fails %!assert (quadl (@(x) sin (3*x).*cosh (x).*sinh (x),10,15), -%! 2.588424538641647e+10, -9e-15) +%! 2.588424538641647e+10, -1.1e-14) ## extra parameters %!assert (quadl (@(x,a,b) sin (a + b*x), 0, 1, [], [], 2, 3), -%! cos(2)/3 - cos(5)/3, - 3e-16) +%! cos(2)/3 - cos(5)/3, -3e-16) ## test different tolerances. %!assert (quadl (@(x) sin (2 + 3*x).^2, 0, 10, 0.3, []),