kep = imread('052.jpg');

voros = kep(:,:,1);
kek = kep(:,:,2);

maszk_voros = ~im2bw(voros, 0.5);
maszk_kek = im2bw(kek, 0.5);
Mask = maszk_kek & maszk_voros;
imshow(Mask)
amaszk = bwareaopen(Mask, 1000);
gyongyok = regionprops(amaszk, 'BoundingBox');
 size(gyongyok, 1)
imshow(kep)
for i = 1:size(gyongyok, 1)
    rectangle('Position', gyongyok(i).BoundingBox, 'Linewidth', 2, 'EdgeColor', 'g')
end
ans =

    13