Mercurial > octave-nkf

comparison scripts/plot/multiplot.m @ 5214:eecc24b92d97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-03-16 17:14:12 by jwe]
author jwe
date Wed, 16 Mar 2005 17:14:12 +0000
parents 92be67bc9301
children 32c569794216
comparison
equal deleted inserted replaced
5213:390f13fc0f4a 5214:eecc24b92d97
71 71
72 if (xn < 1 || yn < 1) 72 if (xn < 1 || yn < 1)
73 error ("multiplot: xn and yn have to be positive integers"); 73 error ("multiplot: xn and yn have to be positive integers");
74 endif 74 endif
75 75
76 gset multiplot; 76 __gset__ multiplot;
77 77
78 xsize = 1.0 ./ xn; 78 xsize = 1.0 ./ xn;
79 ysize = 1.0 ./ yn; 79 ysize = 1.0 ./ yn;
80 80
81 eval (sprintf ("gset size %g, %g", xsize, ysize)); 81 eval (sprintf ("__gset__ size %g, %g", xsize, ysize));
82 82
83 xo = 0.0; 83 xo = 0.0;
84 yo = (yn - 1.0)*ysize; 84 yo = (yn - 1.0)*ysize;
85 85
86 eval (sprintf ("gset origin %g, %g", xo, yo)); 86 eval (sprintf ("__gset__ origin %g, %g", xo, yo));
87 87
88 __multiplot_mode__ = 1; 88 __multiplot_mode__ = 1;
89 __multiplot_xsize__ = xsize; 89 __multiplot_xsize__ = xsize;
90 __multiplot_ysize__ = ysize; 90 __multiplot_ysize__ = ysize;
91 __multiplot_xn__ = xn; 91 __multiplot_xn__ = xn;