Klasifikasi Species Kelas Craniata Dalam Matlab (JST)

%klasifikasi hewan Craniata @ matlab
%rizky firdaus h.

q=[[0; 2; 0; 0 ;1]  [2; 0 ;0 ;0; 0] [4; 1 ;1 ;0 ;0]  [4 ;2 ;0 ;1 ;0] [4; 3; 0; 1 ;2] [2 ;0 ;0 ;1 ;0] [2; 1; 1 ;2 ;0] [0;2;0;1;0]];
t=[1 4 5 3 2 4 5 3];
net2=newff(minmax(q),[3,1], {'tansig', 'purelin'},'traingd');
%traincgb
ab= train(net2,q,t);

r=zeros(5,1);
clc;
r(1,1)=input('Masukkan jumlah kaki =');clc
disp('Pilihan :');
disp('0. Berbulu');
disp('1. Berambut');
disp('2. Bersisik');
disp('3. Berlendir');
r(2,1)=input('Masukkan jenis kulit =');clc
disp('Pilihan :');
disp('0. Bertelur');
disp('1. Beranak');
r(3,1)=input('Masukkan cara berkembang biak =');clc
disp('Pilihan :');
disp('0. Herbivora');
disp('1. Karnivora');
disp('2. Omnivora');
r(4,1)=input('Masukkan jenis makanan =');clc
disp('Pilihan :');
disp('0. Paru-paru');
disp('1. Insang');
disp('2. Kulit& paru-paru');
r(5,1)=input('Masukkan cara bernapas =');clc

c=sim(ab,r);
d=round(c);

if(d==1)
    disp('Hewan tersebut berjenis pisces');
else if(d==2);
    disp('Hewan tersebut berjenis amphibi');
else if(d==3)
    disp('Hewan tersebut berjenis reptil');
else if(d==4)
    disp('Hewan tersebut berjenis aves');
else if(d==5)
    disp('Hewan tersebut berjenis mamalia');
    end
    end
    end
    end
end

%rizky firdaus h.