count.asv

for double color balls, it can help you make the list with high p

function count=count(k,X)
% count and sort in descending order
% k --- the count of items
% X --- Sources
COUNT=1:1:k;
for m=1:k
    COUNT(m)=length(find(X==COUNT(m)));
end
[COUNT,IX]=sort(COUNT,2);
COUNT=[IX;COUNT]
COUNT=fliplr(COUNT)