Contoh Program - METODE SETENGAH INTERVAL - METODE NUMERIK

Dibawah adalah sintax metode numerik dengan setengah interval. Yang kebetulan software yang penulis gunakan adalah program QtOctave di linux, jadi yang belum ada install seperti post ini.

Catatan : sintax yang di blok hijau, ganti sesuai soal yang di dapat . wkwkwk

Langsung aja di copi om di kode editor nya!!

clear;

function f=ps(x)

f=x^3+x^2-3*x-3;

return;

end

clear;

disp('========================================================');

disp(' METODE NUMERIK Dengan METODE SETENGAH INTERVAL ');

disp(' EDITED BY MADRIDISTA ');

disp('========================================================');

disp(' f=x^3+x^2-3*x-3;  dengan ε=0,005 ');

disp('========================================================');

a=input('masukan a = ');

b=input('masukan b = ');

err=0.005;

w0=0;

eps=1;

i=0;

disp('Perhitungan akar dengan metode Setengah Interval');

fprintf('Rentang awal [%5.4f , %5.4f] \n',a,b);

fprintf('Dengan tingkat kesalahan %7.5f \n\n',err);

disp('==============================================================');

disp('Iterasi setengah interval error Interval ');

disp('==============================================================');

while eps>=err

i=i+1;

f1=feval('ps',a);

w=(a+b)/2;

% disp(w);

f2=feval('ps',w);

if f1*f2 ==0

disp('w adalah akarnya');

elseif f1*f2<0

b=w;

else

a=w;

f1=f2;

end

fprintf('%2d %6.4f %5.4f [ %6.4f ; %6.4f ]\n',i,w,eps,a,b);

eps=abs(w0-w);

w0=w;

end

disp('==========================================================');

fprintf('akarnya adalah = %6.4f \n',w);

Terima kasih semoga bermanfaat