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