Contents

Órai feladatok

1. feladat: Hány gyöngy van gyöngy1 képen?

kep = imread('051.jpg');

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

maszk_voros = im2bw(voros, 0.5);
maszk_kek = ~im2bw(kek, 0.5);
Mask = maszk_kek & maszk_voros;

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

pearl
ans =

    37

Warning: Image is too big to fit on screen; displaying at 33% 

2. feldat: Hány gyöngy van a gyöngy 2 képen? Hány kék gyöngy van rajta? Hány narancssárga?

Kék:

kep = imread('052.jpg');

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

maszk_voros = ~im2bw(voros, 0.5);
maszk_kek = im2bw(kek, 0.65);
Mask = maszk_kek & maszk_voros;
imshow(Mask)
amaszk = bwareaopen(Mask, 500);
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

pearl2
ans =

    16

Narancssárga (ez már nem tudja szétszedi a csoportokat)

kep = imread('052.jpg');

voros = kep(:,:,1);
kek = kep(:,:,2);
zold=kep(:,:,3);
maszk_voros = im2bw(voros, 0.8);
maszk_kek = ~im2bw(kek, 0.37);
maszk_zold = ~im2bw(zold, 0.2);
Mask = maszk_kek & maszk_voros & maszk_zold;
subplot(2,2,1)
imshow(Mask)
amaszk = bwareaopen(Mask, 500);
subplot(2,2,2)
imshow(amaszk)
gyongyok = regionprops(amaszk, 'BoundingBox');
 size(gyongyok, 1)
 subplot(2,2,3)
imshow(kep)

for i = 1:size(gyongyok, 1)
    rectangle('Position', gyongyok(i).BoundingBox, 'Linewidth', 2, 'EdgeColor', 'g')
end

pearl3
ans =

    10

3. feldat: Hány madárból áll a madárraj?

kep=imread('053.jpg');

kek=kep(:,:,3);

mask=~im2bw(kek,0.25);
Maszk2=bwareaopen(mask,6);

madarak=regionprops(Maszk2, 'BoundingBox');

size(madarak,1)
%%
% Ábrázolás
imshow(kep)
for i=1:size(madarak,1)
    rectangle('Position',madarak(i).BoundingBox,'LineWidth',2,'EdgeColor','g')
end

subplot(1,1,1)
birds
ans =

   560