Tugas IV (program JST mengenali pola)

%---------------------------------------------------
% PROGRAM JARINGAN SYARAF TIRUAN kedua (Multi Layer)
% Pendeteksi pola persegi,segitiga, dan lingkaran

% Oleh : ai-toska06

% Anggota :

% Andi Prasetyo        ( 0615031004 )
% Ouriz Pucu           ( 0615031017 )
% Kiki Pratiwi         ( 0615031089 )
% Trivia Anggita       ( 0615031125 )
% Silvia Dewi Prama    ( 0615031115 )

%--------------------------------------------------

clc;
clear all;
close all hidden;

disp('-------------------------------');

disp('Program Pendeteksi Pola Segitiga, Persegi, dan Lingkaran');

disp('-------------------------------');


w11 = input('masukkan nilai w11 = ');
w12 = input('masukkan nilai w12 = ');
w21 = input('masukkan nilai w21 = ');
w22 = input('masukkan nilai w22 = ');
v1  = input('masukkan nilai v1 = ');
v2  = input('masukkan nilai v2 = ');
b1  = input('masukkan nilai Treshoold pertama = ');
b2  = input('masukkan nilai Treshoold kedua= ');
b   = input('masukkan nilai Treshoold ketiga= ');

x1=0;
x2=0;

n11=x1*w11+x2*w12-b1;

if n11 >= 0
      a11 = 1;
elseif n11 < 0
      a11 = 0;
end;

x1=0;
x2=1;
n12=x1*w11+x2*w12-b1;

if n12 >= 0
      a12 = 1;
elseif n12 < 0
      a12 = 0;
end;

x1=1;
x2=0;
n13=x1*w11+x2*w12-b1;

if n13 >= 0
      a13 = 1;
elseif n13 < 0
      a13 = 0;
end;

x1=1;
x2=1;
n14=x1*w11+x2*w12-b1;

if n14 >= 0
      a14 = 1;
elseif n14 < 0
      a14 = 0;
end;

%--------------a11-a12-a13-a14---------------


x1=0;
x2=0;
n21=x1*w21+x2*w22-b2;

if n21 >= 0
      a21 = 1;
elseif n21 < 0
      a21 = 0;
end;

x1=0;
x2=1;
n22=x1*w21+x2*w22-b2;

if n22 >= 0
      a22 = 1;
elseif n22 < 0
      a22 = 0;
end;

x1=1;
x2=0;
n23=x1*w21+x2*w22-b2;

if n23 >= 0
      a23 = 1;
elseif n23 < 0
      a23 = 0;
end;

x1=1;
x2=1;
n24=x1*w21+x2*w22-b2;

if n24 >= 0
      a24 = 1;
elseif n24 < 0
      a24 = 0;
end;


%-----------------a21-a22-a23-a24-------------------


disp('pilih salah satu:');
disp('1. OR ');
disp('2. AND ');
disp('3. NOR ');
disp('4. NAND ');
disp('5. XOR ');
disp('6. XNOR ');
disp('--------------------------');
pilih =input ('pilihan anda (1-6) nomor ->');

switch pilih
 
    case 1  

x1=a11;
x2=a21;
y1=x1*v1+x2*v2-b;
disp(['iterasi 1, Nilai y1 = ' num2str(y1)]);

if y1 >= 0
    disp('Fn = 1');
    disp('error');

elseif y1 < 0
    disp('Fn = 0');
    disp('benar ');
end;

x1=12;
x2=22;
y2=x1*v1+x2*v2-b;
disp(['iterasi 2, Nilai y2 = ' num2str(y2)]);

if y2 >= 0
    disp('Fn = 1');
    disp('benar ');

elseif y2 < 0
    disp('Fn = 0');
    disp('error');
end;

x1=13;
x2=23;
y3=x1*v1+x2*v2-b;
disp(['iterasi 3, Nilai y3 = ' num2str(y3)]);

if y3 >= 0
    disp('Fn = 1');
    disp('benar ');

elseif y3 < 0
    disp('Fn = 0');
    disp('error');
end;

x1=14;
x2=24;
y4=x1*v1+x2*v2-b;
disp(['iterasi 4, Nilai y4 = ' num2str(y4)]);

if y4 >= 0
    disp('Fn = 1');
    disp('benar ');

elseif y4 < 0
    disp('Fn = 0');
    disp('error');
end;

    case 2
  
x1=a11;
x2=a21;
y1=x1*v1+x2*v2-b;
disp(['iterasi 1, Nilai y1 = ' num2str(y1)]);

if y1 >= 0
    disp('Fn = 1');
    disp('error');

elseif y1 < 0
    disp('Fn = 0');
    disp('benar ');
end;
  
x1=a12;
x2=a22;
y2=x1*v1+x2*v2-b;
disp(['iterasi 2, Nilai y2 = ' num2str(y2)]);

if y2 >= 0
    disp('Fn = 1');
    disp('error');

elseif y2 < 0
    disp('Fn = 0');
    disp('benar ');
end;

x1=a13;
x2=a23;
y3=x1*v1+x2*v2-b;
disp(['iterasi 3, Nilai y3 = ' num2str(y3)]);

if y3 >= 0
    disp('Fn = 1');
    disp('error');

elseif y3 < 0
    disp('Fn = 0');
    disp('benar ');
end;

