function S=scale(x)
	[row col]=size(x);
	S=zeros(row,col);
	for n=1:col
		 S(:,n)=x(:,n)-mean(x(:,n));
	end
end
