is_scalar.m

来自「这是我找到的一个模式识别工具箱」· M 代码 · 共 22 行

%IS_SCALAR Test on scalar (size = [1,1])
%
% 	N = IS_SCALAR(P);
%
% INPUT
%		P	 Input argument
%
% OUTPUT
%		N  1/0 if A is/isn't scalar
%
% DESCRIPTION
% The function IS_SCALAR tests if P is scalar.

function n = is_scalar(p)
	prtrace(mfilename);
		
	n = all(size(p) == ones(1,length(size(p))));
	if (nargout == 0) & (n == 0)
		error([newline 'Scalar variable expected.'])
	end
return;