TUGAS 4

PENGENAL POLA

Masukan :
input pola 1 atau 0 pada matrix 5x5
Keluaran :
persegi jika y = 193 / 198 / 234 /173 / 205 / 190
lingkaran jika y = 189
segitiga jika y = 227 / 196 /195

LISTING PROGRAM

clc;
clear all;


disp(' PROGRAM PENGENAL POLA');
disp(' LINGKARAN, PERSEGI, DAN SEGITIGA');
disp('---------------------------------------------');
disp(' ');
disp('oleh :');
disp('Kelompok 7');
disp(' ');
disp('1.Adrian Tyas Bangun N');
disp('2.Deddy Hari S');
disp('3.Deza Arifandi');
disp('4.Dian Angga T');
disp('5.Ridwin Sentoso');
disp('Masukan input pola dalam digit 1 atau 0 dalam bentuk matrix');
disp('Contoh :');
disp('X = [1 1 1 1 1 1 0 0 0 1 1 0 0 0 1 1 0 0 0 1 1 1 1 1 1]');
disp('sehingga dalam bentuk matrix 5 x 5 adalah :');
disp('[1 1 1 1 1');
disp(' 1 0 0 0 1');
disp(' 1 0 0 0 1');
disp(' 1 0 0 0 1');
disp(' 1 1 1 1 1]');
disp(' ');
disp(' ');
disp('Silahkan Masukan Pola :');
X = input ('X = ');

w = [0.1 -0.5 0.3 0.4 -0.2;
0.3 -0.1 -0.4 -0.4 -0.2;
0.3 -0.1 -0.2 0.4 0.5;
0.4 0 0.2 0.4 0;
0.3 -0.2 -0.3 -0.4 0.1;
0.3 0 0.3 0 -0.3;
-0.3 -0.2 0.2 -0.5 -0.4;
0.1 -0.1 -0.2 -0.2 0.4;
-0.7 -0.5 0.5 0 0.1;
-0.8 -0.9 -0.5 -0.5 -0.1;
-0.4 -0.1 -0.1 -0.3 -0.4;
-0.3 -0.4 -0.4 0.4 0.2;
1 0.5 0.5 0.5 0.5;
-0.5 0.2 0.2 -0.1 0.2;
-0.3 -0.3 -0.4 0.3 0.5;
0.5 0.5 0.1 0.1 -0.4;
-0.5 0.5 0 -0.2 0;
-0.1 -0.4 0 0 0;
-0.2 -0.3 0.1 0.2 0.2;
0.1 -0.3 -0.3 -0.1 -0.3;
0.5 0.3 -0.3 0.1 -0.5;
0.1 -0.1 0.4 -0.5 0.4;
0.2 0 0.1 0.2 -0.4;
-0.2 0 0.4 -0.3 -0.5;
-0.2 0.3 0.2 0.1 -0.2];

h = X*w;

hA = mat2cell(h,[1],[1 1 1 1 1]);

HA = cell2mat(hA(1));
HB = cell2mat(hA(2));
HC = cell2mat(hA(3));
HD = cell2mat(hA(4));
HE = cell2mat(hA(5));

H1 = sigmf (HA,[1 0]);
H2 = sigmf (HB,[1 0]);
H3 = sigmf (HC,[1 0]);
H4 = sigmf (HD,[1 0]);
H5 = sigmf (HE,[1 0]);

fH = [H1 H2 H3 H4 H5];

v =[0.4 0.5 0.7 0.8 0.5;
0.5 0.1 -0.5 0.5 0.7;
0.4 -0.3 -0.3 -0.4 -0.4;
-0.4 -0.3 -0.1 -0.2 -0.9;
0.2 0.5 -0.2 0.6 -0.1];

V = fH*v;

i = mat2cell(V,[1],[1 1 1 1 1]);

VA = cell2mat(i(1));
VB = cell2mat(i(2));
VC = cell2mat(i(3));
VD = cell2mat(i(4));
VE = cell2mat(i(5));

V1 = sigmf (VA, [1 0]);
V2 = sigmf (VB, [1 0]);
V3 = sigmf (VC, [1 0]);
V4 = sigmf (VD, [1 0]);
V5 = sigmf (VE, [1 0]);

fV = [V1 V2 V3 V4 V5];
u = [0.3;0.2;0.15;0.1;-0.5];

U = fV*u*1000;
Y = int32(U);
disp ('Y :');
disp (Y);

if Y == 190
disp('Bentuk pola anda berupa persegi');
elseif Y ==193
disp('Bentuk pola anda berupa persegi');
elseif Y ==198
disp('Bentuk pola anda berupa persegi');
elseif Y ==234
disp('Bentuk pola anda berupa persegi');
elseif Y ==173
disp('Bentuk pola anda berupa persegi');
elseif Y ==205
disp('Bentuk pola anda berupa persegi');
elseif Y ==189
disp('Bentuk pola anda berupa lingkaran');
elseif Y == 227
disp('Bentuk pola anda berupa segitiga');
elseif Y == 196
disp('Bentuk pola anda berupa segitiga');
elseif Y == 195
disp('Bentuk pola anda berupa segitiga');
end;

HASIL EKSEKUSI

Kesimpulan :
untuk pengenalan pola kecil tidak dapat dilakukan.
pengenalan pola lingkaran hanya dapat pada satu kondisi.


NB :

NO.	NAMA	Pembagian Tugas
1.	Dedy Hary Saputra	Membuat Tampilan Program
2.	Adrian Tyas Bangun	Membuat Listing Program
3.	Deza Ariffandy	Menampilkan Posting ke Blog
4.	Dian Angga	Membuat Literatur, Pembahasan, kesimpulan, dl.
5.	Ridwin Sentoso	Mencari Referensi Program