is_scalar.m

来自「计量工具箱」· M 代码 · 共 27 行

function ret = is_scalar(x)
% PURPOSE: determines if argument x is scalar
%---------------------------------------------
% USAGE: return = is_scalar(x)
% where:      x = input argument
% RETURNS: 0 if x == scalar, (size(1,1))
%          1 if x ~= scalar
%---------------------------------------------

% written by:
% James P. LeSage, Dept of Economics
% University of Toledo
% 2801 W. Bancroft St,
% Toledo, OH 43606
% [e-mail]

if nargin~=1
error('Wrong # of arguments to is_scalar');
end;

[n k] = size(x);

ret = 0;

if n == 1 & k == 1
ret = 1;
end;