www.gusucode.com > nnet 工具箱 matlab 源码程序 > nnet/@network/private/isposint.m

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

%  Mark Beale, 11-31-97
%  Copyright 1992-2002 The MathWorks, Inc.

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