# HG changeset patch
# User jwe
# Date 809315622 0
# Node ID 33d5c2471c09b3f625daa141697dd1e61c8aac5c
# Parent  955705f55fef0b46ec41a1aed8f00a3ceb0d639f
[project @ 1995-08-25 01:53:42 by jwe]

diff -r 955705f55fef -r 33d5c2471c09 scripts/polynomial/poly.m
--- a/scripts/polynomial/poly.m	Thu Aug 24 20:47:36 1995 +0000
+++ b/scripts/polynomial/poly.m	Fri Aug 25 01:53:42 1995 +0000
@@ -45,7 +45,8 @@
     usage ("poly (x), where x is a vector or a square matrix");
   endif
   
-  y = [1, zeros (1, n)];
+  y = zeros (1, n+1);
+  y(1) = 1;
   for j = 1:n;
     y(2:(j+1)) = y(2:(j+1)) - v(j) .* y(1:j);
   endfor