Mercurial > octave-nkf
comparison examples/polynomial/plot.m @ 8223:0c91b9a17dcf
Commit missing files from previous change
author | David Bateman <dbateman@free.fr> |
---|---|
date | Thu, 16 Oct 2008 09:20:58 +0100 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
8222:11badf6c9e9f | 8223:0c91b9a17dcf |
---|---|
1 function h = plot(p, varargin) | |
2 n = 128; | |
3 rmax = max (abs (roots (p.poly))); | |
4 x = [0 : (n - 1)] / (n - 1) * 2.2 * rmax - 1.1 * rmax; | |
5 if (nargout > 0) | |
6 h = plot(x, p(x), varargin{:}); | |
7 else | |
8 plot(x, p(x), varargin{:}); | |
9 endif | |
10 endfunction |