count1.asv

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

function COUNT=count(k,X,flag)
% 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];
if(flag
COUNT=fliplr(COUNT);