www.pudn.com > zishiyingjiami.rar > testper.m, change:2011-12-07,size:222b


%per 
A=zeros(1,8); 
A=[1  4  5  9  6  3   12  8]; 
B=zeros(1,8); 
B=[3  12  7  8  9  11  4 13]; 
C=per(B,A); 
[b,ix]=sort(A); 
n=size(A,2); 
for i=1:n 
    tp=C(i); 
    k1=ix(i); 
    D(k1)=tp; 
end 
 
 
%D=D';