Berikut ini adalah program Matlab yang bisa diguanakan untuk mencari suatu akar dengan metode bagi dua.
Program :
function [iterasi A B X
FX] = bagidua(f,a,b,tol)
if b<a, end
A=[a];B=[b];X=[];FX=[];iterasi=[];
fa=feval(f,a);
fb=feval(f,b);
if fa*fb>0, end
N=1+round((log(b-a)-log(tol))/log(2));
for k=1:N,
iterasi=[iterasi;k];
x=(a+b)/2;
fx=feval(f,x);
X=[X;x];FX=[FX;fx];
if(fx==0)|((b-a)<tol),break,end
if fa*fx<0,
b=x;
else
a=x;
end
A=[A;a];B=[B;b];
end
function y=fungsilat(x)
y=exp(x-2)+3.*x
cara memanggil nya adalah dengan
Selang dipilih [-1/10 , 1/10]
[i,a,b,x,fx]=bagidua('fungsilat',-(1/10), 1/10,
0.00001)
