Mercurial > octave

comparison examples/code/@FIRfilter/FIRfilter.m @ 21059:73ab962bc52d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
doc: Use newer coding conventions in examples/code directory. * FIRfilter.m, FIRfilter_aggregation.m, display.m, subsasgn.m, subsref.m, display.m, end.m, get.m, numel.m, plot.m, polynomial.m, polynomial_superiorto.m, polyval.m, roots.m, set.m, subsasgn.m, subsref.m, celldemo.cc, fortrandemo.cc, funcdemo.cc, globaldemo.cc, oct_demo.cc, paramdemo.cc, stringdemo.cc: Use newer coding conventions in examples/code directory.
author Rik <rik@octave.org>
date Wed, 13 Jan 2016 16:21:24 -0800
parents 25d676f9619c
children fd97ed44f2da
comparison
equal deleted inserted replaced
21058:759fcdf3666d 21059:73ab962bc52d
4 ## Create a FIR filter with polynomial @var{p} as coefficient vector. 4 ## Create a FIR filter with polynomial @var{p} as coefficient vector.
5 ## @end deftypefn 5 ## @end deftypefn
6 6
7 function f = FIRfilter (p) 7 function f = FIRfilter (p)
8 8
9 f.polynomial = []; 9 if (nargin > 1)
10 print_usage ();
11 endif
12
10 if (nargin == 0) 13 if (nargin == 0)
11 p = @polynomial ([1]); 14 p = @polynomial ([1]);
12 elseif (nargin == 1) 15 elseif (! isa (p, "polynomial"))
13 if (!isa (p, "polynomial")) 16 error ("@FIRfilter: expecting polynomial as input argument");
14 error ("@FIRfilter: expecting polynomial as input argument");
15 endif
16 else
17 print_usage ();
18 endif 17 endif
18
19 f.polynomial = [];
19 f = class (f, "FIRfilter", p); 20 f = class (f, "FIRfilter", p);
21
20 endfunction 22 endfunction