Mercurial > hg > octave-nkf

comparison scripts/general/shift.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents eb63fbe60fab
children 35adf2a71f3f
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
45 nd = ndims (x); 45 nd = ndims (x);
46 sz = size (x); 46 sz = size (x);
47 47
48 if (nargin == 3) 48 if (nargin == 3)
49 if (! (isscalar (dim) && dim == round (dim)) && dim > 0 && 49 if (! (isscalar (dim) && dim == round (dim)) && dim > 0 &&
50 dim < (nd + 1)) 50 dim < (nd + 1))
51 error ("shift: dim must be an integer and valid dimension"); 51 error ("shift: dim must be an integer and valid dimension");
52 endif 52 endif
53 else 53 else
54 ## Find the first non-singleton dimension 54 ## Find the first non-singleton dimension
55 dim = 1; 55 dim = 1;