Mercurial > octave-nkf

changeset 17287:011e5d67baf1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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	Tue Aug 20 09:44:49 2013 -0400
+++ b/scripts/general/interpft.m	Tue Aug 20 09:46:17 2013 -0400
@@ -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 ()