Mercurial > hg > octave-lyh
changeset 17295:011e5d67baf1
interpft.m: Widen tolerance on tests to allow for FFT error
* scripts/general/interpft.m: Widen tolerance on tests to allow for
error in FFT routines, for example when not linking with FFTW.
| author | Mike Miller <mtmiller@ieee.org> |
|---|---|
| date | Tue, 20 Aug 2013 09:46:17 -0400 |
| parents | d5efffe5a789 |
| children | 88a6f2f540ad |
| files | scripts/general/interpft.m |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/general/interpft.m +++ b/scripts/general/interpft.m @@ -127,10 +127,10 @@ %! assert (interpft (x, 6), y, 10*eps); %% Test for correct spectral symmetry with even/odd lengths -%!assert (max (abs (imag (interpft ([1:8], 20)))), 0, 2*eps); -%!assert (max (abs (imag (interpft ([1:8], 21)))), 0, 2*eps); -%!assert (max (abs (imag (interpft ([1:9], 20)))), 0, 2*eps); -%!assert (max (abs (imag (interpft ([1:9], 21)))), 0, 2*eps); +%!assert (max (abs (imag (interpft ([1:8], 20)))), 0, 20*eps); +%!assert (max (abs (imag (interpft ([1:8], 21)))), 0, 21*eps); +%!assert (max (abs (imag (interpft ([1:9], 20)))), 0, 20*eps); +%!assert (max (abs (imag (interpft ([1:9], 21)))), 0, 21*eps); %% Test input validation %!error interpft ()