Mercurial > hg > octave-nkf

comparison scripts/general/shiftdim.m @ 20038:9fc020886ae9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Clean up m-files to follow Octave coding conventions. Try to trim long lines to < 80 chars. Use '##' for single line comments. Use '(...)' around tests for if/elseif/switch/while. Abut cell indexing operator '{' next to variable. Abut array indexing operator '(' next to variable. Use space between negation operator '!' and following expression. Use two newlines between endfunction and start of %!test or %!demo code. Remove unnecessary parens grouping between short-circuit operators. Remove stray extra spaces (typos) between variables and assignment operators. Remove stray extra spaces from ends of lines.
author Rik <rik@octave.org>
date Mon, 23 Feb 2015 14:54:39 -0800
parents 4197fc428c7d
children 7503499a252b
comparison
equal deleted inserted replaced
20037:a1acca0c2216 20038:9fc020886ae9
42 ## [b, ns] = shiftdim (x) 42 ## [b, ns] = shiftdim (x)
43 ## @result{} b = [1, 1, 1; 1, 1, 1] 43 ## @result{} b = [1, 1, 1; 1, 1, 1]
44 ## @result{} ns = 1 44 ## @result{} ns = 1
45 ## @end group 45 ## @end group
46 ## @end example 46 ## @end example
47 ## @seealso {reshape, permute, ipermute, circshift, squeeze} 47 ## @seealso{reshape, permute, ipermute, circshift, squeeze}
48 ## @end deftypefn 48 ## @end deftypefn
49 49
50 function [y, ns] = shiftdim (x, n) 50 function [y, ns] = shiftdim (x, n)
51 51
52 if (nargin < 1 || nargin > 2) 52 if (nargin < 1 || nargin > 2)
91 %! assert (shiftdim (y, -2), x); 91 %! assert (shiftdim (y, -2), x);
92 %! assert (size (shiftdim (x, 2)), [4 2]); 92 %! assert (size (shiftdim (x, 2)), [4 2]);
93 93
94 %!assert (size (shiftdim (rand (0, 1, 2))), [0 1 2]) 94 %!assert (size (shiftdim (rand (0, 1, 2))), [0 1 2])
95 95
96 %% Test input validation 96 ## Test input validation
97 %!error (shiftdim ()) 97 %!error (shiftdim ())
98 %!error (shiftdim (1,2,3)) 98 %!error (shiftdim (1,2,3))
99 %!error (shiftdim (1, ones (2))) 99 %!error (shiftdim (1, ones (2)))
100 %!error (shiftdim (1, 1.5)) 100 %!error (shiftdim (1, 1.5))
101 101