Page 178 - E-MODUL PCD 2

Contoh delapan elemen penstruktur yang digunakan untuk thinning
ditunjukkan pada Gambar 7.28 (Meyer dan Weeks, 1993). Fase pertama

operasi thinning dilakukan sebagai berikut:
A B = ((((((((A B1) B2) B3) B4) B5) B6) B7)

B8)
Implementasi thinning ditunjukkan berikut ini.

function G = thinning(F, fase)
% THINNING Untuk melakukan operasi thinning terhadap citra
F
% Argumen fase menentukan hasil thinning untuk
% fase tersebut. Jika fase tidak disebutkaan,
% operasi thinning dilakukan sampai cstruktur citra
% tidak berubah lagi
if nargin == 1 % Kalau fase tidak
disebutkan fase = 1000000000; % Isi dengan
bilangan yang besar end

% Elemen penstruktur
H1 = [ 0 0 0; 1 1 1; 1 1 1 ];
H2 = [ 1 1 1; 1 1 1; 0 0 0 ];
H3 = [ 0 1 1; 0 1 1; 0 1 1 ];
H4 = [ 1 1 0; 1 1 0; 1 1 0 ];
H5 = [ 1 0 0; 1 1 0; 1 1 1 ];
H6 = [ 1 1 1; 0 1 1; 0 0 1 ];
H7 = [ 1 1 1; 1 1 0; 1 0 0 ];
H8 = [ 0 0 1; 0 1 1; 1 1 1 ];

[tinggi, lebar] = size(F);
C =
F; for p =
1 : fase
C1 = C;
C = and(C,
not(thm(C,H1))); C =
and(C, not(thm(C,H2)));
C = and(C, not(thm(C,H3)));
C = and(C, not(thm(C,H4)));
C = and(C, not(thm(C,H5)));
C = and(C, not(thm(C,H6)));
C = and(C, not(thm(C,H7)));
C = and(C, not(thm(C,H8)));

% Periksa hasil C1 dan C sama atau
tidak sama = true;

178