Mercurial > hg > octave-nkf

diff scripts/plot/pareto.m @ 8790:a013ff655ca4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trivial changes to demos to produce a more pleasant output for octave+gnuplot+aquaterm.
author Ben Abbott <bpabbott@mac.com>
date Wed, 18 Feb 2009 00:46:24 -0500
parents f6ca8ff51818
children eb63fbe60fab
line wrap: on
line diff
--- a/scripts/plot/pareto.m
+++ b/scripts/plot/pareto.m
@@ -100,13 +100,14 @@
 endfunction
 
 %!demo
-%! close
+%! clf
+%! colormap (jet (64))
 %! Cheese = {"Cheddar", "Swiss", "Camembert", "Munster", "Stilton", "Blue"};
 %! Sold = [105, 30, 70, 10, 15, 20];
 %! pareto(Sold, Cheese);
 
 %!demo
-%! close
+%! clf
 %! % Suppose that we want establish which products makes 80 % of turnover.
 %! Codes = {"AB4","BD7","CF8","CC5","AD11","BB5","BB3","AD8","DF3","DE7"};
 %! Value = [2.35 7.9 2.45 1.1 0.15 13.45 5.4 2.05 0.85  1.65]';