tugas ke 4

%*******************************
%PROGRAM JARINGAN SYARAF TIRUAN
%KELOMPOK
%martias hasan (0615021095)
%agus purnomo (0615031037)
%amir faisal (0615031042)
%******************************

clear all;
clc;
disp ('PROGRAM JARINGAN SYARAF TIRUAN DENGAN MENGGUNAKAN MATLAB')
disp (' ');
disp ('disusun oleh :');
disp ('1. martias hasan (0615021095) ');
disp ('2. agus purnomo (0615031037) ');
disp ('3. amir faisal (0615031042) ');
disp (' ');
disp ('Program JST ini menggunakan 3 input dengan satu output. Dan menggunakan 1 hidden layer.');
disp ('Bobot dari neuron akan dihitung secara acak. Iterasi hanya dilakukan sampai 5 kali. ');
disp (' ');
disp ('Masukan nilai x1 - x3 dan Fd dengan digit biner');
x1 = input ('nilai x1 = ');
x2 = input ('nilai x2 = ');
x3 = input ('nilai x3 = ');
x = [x1; x2 ;x3];
disp('nilai nilai x :');
disp (x);
Fd = input ('masukan target dari operasi yang diinginkan (Fd): ');
disp(' ');
disp('w dan v di notasikan dalam bentuk matrix');

%proses iterasi 1
disp('ITERASI 1');
i=3;
j=3;
k=1;
w = randn(i,j);
v = randn(k,i);
disp('w :');
disp(w);
disp('v :');
disp(v);
h = w*x;
disp('h : ');
disp(h);
j = mat2cell(h, [1 1 1],[1]);

h1 = cell2mat(j(1));
h2 = cell2mat(j(2));
h3 = cell2mat(j(3));

if h1>=0
H1 = 1;
elseif h1 <0 H1 = 0; end; if h2>=0
H2 = 1;
elseif h2 <0 H2 = 0; end; if h3>=0
H3 = 1;
elseif h3 <0 H3 = 0; end; H = [H1;H2;H3]; disp ('H :');disp (H); y = v*H; disp('y :'); disp(y); Y = (y); if Y>=0
Fn = 1;
elseif Y < 0 Fn = 0; end; disp ('Fn :'); disp (Fn); E = Fn - Fd; disp ('Errornya :'); disp(E); %PROSES ITERASI 2-A %++++++++++++++++++++++++++++++++++++++ if E > 0
i=3;
j=3;
k=1;
w = randn(i,j);
v = randn(k,i);

disp('ITERASI 2');
disp('w :');
disp(w);
disp('v :');
disp(v);
h = w*x;
disp('h : ');
disp(h);
j = mat2cell(h, [1 1 1],[1]);

h1 = cell2mat(j(1));
h2 = cell2mat(j(2));
h3 = cell2mat(j(3));

if h1>=0
H1 = 1;
elseif h1 <0 H1 = 0; end; if h2>=0
H2 = 1;
elseif h2 <0 H2 = 0; end; if h3>=0
H3 = 1;
elseif h3 <0 H3 = 0; end; H = [H1;H2;H3]; disp ('H :');disp (H); y = v*H; disp('y :'); disp(y); Y = (y); if Y>=0
Fn = 1;
elseif Y < 0 Fn = 0; end; disp ('Fn :'); disp (Fn); E = Fn - Fd; disp ('Errornya :'); disp(E); %PROSES ITERASI 2-B elseif E < 0 disp('ITERASI 2'); i=3; j=3; k=1; w = randn(i,j); v = randn(k,i); disp('w :'); disp(w); disp('v :'); disp(v); h = w*x; disp('h : '); disp(h); j = mat2cell(h, [1 1 1],[1]); h1 = cell2mat(j(1)); h2 = cell2mat(j(2)); h3 = cell2mat(j(3)); if h1>=0
H1 = 1;
elseif h1 <0 H1 = 0; end; if h2>=0
H2 = 1;
elseif h2 <0 H2 = 0; end; if h3>=0
H3 = 1;
elseif h3 <0 H3 = 0; end; H = [H1;H2;H3]; disp ('H :');disp (H); y = v*H; disp('y :'); disp(y); Y = (y); if Y>=0
Fn = 1;
elseif Y < 0 Fn = 0; end; disp ('Fn :'); disp (Fn); E = Fn - Fd; disp ('Errornya :'); disp(E); else disp('fungsi berhasil'); end; %PROSES ITERASI 3-A %++++++++++++++++++++++++++++++++++++++++++++++++++++ disp('ITERASI 3'); if E > 0
i=3;
j=3;
k=1;
w = randn(i,j);
v = randn(k,i);
disp('w :');
disp(w);
disp('v :');
disp(v);
h = w*x;
disp('h : ');
disp(h);
j = mat2cell(h, [1 1 1],[1]);

h1 = cell2mat(j(1));
h2 = cell2mat(j(2));
h3 = cell2mat(j(3));

