Mercurial > octave-antonio
diff scripts/general/circshift.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:35:29 -0500 |
parents | fd0a3ac60b0e |
children | ca1190196d26 |
line wrap: on
line diff
--- a/scripts/general/circshift.m Thu Jan 20 17:24:59 2011 -0500 +++ b/scripts/general/circshift.m Thu Jan 20 17:35:29 2011 -0500 @@ -19,7 +19,7 @@ ## -*- texinfo -*- ## @deftypefn {Function File} {@var{y} =} circshift (@var{x}, @var{n}) ## Circularly shifts the values of the array @var{x}. @var{n} must be -## a vector of integers no longer than the number of dimensions in +## a vector of integers no longer than the number of dimensions in ## @var{x}. The values of @var{n} can be either positive or negative, ## which determines the direction in which the values or @var{x} are ## shifted. If an element of @var{n} is zero, then the corresponding @@ -57,7 +57,7 @@ if (! isvector (n) && length (n) > nd) error ("circshift: N must be a vector, no longer than the number of dimension in X"); endif - + if (any (n != floor (n))) error ("circshift: all values of N must be integers"); endif