Mercurial > octave
changeset 29791:2d17a87740dd
maint: Merge stable to default.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Sun, 20 Jun 2021 10:05:14 +0200 |
parents | 74d5cf382b86 (current diff) 10292fb30c8f (diff) |
children | 315df8a5ac22 |
files | libinterp/corefcn/mappers.cc scripts/general/logspace.m scripts/specfun/expint.m |
diffstat | 1 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/libinterp/corefcn/mappers.cc Sat Jun 19 14:50:05 2021 -0400 +++ b/libinterp/corefcn/mappers.cc Sun Jun 20 10:05:14 2021 +0200 @@ -322,12 +322,18 @@ %! ival = 1.31695789692481635; %! obs = asin ([2, 2-i*eps, 2+i*eps]); %! exp = [rval - ival*i, rval - ival*i, rval + ival*i]; -%! assert (obs, exp, 2*eps); +%! if (ismac ()) +%! ## Math libraries on macOS seem to implement asin with less accuracy. +%! tol = 6*eps; +%! else +%! tol = 2*eps; +%! endif +%! assert (obs, exp, tol); %! obs = asin ([-2, -2-i*eps, -2+i*eps]); %! exp = [-rval + ival*i, -rval - ival*i, -rval + ival*i]; -%! assert (obs, exp, 2*eps); -%! assert (asin ([2 0]), [rval - ival*i, 0], 2*eps); -%! assert (asin ([2 0i]), [rval - ival*i, 0], 2*eps); +%! assert (obs, exp, tol); +%! assert (asin ([2 0]), [rval - ival*i, 0], tol); +%! assert (asin ([2 0i]), [rval - ival*i, 0], tol); ## Test large magnitude arguments (bug #45507) ## Test fails with older versions of libm, solution is to upgrade.