function [Y]=normalise(X); 
 [N,n]=size(X); m=median(X,2); [m,i]=sort(m); Y=X;
 for j=1:n
   [a,i]=sort(X(:,j));
   Y(i,j)=m;
 end;