hjjsort.m

人工免疫算法的源程序。由主程序和子程序等十几个m文件组成。

function B=hjjsort(A)
% 将A=[3 1 4 7 6 9]置换成【7     9     6     3     4     1】
N=length(A);t=[0 0];
for i=1:N           
    temp(i,2)=A(i);
    temp(i,1)=i;
end
for i=1:N-1    % 沉底法将 A 排序
    for j=2:N+1-i
        if temp(j,2)<temp(j-1,2)
            t=temp(j-1,:);temp(j-1,:)=temp(j,:);temp(j,:)=t;
        end
    end
end
for i=1:N/2   % 将排好的A逆序
    t=temp(i,2);temp(i,2)=temp(N+1-i,2);temp(N+1-i,2)=t;
end
for i=1:N
    A(temp(i,1))=temp(i,2);
end
B=A;