var.m

这是国外一个PLS工具箱

function y = var(x)
%VAR	Variance. 
%	For vectors, VAR(x) returns the sample variance.  
%	For matrices, VAR(X)is a row vector containing the sample
%	variance of each column. The variance is the square of the
%	standard deviation (STD). See also COV.

%	B.A. Jones 9-30-92
%	Copyright (c) 1993 by The MathWorks, Inc.
%	$Revision: 1.2 $  $Date: 1993/08/26 19:04:29 $

[m,n] = size(x);

if (m == 1) | (n == 1)
    m = max(m,n);
    y = norm(x - sum(x)/m).^2./(m-1);
elseif m == 1 & n == 1
    y = 0;
else
    avg = mean(x);
    centerx = x - avg(ones(m,1),:);
    y = sum(centerx .* centerx)/(m-1);
end