Mercurial > octave
changeset 1290:f7e62a1e6bf0
[project @ 1995-04-30 16:17:26 by jwe]
author | jwe |
---|---|
date | Sun, 30 Apr 1995 16:17:26 +0000 |
parents | db2ff37920d2 |
children | 5762998e76ab |
files | scripts/polynomial/roots.m |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/polynomial/roots.m Fri Apr 28 20:45:39 1995 +0000 +++ b/scripts/polynomial/roots.m Sun Apr 30 16:17:26 1995 +0000 @@ -48,8 +48,8 @@ A = diag (ones (1, l-2), -1); A (1, :) = -v (2:l) ./ v (1); r = eig (A); - if (f(m) < n) - r = [r; zeros (n - f (m), 1)]; + if (f (m) < n) + r = [r; zeros(n - f(m), 1)]; endif else r = zeros (n - f(m), 1);