Page 221 - E-MODUL PCD 2

dan r berupa

Contoh fungsi berikut dimaksudkan untuk memperoleh fitur sifat bundar.

Fungsi memerlukan masukan berupa citra biner.

function [c] = sifatbundar(BW)
% SIFATBUNDAR Digunakan untuk memperoleh fitur sifat bundar.
% Masukan: BW adalah citra biner.

[px, py] = centroid(BW);

[m, n] = size(BW);
Kontur = inbound_tracing(BW);
% Hapus elemen terakhir
Kontur(length(Kontur),:) = [];

jum =length(Kontur);
% Hitung mu total = 0; for i=1 : jum total =
total + sqrt( (Kontur(i,1)-py)^2 + ...
(Kontur(i,2)-px)^2); end
mu = total / jum;
% Hitung sigma total = 0; for i=1 : jum total =
total + (sqrt( (Kontur(i,1)-py)^2 + ...
(Kontur(i,2)-px)^2) - mu) ^ 2; end
sigma = total / jum;

c = mu / sigma;

Contoh pemakaian fungsi sifatbundar:
>> Img = im2bw(imread('C:\Image\guppi-1.png'), 0.5); 

>> c = sifatbundar(Img)  c
= 0.10620
>>

Fungsi im2bw diperlukan jika citra tidak berupa citra biner. Tabel 12.1

memperlihatkan berbagai objek dan nilai sifat bundarnya.

221