Mercurial > hg > octave-lyh
diff scripts/polynomial/conv.m @ 11124:e79f59d31a74
Add tests for fftconv.m
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Wed, 20 Oct 2010 21:01:24 -0700 |
parents | 2beacd515e09 |
children | fd0a3ac60b0e |
line wrap: on
line diff
--- a/scripts/polynomial/conv.m +++ b/scripts/polynomial/conv.m @@ -110,13 +110,6 @@ %! assert (conv (y, c), [3, 3, 3]); %! assert (conv (b, c), 6); - -%!test -%! a = 1:10; -%! b = 1:3; -%! assert (size(conv(a,b)), [1, numel(a)+numel(b)-1]) -%! assert (size(conv(b,a)), [1, numel(a)+numel(b)-1]) - %!test %! a = 1:10; %! b = 1:3; @@ -130,6 +123,12 @@ %!test %! a = 1:10; +%! b = (1:3).'; +%! assert (size(conv(a,b)), [1, numel(a)+numel(b)-1]) +%! assert (size(conv(b,a)), [1, numel(a)+numel(b)-1]) + +%!test +%! a = 1:10; %! b = 1:3; %! assert (conv(a,b,"full"), conv(a,b)) %! assert (conv(b,a,"full"), conv(b,a)) @@ -140,14 +139,9 @@ %! assert (conv(a,b,'same'), [4, 10, 16, 22, 28, 34, 40, 46, 52, 47]) %! assert (conv(b,a,'same'), [28, 34, 40]) -%!test -%! a = 1:10; -%! b = (1:3).'; -%! assert (size(conv(a,b)), [1, numel(a)+numel(b)-1]) -%! assert (size(conv(b,a)), [1, numel(a)+numel(b)-1]) - %% Test input validation %!error conv (1); %!error conv (1,2,3,4); %!error conv ([1, 2; 3, 4], 3); %!error conv (2, []); +