Mercurial > octave-nkf
view examples/@polynomial/plot.m @ 12312:b10ea6efdc58 release-3-4-x ss-3-3-91
version is now 3.3.91
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 31 Jan 2011 08:36:58 -0500 |
parents | dba0037e6602 |
children | 1b48b209a8d6 |
line wrap: on
line source
function h = plot(p, varargin) n = 128; rmax = max (abs (roots (p.poly))); x = [0 : (n - 1)] / (n - 1) * 2.2 * rmax - 1.1 * rmax; if (nargout > 0) h = plot(x, p(x), varargin{:}); else plot(x, p(x), varargin{:}); endif endfunction