Mercurial > octave-nkf

comparison scripts/sparse/spy.m @ 5215:32c569794216

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-03-16 18:54:42 by jwe]
author jwe
date Wed, 16 Mar 2005 18:54:52 +0000
parents 57077d0ddc8e
children 4c8a2e4e0717
comparison
equal deleted inserted replaced
5214:eecc24b92d97 5215:32c569794216
29 29
30 arp = automatic_replot; 30 arp = automatic_replot;
31 unwind_protect 31 unwind_protect
32 automatic_replot = 0; 32 automatic_replot = 0;
33 33
34 eval(sprintf('gset nokey')) 34 eval(sprintf('__gnuplot_set__ nokey'))
35 eval(sprintf('gset yrange [0:%d] reverse',m+1)) 35 eval(sprintf('__gnuplot_set__ yrange [0:%d] reverse',m+1))
36 eval(sprintf('gset xrange [0:%d] noreverse',n+1)) 36 eval(sprintf('__gnuplot_set__ xrange [0:%d] noreverse',n+1))
37 37
38 if (length(i)<1000) 38 if (length(i)<1000)
39 plot(j,i,'*'); 39 plot(j,i,'*');
40 else 40 else
41 plot(j,i,'.'); 41 plot(j,i,'.');
42 endif 42 endif
43 43
44 #TODO: we should store the reverse state so we don't undo it 44 #TODO: we should store the reverse state so we don't undo it
45 gset yrange [0:1] noreverse 45 __gnuplot_set__ yrange [0:1] noreverse
46 axis; 46 axis;
47 unwind_protect_cleanup 47 unwind_protect_cleanup
48 automatic_replot = arp; 48 automatic_replot = arp;
49 end_unwind_protect 49 end_unwind_protect
50 endfunction 50 endfunction