isposint.m

来自「RBF网络逼近、RBF-建模、RBF网络训练与测试程序」· M 代码 · 共 13 行

function f=isposint(v)
%ISPOSINT True for positive integer values.

%  Mark Beale, 11-31-97
%  Copyright 1992-2002 The MathWorks, Inc.
% $Revision: 1.7 $

f = 1;
if ~isa(v,'double') | any(size(v) ~= [1 1]) | ...
  ~isreal(v) | v<0 | round(v) ~= v
  f = 0;
end