Mercurial > hg > octave-lyh

diff scripts/general/accumdim.m @ 14221:b03b15d507d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
accumdim.m: Use common code idiom for finding first non-singleton dimension. * accumdim.m: Use common code idiom for finding first non-singleton dimension.
author Rik <octave@nomad.inbox5.com>
date Wed, 18 Jan 2012 21:17:14 -0800
parents 72c96de7a403
children ce2b59a6d0e5
line wrap: on
line diff
--- a/scripts/general/accumdim.m
+++ b/scripts/general/accumdim.m
@@ -83,7 +83,8 @@
   sz = size (vals);
 
   if (nargin < 3)
-    [~, dim] = max (sz != 1); # first non-singleton dim
+    ## Find the first non-singleton dimension.
+    (dim = find (sz > 1, 1)) || (dim = 1);
   elseif (! isindex (dim))
     error ("accumdim: DIM must be a valid dimension");
   elseif (dim > length (sz))