Mercurial > octave-nkf

changeset 20060:d209fbae38ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix tests for bartlett, blackman, hamming, and hanning * bartlett.m, blackman.m, hamming.m, hanning.m: Replace useless fliplr with flip to properly test symmetry of column vectors, add necessary tolerances. Clean up coding style.
author Mike Miller <mtmiller@octave.org>
date Sat, 04 Apr 2015 12:51:05 -0400
parents cf9b94a89620
children 230c1e2a678d
files scripts/signal/bartlett.m scripts/signal/blackman.m scripts/signal/hamming.m scripts/signal/hanning.m
diffstat 4 files changed, 14 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/signal/bartlett.m	Thu Apr 02 15:36:38 2015 -0700
+++ b/scripts/signal/bartlett.m	Sat Apr 04 12:51:05 2015 -0400
@@ -52,8 +52,8 @@
 
 %!assert (bartlett (1), 1)
 %!assert (bartlett (2), zeros (2,1))
-%!assert (bartlett (16), fliplr (bartlett (16)))
-%!assert (bartlett (15), fliplr (bartlett (15)))
+%!assert (bartlett (15), flip (bartlett (15)), 5*eps)
+%!assert (bartlett (16), flip (bartlett (16)), 5*eps)
 %!test
 %! N = 9;
 %! A = bartlett (N);
--- a/scripts/signal/blackman.m	Thu Apr 02 15:36:38 2015 -0700
+++ b/scripts/signal/blackman.m	Sat Apr 04 12:51:05 2015 -0400
@@ -76,20 +76,20 @@
 
 %!assert (blackman (1), 1)
 %!assert (blackman (2), zeros (2,1), 1e-6)
-%!assert (blackman (16), fliplr (blackman (16)))
-%!assert (blackman (15), fliplr (blackman (15)))
+%!assert (blackman (15), flip (blackman (15)), 5*eps)
+%!assert (blackman (16), flip (blackman (16)), 5*eps)
 %!test
 %! N = 9;
 %! A = blackman (N);
-%! assert (A (ceil (N/2)), 1, 1e-6);
-%! assert ([A(1), A(length (A))], zeros (1, 2), 1e-6);
+%! assert (A(ceil (N/2)), 1, 1e-6);
+%! assert ([A(1), A(length (A))], zeros (1,2), 1e-6);
 
 %!assert (blackman (15), blackman (15, "symmetric"));
 %!assert (blackman (16)(1:15), blackman (15, "periodic"));
 %!test
 %! N = 16;
 %! A = blackman (N, "periodic");
-%! assert (A (N/2 + 1), 1, 1e-6);
+%! assert (A(N/2 + 1), 1, 1e-6);
 
 %!error blackman ()
 %!error blackman (0.5)
--- a/scripts/signal/hamming.m	Thu Apr 02 15:36:38 2015 -0700
+++ b/scripts/signal/hamming.m	Sat Apr 04 12:51:05 2015 -0400
@@ -75,19 +75,19 @@
 
 %!assert (hamming (1), 1)
 %!assert (hamming (2), (0.54 - 0.46)*ones (2,1))
-%!assert (hamming (16), fliplr (hamming (16)))
-%!assert (hamming (15), fliplr (hamming (15)))
+%!assert (hamming (15), flip (hamming (15)), 5*eps)
+%!assert (hamming (16), flip (hamming (16)), 5*eps)
 %!test
 %! N = 15;
 %! A = hamming (N);
-%! assert (A (ceil (N/2)), 1);
+%! assert (A(ceil (N/2)), 1);
 
 %!assert (hamming (15), hamming (15, "symmetric"));
 %!assert (hamming (16)(1:15), hamming (15, "periodic"));
 %!test
 %! N = 16;
 %! A = hamming (N, "periodic");
-%! assert (A (N/2 + 1), 1);
+%! assert (A(N/2 + 1), 1);
 
 %!error hamming ()
 %!error hamming (0.5)
--- a/scripts/signal/hanning.m	Thu Apr 02 15:36:38 2015 -0700
+++ b/scripts/signal/hanning.m	Sat Apr 04 12:51:05 2015 -0400
@@ -75,8 +75,8 @@
 
 %!assert (hanning (1), 1);
 %!assert (hanning (2), zeros (2,1));
-%!assert (hanning (16), fliplr (hanning (16)));
-%!assert (hanning (15), fliplr (hanning (15)));
+%!assert (hanning (15), flip (hanning (15)), 5*eps);
+%!assert (hanning (16), flip (hanning (16)), 5*eps);
 %!test
 %! N = 15;
 %! A = hanning (N);
@@ -87,7 +87,7 @@
 %!test
 %! N = 16;
 %! A = hanning (N, "periodic");
-%! assert (A (N/2 + 1), 1);
+%! assert (A(N/2 + 1), 1);
 
 %!error hanning ()
 %!error hanning (0.5)