按指定的列col排序数组A，并保持数组行相对不变

function B=sort_array(A, col)%按指定的列col排序数组A，并保持数组行相对不变
% Note:此函数仅适合N*2的数组排序,col取 1 or 2，否则B=0
% ie:
% A =
% 1 4
% 2 3
% 1 2
% 4 6
% 2 3
% B = sort_array(A, 2)
% B =
% 1 2
% 2 3
% 2 3
% 1 4
% 4 6
% B = sort_array(A,1)
% B =
% 1 4
% 1 2
% 2 3
% 2 3
% 4 6
if(1==col) b=A(:,1);
   [c,pos]=sort(b); 
  B(:,2)=A(pos,2); 
  B(:,1)=c;
elseif(2==col)
   b=A(:,2); 
  [c,pos]=sort(b); 
  B(:,1)=A(pos,1); 
  B(:,2)=c;
else 
  B=0;
end
end