function [m,v]= unidstat(n);
%UNIDSTAT Mean and variance for uniform (discrete) distribution.
%   [M,V] = UNIDSTAT(N) returns the mean and variance of
%   the (discrete) uniform distribution on {1,2,...,N}
%
%   See also UNIDCDF, UNIDINV, UNIDPDF, UNIDRND.

%   Copyright 1993-2004 The MathWorks, Inc. 
%   $Revision: 2.9.2.5 $  $Date: 2004/12/06 16:38:36 $

if nargin < 1, 
    error('stats:unidstat:TooFewInputs','Requires one input argument.');   
end

%   Initialize the mean and variance to zero.
if isa(n,'single')
   m = zeros(size(n),'single');
else
   m = zeros(size(n));
end
v = m;

k = find(n > 0 & round(n) == n);
m(k) = (n(k) + 1) / 2;
v(k) = (n(k) .^ 2 - 1) / 12;

k1 = (n <= 0 | round(n) ~= n);
if any(k1)
    m(k1) = NaN;
    v(k1) = NaN;
end