
function [rimasti comuni rate Rimasti] = ratep(r_coppie,setcoppie,sizeRimasti)

Comuni=[];
Rimasti=[];
 
for j= size(setcoppie,2)
        coppia = setcoppie{j}
        if size(coppia)==2
            gruppoA = r_coppie(coppia(1));
            gruppoB = r_coppie(coppia(2));
            [mark_comuni mark_rimasti] = markers_comuni(gruppoA,gruppoB);
            rimasti(j)= mark_rimasti;
            comuni(j) = mark_comuni;
        else
            mark_rimasti = r_coppie(j)
        end
        
        Comuni  = cat(2,Comuni,mark_comuni);
        Rimasti = cat(2,Rimasti,mark_rimasti);
end

Comuni  = merge_marker(Comuni);
Rimasti = merge_marker(Rimasti);

rate1=size(Comuni,2)/sizeRimasti;

