Mercurial > hg > octave-nkf

comparison scripts/polynomial/conv.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
comparison
equal deleted inserted replaced
1336:33d5c2471c09 1337:52a3f38cbfeb
54 endif 54 endif
55 55
56 # Use the shortest vector as the coefficent vector to filter. 56 # Use the shortest vector as the coefficent vector to filter.
57 if (la < lb) 57 if (la < lb)
58 if (ly > lb) 58 if (ly > lb)
59 x = [b, zeros (1, ly - lb)]; 59 x = [b, (zeros (1, ly - lb))];
60 else 60 else
61 x = b; 61 x = b;
62 endif 62 endif
63 y = filter (a, 1, x); 63 y = filter (a, 1, x);
64 else 64 else
65 if(ly > la) 65 if(ly > la)
66 x = [a, zeros (1, ly - la)]; 66 x = [a, (zeros (1, ly - la))];
67 else 67 else
68 x = a; 68 x = a;
69 endif 69 endif
70 y = filter (b, 1, x); 70 y = filter (b, 1, x);
71 endif 71 endif