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