Metode Bagi Dua (Metode Numerik)

Metode Bagi Dua (Metode Numerik)

clc;
clear;
%f(x)=exp(x)-5*x^2
a=1;
b=2;
epsilon = 0.00001;
iterasi=0;
disp('TUGAS KOMPUTASI NUMERIK ');
disp('NAMA : YUDHA AGUNG WIRAWAN');
disp('NIM : 118110038');
disp('KELAS IK-35-01 ');
disp(' ');
disp('METODE BAGI DUA untuk persamaan f(x)=exp(x)-5*x^2');
disp('a=0, b=1, epsilon=0.00001');
disp('Iterasi    a     b    c        f(a)       f(b)       f(c)     selang baru   lebar selang baru');
while abs(b-a) > epsilon;
c=(a+b)/2;
fc=exp(c)-5*c^2;
fa=exp(a)-5*a^2;
fb=exp(b)-5*b^2;
fprintf(' %10f %10f %10f %10f %10ff %10ff %10f',iterasi,a,b,c,fa,fb,fc);
if fa*fc < 0;
b=c;
selang = '[a,c]';
else;
a=c;
selang = '[c,b]';
end;
fprintf(' %8s %10.7f\n',selang,abs(b-a));
iterasi=iterasi+1;
end;
akar = c;
fprintf('Akarnya adalah = %8.7f\n', akar);
fprintf('Jumlah Iterasi = %g\n', iterasi);

Source : Admin

Posted in: Koding