getp_5gp.m

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

function P=getp_5gp(window,RD)
% get the probability
[rc,cc]=size(RD);
i=rc;
j=1;
P=0;
while(i-window>0)
    RDT=RD(i-window+1:i,1:cc);
    CT=ghlp_5gp(33,RDT,0)
    M=RD(i-window:i-window,1:cc);
    P(j)=ratio(M,CT);
    i=i-1;
    j=j+1;
end