Mercurial > hg > octave-nkf

annotate examples/@polynomial/polyval.m @ 9284:567e3e4ab74d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix up examples/@polynomial
author Robert T. Short <octave@phaselockedsystems.com>
date Sun, 31 May 2009 21:11:31 -0700
parents dba0037e6602
children 1b48b209a8d6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
8223
0c91b9a17dcf Commit missing files from previous change
David Bateman <dbateman@free.fr>
parents:
diff changeset
1 function [y, dy] = polyval (p, varargin)
0c91b9a17dcf Commit missing files from previous change
David Bateman <dbateman@free.fr>
parents:
diff changeset
2 if (nargout == 2)
9284
567e3e4ab74d fix up examples/@polynomial
Robert T. Short <octave@phaselockedsystems.com>
parents: 8256
diff changeset
3 [y, dy] = polyval (fliplr(p.poly), varargin{:});
8223
0c91b9a17dcf Commit missing files from previous change
David Bateman <dbateman@free.fr>
parents:
diff changeset
4 else
9284
567e3e4ab74d fix up examples/@polynomial
Robert T. Short <octave@phaselockedsystems.com>
parents: 8256
diff changeset
5 y = polyval (fliplr(p.poly), varargin{:});
8223
0c91b9a17dcf Commit missing files from previous change
David Bateman <dbateman@free.fr>
parents:
diff changeset
6 endif
0c91b9a17dcf Commit missing files from previous change
David Bateman <dbateman@free.fr>
parents:
diff changeset
7 endfunction