Mercurial > hg > octave-nkf

annotate examples/code/@FIRfilter/subsref.m @ 20830:b65888ec820e draft default tip gccjit

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
dmalcom gcc jit import
author Stefan Mahr <dac922@gmx.de>
date Fri, 27 Feb 2015 16:59:36 +0100
parents c8240a60dd01
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9251
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
1 function out = subsref (f, x)
16934
48f5b993b819 doc: Use parentheses around if, switch conditions in documentation.
Rik <rik@octave.org>
parents: 14855
diff changeset
2 switch (x.type)
9251
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
3 case "()"
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
4 n = f.polynomial;
14855
1b48b209a8d6 maint: Use Octave coding conventions for coddling parentheses in examples directory
Rik <octave@nomad.inbox5.com>
parents: 9251
diff changeset
5 out = filter (n.poly, 1, x.subs{1});
9251
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
6 case "."
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
7 fld = x.subs;
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
8 if (strcmp (fld, "polynomial"))
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
9 out = f.polynomial;
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
10 else
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
11 error ("@FIRfilter/subsref: invalid property \"%s\"", fld);
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
12 endif
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
13 otherwise
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
14 error ("@FIRfilter/subsref: invalid subscript type for FIR filter");
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
15 endswitch
f8b8ab529913 improve OOP documentation
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff changeset
16 endfunction