function stdm=standm(x)
%
% STANDM
%
% Returns the standardised matrix of x
% i.e. all columns will be scaled to have unit variance
%
% Called: stdm=standm(x)
%
% Calls:  standvec(x)
%

[nrows,ncols]=size(x);

for i=1:ncols
   stdm(:,i)=standvec(x(:,i));
end;