function [mcx,mx] = mncn(x)
%MNCN Mean center scales matrix to mean zero
%  Mean centers matrix x, returning a matrix with mean zero
%  columns (mcx) and the vector of means (mx) used in the scaling.
%  I/O format is: [mcx,mx] = mncn(x);

%  Copyright
%  Barry M. Wise
%  1991
%  Modified November 1993

[m,n] = size(x);
mx = mean(x);
mcx = (x-mx(ones(m,1),:));