check_in.m

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

function total=check_in(EXTRA,WINNER,NUMBER)
% function total=check_in(EXTRA,WINNER,NUMBER)
% WINNER is 1x6.
% NUMBER is 1x6
% EXTRA=1 then total=total+1;

WINNER=sort(WINNER);
%[WINNER;NUMBER],pause
total=0;
for j=1:6
    for k=1:6
        if WINNER(k)==NUMBER(j)
            total=total+1;
        end
    end
end
if EXTRA==1
   if total==6
      total=total+EXTRA; %fprintf('total=%i\n',total);
   else
      total=0;
   end
end   
%[[WINNER total];[NUMBER total]],pause