function mediaGrao = grametrica(im)

    [labeled,numGant] = bwlabel(im,4);

    for  sizeSl= 1:10
    
        restantes = imopen(im, strel('disk', sizeSl));
        %intensity_area(counter + 1) = sum(remain(:));

        [labeled,numGdep] = bwlabel(restantes,4);
        numGr( ct1, sizeSl ) = numGant - numGdep;
        numGant = numGdep;
    end
    


tam_numGr = size (numGr);
mediaGrao = (sum(numGr(1:tam_numGr(1),:)))/tam_numGr(1);
