www.gusucode.com > mbcdata 工具箱 matlab 源码程序 > mbcdata/@cgprec/pCheckNumeric.m

    function OK = pCheckNumeric(Prec, Values, varargin)
%PCHECKNUMERIC Check that values are real numbers.
%
%   OK = PCHECKNUMERIC(OBJ, VALUES) checks that the numbers in the VALUES
%   array are real and numeric.
%
%   PCHECKNUMERIC(OBJ, VALUES, THROWERROR) will throw an appropriate error
%   if VALUES is not acceptable.
%
%   PCHECKNUMERIC(OBJ, VALUES, THROWERROR, VALUENAME) specifies a name to
%   use in the error string for the values.

%   Copyright 2006 The MathWorks, Inc.


OK = true;
if ~isnumeric(Values)
    OK = false;
    i_error('numeric', varargin{:});
elseif ~isreal(Values)
    OK = false;
    i_error('real', varargin{:});
end



function i_error(TestName, ThrowError, ValueName)
if nargin>1 && ThrowError
    if nargin<3
        ValueName = 'Value';
    end
    error(message('mbc:cgprec:InvalidArgument', ValueName, TestName));
end