Mercurial > octave-nkf

comparison scripts/polynomial/poly.m @ 5158:955ed0dcdc5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-02-23 00:40:57 by jwe]
author jwe
date Wed, 23 Feb 2005 00:40:57 +0000
parents 3e3e14ad5149
children 4c8a2e4e0717
comparison
equal deleted inserted replaced
5157:8ca032643f55 5158:955ed0dcdc5f
38 38
39 m = min (size (x)); 39 m = min (size (x));
40 n = max (size (x)); 40 n = max (size (x));
41 if (m == 0) 41 if (m == 0)
42 y = 1; 42 y = 1;
43 return;
43 elseif (m == 1) 44 elseif (m == 1)
44 v = x; 45 v = x;
45 elseif (m == n) 46 elseif (m == n)
46 v = eig (x); 47 v = eig (x);
47 else 48 else