Mercurial > hg > octave-lyh

diff scripts/polynomial/deconv.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 5d29638dd524
line wrap: on
line diff
--- a/scripts/polynomial/deconv.m
+++ b/scripts/polynomial/deconv.m
@@ -48,7 +48,7 @@
   lb = ly - la + 1;
 
   if (ly > la)
-    b = filter (y, a, [1 zeros (1, ly - la)]);
+    b = filter (y, a, [1, (zeros (1, ly - la))]);
   elseif (ly == la)
     b = filter (y, a, 1);
   else
@@ -61,7 +61,7 @@
   if (ly == lc)
     r = y - conv (a, b);
   else
-    r = [ zeros(1, lc - ly) y] - conv (a, b);
+    r = [(zeros (1, lc - ly)), y] - conv (a, b);
   endif
 
   r = polyreduce (r);