Program JST Untuk Mengenali Pola Segitiga, Segi Empat dan Lingkaran

Lihat Selengkapnya...

Program Prediksi Jumlah Produksi

Program ini dibuat agar dapat memprediksi jumlah produksi pada tahun tertentu dari suatu perusahaan.

Berikut program prediksi produksi perusahaan :

% program prediksi produksi perusahaan

disp('----------------------------------');
disp('Program prediksi produksi perusahaan');
disp('---------------------------------');

clear all;
clc;

%jumlah modal
t2005=16798750;
t2006=17026000;
t2007=17289700;
t2008=18302400;
t2009=19010400;


%jumlah biaya tetap
r2005=8317100;
r2006=8317100;
r2007=8317100;
r2008=8317100;
r2009=8317100;

%jumlah biaya variabel
s2005=8481650;
s2006=8708900;
s2007=8972600;
s2008=9985300;
s2009=10693300;


th=input('tahun berapa yang akan diprediksi = ');
%p=input ('produksi sebelumnya =');
pr=((227250+7000000)/100);
disp(['jumlah produksi = ' num2str(pr)]);

%-----------------------------------multilayer

clear all;
clc;

disp('-------------------------------');
disp('Program JST 2 (multilayer)');
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');
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;

Download m.file disini

Lihat Selengkapnya...