/usr/share/psychtoolbox-3/PsychProbability/ChooseKFromN.m is in psychtoolbox-3-common 3.0.11.20131230.dfsg1-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | function choice = ChooseKFromN(n,k,unique)
% choice = ChooseKFromN(n,k,[unique])
%
% Choose k distinct integers out of n. The indices come back in
% randomized order if unique is absent or 0. They come back
% sorted if unique is equal to 1.
%
% 4/11/94 dhb Wrote it.
% 2/8/98 dhb Renamed to avoid name conflict with Matlab 5 nchoosek.m
% dhb Eliminate obsolete call to rand('uniform').
% 7/24/04 awi Cosmetic.
% 1/29/05 dgp Cosmetic.
% Handle optional arg
if nargin == 2
unique = 0;
end
% Handle k > n case.
if k > n
k = n;
end
% Sort random numbers to get indices
[null,index] = sort(rand(n,1));
% Pull out first k
choice = index(1:k);
% If unique is set, return them sorted.
if unique
choice = sort(choice);
end
|