HaeTahti

function f = HaeTahti()
I = imread('NelioTahtiYmpyra.bmp');
L = bwlabel(I);%numeroi alueet
Maara=max(L(:))%hae kpl maara kuvasta
Ominaisuus = regionprops(L,'all')
SolidityMin=1%konvekseilla kaarilla ympäröity kappaleen pinta-ala/ todellinen pinta-ala
for i=1:Maara
    Sol(i)=Ominaisuus(i).Solidity
    if Sol(i) < SolidityMin SolidityMin = Sol(i)%hae pienin solidity
    end
end
idx = find([Ominaisuus.Solidity] == SolidityMin)
I2 = ismember(L,idx);
figure,imshow(I2), title('Pienimman Solidityn perusteella suodatettu kuva');