Mercurial > hg > octave-lyh

comparison scripts/plot/subplot.m @ 11589:b0084095098e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
missing semicolons in script files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 18:26:09 -0500
parents c792872f8942
children dc11166fcddc
comparison
equal deleted inserted replaced
11588:d5bd2766c640 11589:b0084095098e
93 rows = rem (tmp, 10); 93 rows = rem (tmp, 10);
94 94
95 elseif (! (isscalar (cols) && isscalar (rows))) 95 elseif (! (isscalar (cols) && isscalar (rows)))
96 error ("subplot: COLS, and ROWS must be scalars"); 96 error ("subplot: COLS, and ROWS must be scalars");
97 elseif (any (index < 1) || any (index > rows*cols)) 97 elseif (any (index < 1) || any (index > rows*cols))
98 error ("subplot: INDEX value must be greater than 1 and less than ROWS*COLS") 98 error ("subplot: INDEX value must be greater than 1 and less than ROWS*COLS");
99 endif 99 endif
100 100
101 cols = round (cols); 101 cols = round (cols);
102 rows = round (rows); 102 rows = round (rows);
103 index = round (index); 103 index = round (index);
110 error ("subplot: COLS,ROWS,INDEX must be be positive"); 110 error ("subplot: COLS,ROWS,INDEX must be be positive");
111 endif 111 endif
112 112
113 units = get (0, "defaultaxesunits"); 113 units = get (0, "defaultaxesunits");
114 unwind_protect 114 unwind_protect
115 set (0, "defaultaxesunits", "normalized") 115 set (0, "defaultaxesunits", "normalized");
116 pos = subplot_position (rows, cols, index, "position", units); 116 pos = subplot_position (rows, cols, index, "position", units);
117 117
118 cf = gcf (); 118 cf = gcf ();
119 119
120 set (cf, "nextplot", "add"); 120 set (cf, "nextplot", "add");