Mercurial > hg > octave-lyh
diff scripts/plot/pareto.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | 5247e89688e1 |
children | be55736a0783 |
line wrap: on
line diff
--- a/scripts/plot/pareto.m +++ b/scripts/plot/pareto.m @@ -64,14 +64,14 @@ y = varargin {2}(:).'; if (! iscell (y)) if (ischar (y)) - y = cellstr (y); + y = cellstr (y); else - y = cellfun (@(x) num2str (x), num2cell (y), "UniformOutput", false); + y = cellfun (@(x) num2str (x), num2cell (y), "UniformOutput", false); endif endif else y = cellfun (@(x) int2str (x), num2cell (1 : numel(x)), - "UniformOutput", false); + "UniformOutput", false); endif [x, idx] = sort (x, "descend"); @@ -83,8 +83,8 @@ idx95 = find(sign(cdf95(1:end-1)) != sign(cdf95(2:end)))(1); [ax, hbar, hline] = plotyy (1 : idx95, x (1 : idx95), - 1 : length(cdf), 100 .* cdf, - @bar, @plot); + 1 : length(cdf), 100 .* cdf, + @bar, @plot); axis (ax(1), [1 - 0.6, idx95 + 0.6, 0, maxcdf]); axis (ax(2), [1 - 0.6, idx95 + 0.6, 0, 100]);