Mercurial > hg > octave-nkf

diff scripts/polynomial/residue.m @ 7183:c0be321eb472

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-26 18:31:53 by jwe]
author jwe
date Mon, 26 Nov 2007 18:31:53 +0000
parents a1dbe9d80eee
children fdd7cd70dc14
line wrap: on
line diff
--- a/scripts/polynomial/residue.m
+++ b/scripts/polynomial/residue.m
@@ -311,7 +311,7 @@
     endfor
     pn = deconv (pden, pm);
     pn = r(n) * pn;
-    pnum = pnum + prepad (pn, N+1, 0);
+    pnum = pnum + prepad (pn, N+1, 0, 2);
   endfor
 
   ## Add the direct term.