Mercurial > octave-nkf
comparison scripts/signal/spencer.m @ 6046:34f96dd5441b
[project @ 2006-10-10 16:10:25 by jwe]
author | jwe |
---|---|
date | Tue, 10 Oct 2006 16:10:31 +0000 |
parents | 4c8a2e4e0717 |
children | 93c65f2a5668 |
comparison
equal
deleted
inserted
replaced
6045:421d8a903df7 | 6046:34f96dd5441b |
---|---|
27 ## Description: Apply Spencer's 15-point MA filter | 27 ## Description: Apply Spencer's 15-point MA filter |
28 | 28 |
29 function retval = spencer (X) | 29 function retval = spencer (X) |
30 | 30 |
31 if (nargin != 1) | 31 if (nargin != 1) |
32 usage ("spencer (X)"); | 32 print_usage (); |
33 endif | 33 endif |
34 | 34 |
35 [xr, xc] = size(X); | 35 [xr, xc] = size(X); |
36 | 36 |
37 n = xr; | 37 n = xr; |