ratio.asv

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

function ratio=ratio(X,Y)
% get the ratio X from Y
lenX=length(X);
lenY=lenght(Y);
count=0;
for m=1:lenX
    if(find(Y==X(m)))
        count=count+1;
    end
end
ratio=count/lenY;