comparison scripts/general/common_size.m @ 19833:9fc020886ae9

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
19832:a1acca0c2216 19833:9fc020886ae9
65 errorcode = 1; 65 errorcode = 1;
66 varargout = varargin; 66 varargout = varargin;
67 else 67 else
68 errorcode = 0; 68 errorcode = 0;
69 if (nargout > 1) 69 if (nargout > 1)
70 scal = !nscal; 70 scal = ! nscal;
71 varargout = varargin; 71 varargout = varargin;
72 if (any (nscal)) 72 if (any (nscal))
73 dims = size (varargin{find (nscal, 1)}); 73 dims = size (varargin{find (nscal, 1)});
74 subs = arrayfun (@ones, 1, dims, "uniformoutput", false); 74 subs = arrayfun (@ones, 1, dims, "uniformoutput", false);
75 varargout(scal) = cellindexmat (varargin(scal), subs{:}); 75 varargout(scal) = cellindexmat (varargin(scal), subs{:});