Mercurial > hg > octave-nkf

comparison scripts/signal/hamming.m @ 20235: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 26fb4bfa4193
children 230c1e2a678d
comparison
equal deleted inserted replaced
20234:cf9b94a89620 20235:d209fbae38ae
73 endfunction 73 endfunction
74 74
75 75
76 %!assert (hamming (1), 1) 76 %!assert (hamming (1), 1)
77 %!assert (hamming (2), (0.54 - 0.46)*ones (2,1)) 77 %!assert (hamming (2), (0.54 - 0.46)*ones (2,1))
78 %!assert (hamming (16), fliplr (hamming (16))) 78 %!assert (hamming (15), flip (hamming (15)), 5*eps)
79 %!assert (hamming (15), fliplr (hamming (15))) 79 %!assert (hamming (16), flip (hamming (16)), 5*eps)
80 %!test 80 %!test
81 %! N = 15; 81 %! N = 15;
82 %! A = hamming (N); 82 %! A = hamming (N);
83 %! assert (A (ceil (N/2)), 1); 83 %! assert (A(ceil (N/2)), 1);
84 84
85 %!assert (hamming (15), hamming (15, "symmetric")); 85 %!assert (hamming (15), hamming (15, "symmetric"));
86 %!assert (hamming (16)(1:15), hamming (15, "periodic")); 86 %!assert (hamming (16)(1:15), hamming (15, "periodic"));
87 %!test 87 %!test
88 %! N = 16; 88 %! N = 16;
89 %! A = hamming (N, "periodic"); 89 %! A = hamming (N, "periodic");
90 %! assert (A (N/2 + 1), 1); 90 %! assert (A(N/2 + 1), 1);
91 91
92 %!error hamming () 92 %!error hamming ()
93 %!error hamming (0.5) 93 %!error hamming (0.5)
94 %!error hamming (-1) 94 %!error hamming (-1)
95 %!error hamming (ones (1,4)) 95 %!error hamming (ones (1,4))