Mercurial > hg > octave-nkf

comparison scripts/special-matrix/vander.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 b429b21abdd4
children 81d6ab3ac93c
comparison
equal deleted inserted replaced
7410:8a3b2ccc4e11 7411:83a8781b529d
68 %!test 68 %!test
69 %! c = [0,1,2,3]; 69 %! c = [0,1,2,3];
70 %! expect = [0,0,0,1; 1,1,1,1; 8,4,2,1; 27,9,3,1]; 70 %! expect = [0,0,0,1; 1,1,1,1; 8,4,2,1; 27,9,3,1];
71 %! result = vander(c); 71 %! result = vander(c);
72 %! assert(expect, result); 72 %! assert(expect, result);
73
74 %!assert((vander (1) == 1 && vander ([1, 2, 3]) == vander ([1; 2; 3])
75 %! && vander ([1, 2, 3]) == [1, 1, 1; 4, 2, 1; 9, 3, 1]
76 %! && vander ([1, 2, 3]*i) == [-1, i, 1; -4, 2i, 1; -9, 3i, 1]));
77
78 %!error vander ([1, 2; 3, 4]);
79
80 %!error vander ();
81
82 %!error vander (1, 2);
83