in_set.m

来自「其中提到遺傳學的程式碼與應用提供給次淚相向的研究者參考下載」· M 代码 · 共 32 行

function Numbers=in_set(Numbers,Winner)
%function Numbers=in_set(Numbers,Winner)

OK=[0 0 0 0 0 0];
Final=Winner;
Special=Final(7);

% Find out numbers fitted.
for i=1:6       % Final
    for j=1:6   % Numbers
        if Final(i)==Numbers(j)
            OK(j)=1;
        end
    end
end

% Check with special number
I=find(OK==1);
if ~isempty(I) & length(I)==5
    for i=1:6
        if Numbers(i)==Special
            OK(i)=1;
        end
    end
end

% Get the correct numbers
I=find(OK==0);
if ~isempty(I)
    Numbers(I)=[];
end;