Mercurial > hg > octave-nkf

diff scripts/polynomial/deconv.m @ 3754:e63a3a6d7797

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-12-14 21:57:14 by jwe]
author jwe
date Thu, 14 Dec 2000 21:57:15 +0000
parents e031284eea27
children 22bd65326ec1
line wrap: on
line diff
--- a/scripts/polynomial/deconv.m
+++ b/scripts/polynomial/deconv.m
@@ -57,8 +57,6 @@
     b = 0;
   endif
 
-  b = polyreduce (b);
-
   lc = la + length (b) - 1;
   if (ly == lc)
     r = y - conv (a, b);
@@ -66,6 +64,4 @@
     r = [(zeros (1, lc - ly)), y] - conv (a, b);
   endif
 
-  r = polyreduce (r);
-
 endfunction