Mercurial > hg > octave-nkf

changeset 1290:f7e62a1e6bf0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
+++ b/scripts/polynomial/roots.m
@@ -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);