chk_rep.m

其中提到遺傳學的程式碼與應用提供給次淚相向的研究者參考下載

function REP=chk_rep(REP)
% chk_rep.m

M=length(REP);REP
for i=1:M-1
    for j=2:M
        [REP(i) REP(j)]
        if (REP(i)==REP(j))
            REP(j)=0;
        end
    end
end
REP
I=find(REP==0);
if ~isempty(I)
    REP(I)=[];
end

REP,pause