# HG changeset patch
# User jwe
# Date 799258646 0
# Node ID f7e62a1e6bf089fa061e40379f90db05c52d4743
# Parent  db2ff37920d292390b0ff80955470f3ff9d1ff92
[project @ 1995-04-30 16:17:26 by jwe]

diff -r db2ff37920d2 -r f7e62a1e6bf0 scripts/polynomial/roots.m
--- 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);