diff test/test_poly.m @ 7411:83a8781b529d

[project @ 2008-01-22 21:52:25 by jwe]
author jwe
date Tue, 22 Jan 2008 21:52:26 +0000
parents a1dbe9d80eee
children
line wrap: on
line diff
--- a/test/test_poly.m
+++ b/test/test_poly.m
@@ -18,167 +18,3 @@
 
 %% Automatically generated from DejaGNU files
 
-%% test/octave.test/poly/compan-1.m
-%!assert(all (all (compan ([1, 2, 3]) == [-2, -3; 1, 0])));
-
-%% test/octave.test/poly/compan-2.m
-%!assert(all (all (compan ([1; 2; 3]) == [-2, -3; 1, 0])));
-
-%% test/octave.test/poly/compan-3.m
-%!assert(isempty (compan (4)));
-
-%% test/octave.test/poly/compan-4.m
-%!assert(all (all (compan ([3, 2, 1]) == [-2/3, -1/3; 1, 0])));
-
-%% test/octave.test/poly/compan-5.m
-%!error compan ([1,2;3,4]);
-
-%% test/octave.test/poly/compan-6.m
-%!error compan ([]);
-
-%% test/octave.test/poly/conv-1.m
-%!assert(all (all (conv (ones (3, 1), ones (3, 1)) == [1, 2, 3, 2, 1])));
-
-%% test/octave.test/poly/conv-2.m
-%!assert(all (all (conv (ones (1, 3), ones (3, 1)) == [1, 2, 3, 2, 1])));
-
-%% test/octave.test/poly/conv-3.m
-%!assert(all (all (conv (3, [1, 2, 3]) == [3, 6, 9])));
-
-%% test/octave.test/poly/conv-4.m
-%!error conv ([1, 2; 3, 4], 3);
-
-%% test/octave.test/poly/conv-5.m
-%!assert(conv (2, 3),6);
-
-%% test/octave.test/poly/conv-6.m
-%!error conv (2, []);
-
-%% test/octave.test/poly/deconv-1.m
-%!test
-%! [b, r] = deconv ([3, 6, 9, 9], [1, 2, 3]);
-%! assert(all (all (b == [3, 0])) && all (all (r == [0, 0, 0, 9])));
-
-%% test/octave.test/poly/deconv-2.m
-%!test
-%! [b, r] = deconv ([3, 6], [1, 2, 3]);
-%! assert(b == 0 && all (all (r == [0, 3, 6])));
-
-%% test/octave.test/poly/deconv-3.m
-%!test
-%! [b, r] = deconv ([3, 6], [1; 2; 3]);
-%! assert(b == 0 && all (all (r == [0, 3, 6])));
-
-%% test/octave.test/poly/deconv-4.m
-%!error [b, r] = deconv ([3, 6], [1, 2; 3, 4]);;
-
-%% test/octave.test/poly/deconv-5.m
-%!error <number of rows must match> [b, r] = deconv ([3; 6], [1, 2, 3]);
-
-%% test/octave.test/poly/poly-1.m
-%!assert(all (all (poly ([1, 2, 3]) == [1, -6, 11, -6])));
-
-%% test/octave.test/poly/poly-2.m
-%!assert(all (all (abs (poly ([1, 2; 3, 4]) - [1, -5, -2]) < sqrt (eps))));
-
-%% test/octave.test/poly/poly-3.m
-%!error poly ([1, 2, 3; 4, 5, 6]);
-
-%% test/octave.test/poly/poly-4.m
-%!assert(poly ([]),1);
-
-%% test/octave.test/poly/polyderiv-1.m
-%!assert(all (all (polyderiv ([1, 2, 3]) == [2, 2])));
-
-%% test/octave.test/poly/polyderiv-2.m
-%!assert(polyderiv (13) == 0);
-
-%% test/octave.test/poly/polyderiv-3.m
-%!error polyderiv ([]);
-
-%% test/octave.test/poly/polyderiv-4.m
-%!error polyderiv ([1, 2; 3, 4]);
-
-%% test/octave.test/poly/polyfit-1.m
-%!test
-%! x = [-2, -1, 0, 1, 2];
-%! assert(all (all (abs (polyfit (x, x.^2+x+1, 2) - [1, 1, 1]) < sqrt (eps))));
-
-%% test/octave.test/poly/polyfit-2.m
-%!test
-%! x = [-2, -1, 0, 1, 2];
-%! assert(all (all (abs (polyfit (x, x.^2+x+1, 3) - [0, 1, 1, 1]) < sqrt (eps))));
-
-%% test/octave.test/poly/polyfit-3.m
-%!error polyfit ([1, 2; 3, 4], [1, 2; 3, 4], 4);
-
-%% test/octave.test/poly/polyfit-4.m
-%!test
-%! x = [-2, -1, 0, 1, 2];
-%! fail("polyfit (x, x.^2+x+1)");
-
-%% test/octave.test/poly/polyfit-5.m
-%!test
-%! x = [-2, -1, 0, 1, 2];
-%! fail("polyfit (x, x.^2+x+1, [])");
-
-%% test/octave.test/poly/polyinteg-1.m
-%!assert(all (all (polyinteg ([2, 2]) == [1, 2, 0])));
-
-%% test/octave.test/poly/polyinteg-2.m
-%!assert(isempty (polyinteg ([])));
-
-%% test/octave.test/poly/polyinteg-3.m
-%!assert(all (all (polyinteg (3) == [3, 0])));
-
-%% test/octave.test/poly/polyinteg-4.m
-%!error polyinteg ([1, 2; 3, 4]);
-
-%% test/octave.test/poly/polyreduce-1.m
-%!assert(all (all (polyreduce ([0, 0, 1, 2, 3]) == [1, 2, 3])));
-
-%% test/octave.test/poly/polyreduce-2.m
-%!assert(all (all (polyreduce ([1, 2, 3, 0, 0]) == [1, 2, 3, 0, 0])));
-
-%% test/octave.test/poly/polyreduce-3.m
-%!assert(all (all (polyreduce ([1, 0, 3]) == [1, 0, 3])));
-
-%% test/octave.test/poly/polyreduce-4.m
-%!assert(isempty (polyreduce ([])));
-
-%% test/octave.test/poly/polyreduce-5.m
-%!error polyreduce ([1, 2; 3, 4]);
-
-%% test/octave.test/poly/polyval-1.m
-%!assert(polyval ([1, 1, 1], 2) == 7);
-
-%% test/octave.test/poly/polyval-2.m
-%!assert(all (all (polyval ([1, 1, 1], [0; 1; 2]) == [1; 3; 7])));
-
-%% test/octave.test/poly/polyval-3.m
-%!assert(isempty (polyval ([1, 1, 1], [])));
-
-%% test/octave.test/poly/polyval-4.m
-%!assert(all (all (polyval ([1, 1, 1], [-1, 0; 1, 2]) == [1, 1; 3, 7])));
-
-%% test/octave.test/poly/polyval-5.m
-%!error polyval ([1, 2; 3, 4], [-1, 0; 1, 2]);
-
-%% test/octave.test/poly/polyval-6.m
-%!assert(isempty (polyval ([], [-1, 0; 1, 2])));
-
-%% test/octave.test/poly/polyvalm-1.m
-%!assert(isempty (polyvalm ([], [1, 2; 3, 4])));
-
-%% test/octave.test/poly/polyvalm-2.m
-%!error polyvalm ([1, 1, 1], [1, 2; 3, 4; 5, 6]);
-
-%% test/octave.test/poly/roots-1.m
-%!assert(all (all (abs (roots ([1, -6, 11, -6]) - [3; 2; 1]) < sqrt (eps))));
-
-%% test/octave.test/poly/roots-2.m
-%!assert(isempty (roots ([])));
-
-%% test/octave.test/poly/roots-3.m
-%!error roots ([1, 2; 3, 4]);
-