Mercurial > hg > octave-avbm

comparison scripts/polynomial/polyreduce.m @ 7411:83a8781b529d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2008-01-22 21:52:25 by jwe]
author jwe
date Tue, 22 Jan 2008 21:52:26 +0000
parents a1dbe9d80eee
children cadc73247d65
comparison
equal deleted inserted replaced
7410:8a3b2ccc4e11 7411:83a8781b529d
54 endif 54 endif
55 55
56 endif 56 endif
57 57
58 endfunction 58 endfunction
59
60 %!assert(all (all (polyreduce ([0, 0, 1, 2, 3]) == [1, 2, 3])));
61
62 %!assert(all (all (polyreduce ([1, 2, 3, 0, 0]) == [1, 2, 3, 0, 0])));
63
64 %!assert(all (all (polyreduce ([1, 0, 3]) == [1, 0, 3])));
65
66 %!assert(isempty (polyreduce ([])));
67
68 %!error polyreduce ([1, 2; 3, 4]);
69