Mercurial > octave-nkf

diff scripts/signal/spencer.m @ 3238:041ea33fbbf4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-03-26 17:48:16 by jwe]
author jwe
date Fri, 26 Mar 1999 17:48:35 +0000
parents e4f4b2d26ee9
children f8dde1807dee
line wrap: on
line diff
--- a/scripts/signal/spencer.m	Sat Mar 06 07:44:55 1999 +0000
+++ b/scripts/signal/spencer.m	Fri Mar 26 17:48:35 1999 +0000
@@ -27,7 +27,7 @@
     usage ("spencer (X)");
   endif
 
-  [xr xc] = size(X);
+  [xr, xc] = size(X);
   
   n = xr;
   c = xc;
@@ -38,7 +38,7 @@
    X = reshape(X, n, 1);
   endif
    
-  W = [ -3 -6 -5 3 21 46 67 74 67 46 21 3 -5 -6 -3 ] / 320;
+  W = [-3, -6, -5, 3, 21, 46, 67, 74, 67, 46, 21, 3, -5, -6, -3] / 320;
 
   retval = fftfilt (W, X);
   retval = [zeros(7,c); retval(15:n,:); zeros(7,c);];