function [r]=Ratio(BM)


r1=0;
r2=0;

for i=1:size(BM,1)
    for j=1:size(BM{i},1)
       if BM{i}{j}(5)==1
           r1=r1+1;
       end
       r2=r2+1;
    end
    
end


r=r1/r2;