paixu.m

来自「用matlab编写的基于自生成神经网络(self-generated neura」· M 代码 · 共 50 行

function  Dd= paixu(dd,k)
% paixu from small to big
% input  
%   dd(nr,2): dd(:,1) is data will be ordered
%             dd(:,2) is order of data
%   k       : paixu changdu (xuan zhe paixu yong) 
% output
%   Dd(nr,2): Dd(:,1) is data form small to big (for xuanze paixu,only
%                     first k data is paixu)
%            Dd(:,2)  is order of data

ddd=zeros(1,2);

[nr,nc]= size(dd);
if nr== 1  Dd= dd;
else
if nargin<2 
%***************************************
%  mao pao paixu

  for i=1:1:nr-1
      flag=0;
      for j=1:1:nr-1
        if dd(j,1)>dd(j+1,1) 
           ddd= dd(j,:);
           dd(j,:)= dd(j+1,:);
           dd(j+1,:)= ddd;
           flag=1;
        end
     end
     if  flag==0  break; end
  end
  
%*********************************************   
% jiaohuan paixu
else
   for i=1:1:k
      for j=i+1:1:nr
          if dd(i,1)>dd(j,1) 
             ddd= dd(i,:);
             dd(i,:)= dd(j,:);
             dd(j,:)= ddd;          
         end
     end    
  end
end
%******************************************
Dd=dd;
end