Mercurial > hg > octave-avbm

diff scripts/polynomial/roots.m @ 1337:52a3f38cbfeb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-08-25 02:00:18 by jwe]
author jwe
date Fri, 25 Aug 1995 02:16:01 +0000
parents 611d403c7f3d
children 3739611f0803
line wrap: on
line diff
--- a/scripts/polynomial/roots.m
+++ b/scripts/polynomial/roots.m
@@ -49,7 +49,7 @@
       A (1, :) = -v (2:l) ./ v (1);
       r = eig (A);    
       if (f (m) < n)
-	r = [r; zeros(n - f(m), 1)];
+	r = [r; (zeros(n - f(m), 1))];
       endif
     else
       r = zeros (n - f(m), 1);