Tanggal Tugas | Tanggal Selesai | Judul Tugas |
25 Maret 2010 | 29 Maret 2010 | Tugas 3 |
Nama | NPM | Tugas |
Oki Kusnan Panulung | 0615031103 | membuat program |
Joni Efwan | 0615031013 | publikasi ke blog |
Andi Purnama Putra | 0615031045 | mencari materi |
Amri Wahyudin | 0615031043 | mencari materi |
Edianto Simbolon | 0615031075 | mencari materi |
Buat program JST, untuk memprediksi suatu perkembangan
% program pencarian jumlah kebutuhan listrik
% Oleh : ai-a-ojaa
% Anggota :
% Oki Kusnan Panulung ( 0615031103 )
% Joni Efwan ( 0615031013 )
% Andi Purnama Putra ( 0615031045 )
% Amri WAhyudin ( 0615031044 )
% Edianto ( 0615031075 )
%--------------------------------------------------
disp('----------------------------------');
disp('Program prediksi kebutuhan listrik');
disp('---------------------------------');
clear all;
clc;
%jumlah penduduk Lampung pertahun
t2003=6852999;
t2004=6915950;
t2005=7116177;
t2006=7211586;
t2007=7289767;
t2008=7302486;
t2009=7310439;
%jumlah konsumsi listrik pertahun dalam MW
r2003=317;
r2004=326;
r2005=331;
r2006=338;
r2007=363;
r2008=376;
r2009=382;
th=input('tahun berapa yang akan diprediksi = ');
%p=input ('jumlah penduduk sebelumnya =');
mw=(((th-2003)*200000)+6852999)*(326/6915950);
disp(['jumlah kebutuhan listrik dalam MW = ' num2str(mw)]);
%-----------------------------------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;
