Mercurial > octave-nkf
changeset 8656:e3041433a57e
increase tolerance in interpft tests
| author | Rob Mahurin <rob@chimera.(none)> |
|---|---|
| date | Tue, 03 Feb 2009 09:13:56 +0100 |
| parents | d48a1837d2bc |
| children | 102e05821f93 |
| files | scripts/ChangeLog scripts/general/interpft.m |
| diffstat | 2 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog Tue Feb 03 09:11:48 2009 +0100 +++ b/scripts/ChangeLog Tue Feb 03 09:13:56 2009 +0100 @@ -1,3 +1,7 @@ +2009-02-02 Rob Mahurin <rob@utk.edu> + + * general/interpft.m: Increase tolerance in tests, for FFTPACK. + 2009-02-03 Jaroslav Hajek <highegg@gmail.com> * optimization/__all_opts__.m: Yield empty list in recursive calls.
--- a/scripts/general/interpft.m Tue Feb 03 09:11:48 2009 +0100 +++ b/scripts/general/interpft.m Tue Feb 03 09:13:56 2009 +0100 @@ -106,9 +106,9 @@ %!shared n,y %! x = [0:10]'; y = sin(x); n = length (x); -%!assert (interpft(y, n), y, 2*eps); -%!assert (interpft(y', n), y', 2*eps); -%!assert (interpft([y,y],n), [y,y], 2*eps); +%!assert (interpft(y, n), y, 20*eps); +%!assert (interpft(y', n), y', 20*eps); +%!assert (interpft([y,y],n), [y,y], 20*eps); %!error (interpft(y,n,0)) %!error (interpft(y,[n,n]))