Mercurial > hg > octave-lyh
diff scripts/plot/pareto.m @ 8208:f6ca8ff51818
[mq]: graphics-backend
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 10 Oct 2008 11:07:53 -0400 |
parents | c066714ee5d5 |
children | a013ff655ca4 |
line wrap: on
line diff
--- a/scripts/plot/pareto.m +++ b/scripts/plot/pareto.m @@ -55,8 +55,6 @@ function h = pareto (varargin) - [ax, varargin, nargin] = __plt_get_axis_arg__ ("pareto", varargin{:}); - if (nargin != 1 && nargin != 2) print_usage (); endif @@ -84,7 +82,7 @@ cdf95 = cdf - 0.95; idx95 = find(sign(cdf95(1:end-1)) != sign(cdf95(2:end)))(1); - [ax, hbar, hline] = plotyy (ax, 1 : idx95, x (1 : idx95), + [ax, hbar, hline] = plotyy (1 : idx95, x (1 : idx95), 1 : length(cdf), 100 .* cdf, @bar, @plot);