
%%DİKDÖRTGEN ve KARELERDE ALAN HESABI
obje=imread(‘obje.jpg’);
mask=im2bw(obje); %% Görsel üzerinde işlem yapabilmek için 0-1 formatına çevirdik.
imshow(mask); %% Maskelenen görseli göster. Şekil 1.2
figure;imshow(obje); %% Orijinal görseli ayrı figür penceresinde göster. Şekil 1.1
[satir sutun]=size(mask); %% Maskelenen görseldeki satır ve sütunların boyutları
for i=1:satir %% 1den başlayıp tüm satırları
if sum(mask(i,:))>0 %% sum toplama işlemi bütün satırları topla 0dan büyük ise kenar1 ile şeklin başlangıç köşesini bul
kenar1=i
break
end
end
boy=sum(mask(kenar1,:));
for j=1:sutun %% 1den başlayıp tüm sütunları
if sum(mask(:,j))>0 %% sum toplama işlemi bütün sütunları topla 0dan büyük ise kenar1 ile şeklin başlangıç köşesini bul
kenar2=j
break
end
end
en=sum(mask(:,kenar2));
alan=boy*en;

