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