if h1>=0
H1 = 1;
elseif h1 <0 H1 = 0; end; if h2>=0
H2 = 1;
elseif h2 <0 H2 = 0; end; if h3>=0
H3 = 1;
elseif h3 <0 H3 = 0; end; H = [H1;H2;H3]; disp ('H :');disp (H); y = v*H; disp('y :'); disp(y); Y = (y); if Y>=0
Fn = 1;
elseif Y < 0 Fn = 0; end; disp ('Fn :'); disp (Fn); E = Fn - Fd; disp ('Errornya :'); disp(E); %PROSES ITERASI 3-B elseif E < 0 i=3; j=3; k=1; w = randn(i,j); v = randn(k,i); disp('w :'); disp(w); disp('v :'); disp(v); h = w*x; disp('h : '); disp(h); j = mat2cell(h, [1 1 1],[1]); h1 = cell2mat(j(1)); h2 = cell2mat(j(2)); h3 = cell2mat(j(3)); if h1>=0
H1 = 1;
elseif h1 <0 H1 = 0; end; if h2>=0
H2 = 1;
elseif h2 <0 H2 = 0; end; if h3>=0
H3 = 1;
elseif h3 <0 H3 = 0; end; H = [H1;H2;H3]; disp ('H :');disp (H); y = v*H; disp('y :'); disp(y); Y = (y); if Y>=0
Fn = 1;
elseif Y < 0 Fn = 0; end; disp ('Fn :'); disp (Fn); E = Fn - Fd; disp ('Errornya :'); disp(E); else disp('fungsi berhasil'); end; %PROSES ITERASI 4-A %++++++++++++++++++++++++++++++++++++++++++++++++++++ disp('ITERASI 4'); if E > 0
i=3;
j=3;
k=1;
w = randn(i,j);
v = randn(k,i);
disp('w :');
disp(w);
disp('v :');
disp(v);
h = w*x;
disp('h : ');
disp(h);
j = mat2cell(h, [1 1 1],[1]);

h1 = cell2mat(j(1));
h2 = cell2mat(j(2));
h3 = cell2mat(j(3));

if h1>=0
H1 = 1;
elseif h1 <0 H1 = 0; end; if h2>=0
H2 = 1;
elseif h2 <0 H2 = 0; end; if h3>=0
H3 = 1;
elseif h3 <0 H3 = 0; end; H = [H1;H2;H3]; disp ('H :');disp (H); y = v*H; disp('y :'); disp(y); Y = (y); if Y>=0
Fn = 1;
elseif Y < 0 Fn = 0; end; disp ('Fn :'); disp (Fn); E = Fn - Fd; disp ('Errornya :'); disp(E); %PROSES ITERASI 4-B elseif E < 0 i=3; j=3; k=1; w = randn(i,j); v = randn(k,i); disp('w :'); disp(w); disp('v :'); disp(v); h = w*x; disp('h : '); disp(h); j = mat2cell(h, [1 1 1],[1]); h1 = cell2mat(j(1)); h2 = cell2mat(j(2)); h3 = cell2mat(j(3)); if h1>=0
H1 = 1;
elseif h1 <0 H1 = 0; end; if h2>=0
H2 = 1;
elseif h2 <0 H2 = 0; end; if h3>=0
H3 = 1;
elseif h3 <0 H3 = 0; end; H = [H1;H2;H3]; disp ('H :');disp (H); y = v*H; disp('y :'); disp(y); Y = (y); if Y>=0
Fn = 1;
elseif Y < 0 Fn = 0; end; disp ('Fn :'); disp (Fn); E = Fn - Fd; disp ('Errornya :'); disp(E); else disp('fungsi berhasil'); end; %PROSES ITERASI 5-A %++++++++++++++++++++++++++++++++++++++++++++++++++ disp('ITERASI 5'); if E > 0
i=3;
j=3;
k=1;
w = randn(i,j);
v = randn(k,i);
disp('w :');
disp(w);
disp('v :');
disp(v);
h = w*x;
disp('h : ');
disp(h);
j = mat2cell(h, [1 1 1],[1]);

h1 = cell2mat(j(1));
h2 = cell2mat(j(2));
h3 = cell2mat(j(3));

if h1>=0
H1 = 1;
elseif h1 <0 H1 = 0; end; if h2>=0
H2 = 1;
elseif h2 <0 H2 = 0; end; if h3>=0
H3 = 1;
elseif h3 <0 H3 = 0; end; H = [H1;H2;H3]; disp ('H :');disp (H); y = v*H; disp('y :'); disp(y); Y = (y); if Y>=0
Fn = 1;
elseif Y < 0 Fn = 0; end; disp ('Fn :'); disp (Fn); E = Fn - Fd; disp ('Errornya :'); disp(E); %PROSES ITERASI 5-B elseif E < 0 i=3; j=3; k=1; w = randn(i,j); v = randn(k,i); disp('w :'); disp(w); disp('v :'); disp(v); h = w*x; disp('h : '); disp(h); j = mat2cell(h, [1 1 1],[1]); h1 = cell2mat(j(1)); h2 = cell2mat(j(2)); h3 = cell2mat(j(3)); if h1>=0
H1 = 1;
elseif h1 <0 H1 = 0; end; if h2>=0
H2 = 1;
elseif h2 <0 H2 = 0; end; if h3>=0
H3 = 1;
elseif h3 <0 H3 = 0; end; H = [H1;H2;H3]; disp ('H :');disp (H); y = v*H; disp('y :'); disp(y); Y = (y); if Y>=0
Fn = 1;
elseif Y < 0
Fn = 0;
end;

disp ('Fn :');
disp (Fn);

E = Fn - Fd;
disp ('Errornya :');
disp(E);

else
disp('fungsi berhasil');
end;