x1=a14;
x2=a24;
y4=x1*v1+x2*v2-b;
disp(['iterasi 4, Nilai y4 = ' num2str(y4)]);

if y4 >= 0
    disp('Fn = 1');
    disp('benar ');

elseif y4 < 0
    disp('Fn = 0');
    disp('error');
end;


    case 3
  
x1=a11;
x2=a21;
y1=x1*v1+x2*v2-b;
disp(['iterasi 1, Nilai y1 = ' num2str(y1)]);

if y1 >= 0
    disp('Fn = 1');
    disp('benar ');

elseif y1 < 0
    disp('Fn = 0');
    disp('error');
end;

x1=a12;
x2=a22;
y2=x1*v1+x2*v2-b;
disp(['iterasi 2, Nilai y2 = ' num2str(y2)]);

if y2 >= 0
    disp('Fn = 1');
    disp('error');

elseif y2 < 0
    disp('Fn = 0');
    disp('benar ');
end;

x1=a13;
x2=a23;
y3=x1*v1+x2*v2-b;
disp(['iterasi 3, Nilai y3 = ' num2str(y3)]);

if y3 >= 0
    disp('Fn = 1');
    disp('error');

elseif y3 < 0
    disp('Fn = 0');
    disp('benar ');
end;

x1=a14;
x2=a24;
y4=x1*v1+x2*v2-b;
disp(['iterasi 4, Nilai y4 = ' num2str(y4)]);

if y4 >= 0
    disp('Fn = 1');
    disp('error');

elseif y4 < 0
    disp('Fn = 0');
    disp('benar ');
end;

    case 4

x1=a11;
x2=a21;
y1=x1*v1+x2*v2-b;
disp(['iterasi 1, Nilai y1 = ' num2str(y1)]);

if y1 >= 0
    disp('Fn = 1');
    disp('benar ');

elseif y1 < 0
    disp('Fn = 0');
    disp('error');
end;

x1=a12;
x2=a22;
y2=x1*v1+x2*v2-b;
disp(['iterasi 2, Nilai y2 = ' num2str(y2)]);

if y2 >= 0
    disp('Fn = 1');
    disp('benar ');

elseif y2 < 0
    disp('Fn = 0');
    disp('error');
end;

x1=a13;
x2=a23;
y3=x1*v1+x2*v2-b;
disp(['iterasi 3, Nilai y3 = ' num2str(y3)]);

if y3 >= 0
    disp('Fn = 1');
    disp('benar ');

elseif y3 < 0
    disp('Fn = 0');
    disp('error');
end;

x1=a14;
x2=a24;
y4=x1*v1+x2*v2-b;
disp(['iterasi 4, Nilai y4 = ' num2str(y4)]);

if y4 >= 0
    disp('Fn = 1');
    disp('error');

elseif y4 < 0
    disp('Fn = 0');
    disp('benar ');
end;

    case 5
  
x1=a11;
x2=a21;
y1=x1*v1+x2*v2-b;
disp(['iterasi 1, Nilai y1 = ' num2str(y1)]);

if y1 >= 0
    disp('Fn = 1');
    disp('error');

elseif y1 < 0
    disp('Fn = 0');
    disp('benar ');
end;

x1=a12;
x2=a22;
y2=x1*v1+x2*v2-b;
disp(['iterasi 2, Nilai y2 = ' num2str(y2)]);

if y2 >= 0
    disp('Fn = 1');
    disp('benar ');

elseif y2 < 0
    disp('Fn = 0');
    disp('error');
end;

x1=a13;
x2=a23;
y3=x1*v1+x2*v2-b;
disp(['iterasi 3, Nilai y3 = ' num2str(y3)]);

if y3 >= 0
    disp('Fn = 1');
    disp('benar ');

elseif y3 < 0
    disp('Fn = 0');
    disp('error');
end;

x1=a14;
x2=a24;
y4=x1*v1+x2*v2-b;
disp(['iterasi 4, Nilai y4 = ' num2str(y4)]);

if y4 >= 0
    disp('Fn = 1');
    disp('error');

elseif y4 < 0
    disp('Fn = 0');
    disp('benar ');
end;

    case 6

x1=a11;
x2=a21;
y1=x1*v1+x2*v2-b;
disp(['iterasi 1, Nilai y1 = ' num2str(y1)]);

if y1 >= 0
   disp('Fn = 1');
   disp('benar ');

elseif y1 < 0
    disp('Fn = 0');
    disp('error');
end;

x1=12;
x2=22;
y2=x1*v1+x2*v2-b;
disp(['iterasi 2, Nilai y2 = ' num2str(y2)]);

if y2 >= 0
    disp('Fn = 1');
    disp('error');

elseif y2 < 0
    disp('Fn = 0');
    disp('benar ');
end;

x1=13;
x2=23;
y3=x1*v1+x2*v2-b;
disp(['iterasi 3, Nilai y3 = ' num2str(y3)]);

if y3 >= 0
    disp('Fn = 1');
    disp('error');

elseif y3 < 0
    disp('Fn = 0');
    disp('benar ');
end;

x1=14;
x2=24;
y4=x1*v1+x2*v2-b;
disp(['iterasi 4, Nilai y4 = ' num2str(y4)]);

if y4 >= 0
    disp('Fn = 1');
    disp('benar ');

elseif y4 < 0
    disp('Fn = 0');
    disp('error');
end;

end;