Langkah pertama kta buat folder baru seperti gambar dibawah
ini
Setelah itu create new
Document atau (CTRL+N) seperti gambar dibawah ini
Setelah Document baru
terbuka, ketikkan script seperti di bawah ini
clear all;
clc;
fb=fopen('simulasi','w');
%input
P=[0 0 1 1 ; 0 1 0 1];
[m n] = size(P);
fprintf(fb'Data Input (p):\n');
for i=1:n,
fprintf('%1d %1d\n',P(:,i));
end;
%target
T=[0 1 1 1];
fprintf('Target (T):\n');
fprintf('%1d\n',T);
%Bentuk Jaringan Syaraf denga
perceptron
net=newp(minmax(P),1);
plotpv(P,T);
linehandle=plotpc(net.IW{1},net.b{1});
%set error awal E=1
E=1
%Kembalikan nilai bobot sesuai
inisialisasi fungsinya
net=init(net);
fprintf('Bobot Input Awal (W): %4.2f %4.2f\n',net.IW{1,1});
fprintf('Bobot Bias Awal (b): %4.2f \n',net.b{1});
linehandle=plotpc(net.IW{1},net.b{1});
Epoh=0;
MaxEpoh=100;
%Pembelajaran
while (sse(E)&(Epoh<MaxEpoh)),
fprintf('\n');
Epoh=Epoh+1;
fprintf('Epoh ke-%1d\n',Epoh);
[net,Y,E]=adapt(net,P,T);
fprintf('Output Jaringan (Y): ');
for i=1:n,
fprintf(' %1d ',Y(i));
end;
fprintf('\n');
fprintf('Error Adaptasi (E) : ');
for i=1:n,
fprintf(' %1d ',E(i));
end;
fprintf('\n');
fprintf('Bobot Input Baru (w) : %4.2f
%4.2f \n',net.IW{1,1});
fprintf('Bobot Bias Baru (b) : %4.2f \n',net.b{1});
fprintf('Sum Square Error (SSE):%4.2f
\n',sse(E));
linehandle=plotpc(net.IW{1},net.b{1},linehandle);
drawnow;
Y
E
pause(2);
end;
fprintf('\n');
fprintf('Bobot Input Akhir (W) : %4.2f
%4.2f\n',net.IW{1,1});
fprintf('Bobot Bias Akhir (b) : %4.2f \n',net.b{1});
%%Vektor yang akan disimulasikan
p=[0.5 0.1 0.7 0.2 0.5;0.5 0.1 0.1 0.4 0.3];
%simulasi
a=sim(net,p);
plotpv(p,a);
ThePoint=findobj(gca,'type','line');
set(ThePoint,'color','red');
pause(2);
hold on;
plotpv(P,T);
plotpc(net.IW{1},net.b{1});
hold off
fclose(fb);
Langkah berikutnya
simpan script yang kita ketik tadi didalam folder yang kita buat tadi dengan
nama file “simulasi” Tanpa tanda petik seperti gambar dibawah ini
Setelah file tersimpan
di folder, langkah selanjutnya Runing Program yang kita buat. Maka hasil akan
tampil seperti dibawah ini,
Program yang kita
jalankan tidak berjalan dengan semestinya, dikarenakan perintah pada
target dibah ini
%target
T=[0 1 1 1];
fprintf('Target (T):\n');
fprintf('%1d\n',T);
masih kurang lengkap,
coba kita tambahkan perintah
%target
T=[0 1 1 1];
fprintf('Target (T):\n');
for i=1:1,
fprintf('%1d\n',T);
end
lalu jaankan kembali
program, setelah kita runing informasi dari epoh dapat kita lihat dengan
membuka Hasil perceptron.m; maka hasilnya akan sepertidi bawah ini
ans=
Data Input (p):
0 0
0 1
1 0
1 1
Target (T):
0
1
1
1
E =
1
Bobot Input Awal (W):
0.00 0.00
Bobot Bias Awal (b):
0.00
Epoh ke-1
Output Jaringan
(Y): 1
1 1 1
Error Adaptasi (E)
: -1
0 0 0
Bobot Input Baru (w) :
0.00 0.00
Bobot Bias Baru (b) : -1.00
Sum Square Error
(SSE):1.00
Y =
1
1 1 1
E =
-1
0 0 0
Epoh ke-2
Output Jaringan
(Y): 0
0 0 0
Error Adaptasi (E)
: 0
1 1 1
Bobot Input Baru (w) :
2.00 2.00
Bobot Bias Baru (b) : 2.00
Sum Square Error
(SSE):3.00
Y =
0
0 0 0
E =
0
1 1 1
Epoh ke-3
Output Jaringan
(Y): 1
1 1 1
Error Adaptasi (E) : -1
0 0 0
Bobot Input Baru (w) :
2.00 2.00
Bobot Bias Baru (b) : 1.00
Sum Square Error
(SSE):1.00
Y =
1
1 1 1
E =
-1
0 0 0
Epoh ke-4
Output Jaringan
(Y): 1
1 1 1
Error Adaptasi (E)
: -1
0 0 0
Bobot Input Baru (w) :
2.00 2.00
Bobot Bias Baru (b) : 0.00
Sum Square Error
(SSE):1.00
Y =
1
1 1 1
E =
-1
0 0 0
Epoh ke-5
Output Jaringan
(Y): 1
1 1 1
Error Adaptasi (E)
: -1
0 0 0
Bobot Input Baru (w) :
2.00 2.00
Bobot Bias Baru (b) : -1.00
Sum Square Error
(SSE):1.00
Y =
1
1 1 1
E =
-1
0 0 0
Epoh ke-6
Output Jaringan
(Y): 0
1 1 1
Error Adaptasi (E)
: 0
0 0 0
Bobot Input Baru (w) :
2.00 2.00
Bobot Bias Baru (b) : -1.00
Sum Square Error
(SSE):0.00
Y =
0
1 1 1
E =
0
0 0 0
Bobot Input Akhir (W) :
2.00 2.00
Bobot Bias Akhir (b) : -1.00
>>
>> FungsiAktifasi
= net.layers{1}.transferFcn
FungsiAktifasi =
hardlim
>>
[1] https://www.mathworks.com/products/matlab/examples.html
Music MP3
