getintegers.m

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

function Numbers=GetIntegers(HowMany, Range_int);
%% Numbers=GetIntegers(HowMany, Range_int);
%% For example:
%Numbers=GetIntegers(5, 47)

%% PenChen Chou. 2004-10-29

rand('state',sum(100*clock));
if abs(fix(Range_int)-Range_int)>1e-3
    error('Range_int must be integer only!');
end
Numbers=[]; j=0;
while j<HowMany
    x=round((Range_int-1)*rand)+1;
    if j==0
        Numbers=[Numbers x]; j=j+1;
    elseif ~InArray(Numbers,x)
       Numbers=[Numbers x]; j=j+1;
       %[Numbers x j],pause
    end
end
Numbers=sort(Numbers);