% Program Matlab BISECTION untuk mencari akar persamaan f(x)=0 secara
% numerik menggunakan metode BISECTION
%
% Peng-input-an parameter-parameter yang diperlukan
a = input('Masukkan sembarang nilai a = ')
b = input('Masukkan sembarang nilai b = ')
N = input('Masukkan maksimum loop N = ')
tol = input('Masukkan nilai toleransi tol = ')
%
% Awal loop:
for I = 1:N
    iterasi(I) = I;
    FA = FUNGSI(a);
    if abs(FA) <= tol
        akar(I) = a
        'a adalah akar'
        break
    end
    FB = FUNGSI(b);
    if abs(FB) <= tol
        akar(I) = b
        'b adalah akar'
        break
    end
    if (FA*FB) > 0
        'ERROR a dan b'
        break
    end
    c = (a + b)/2; % Menghitung c pertengahan antara a dan b
    FC = FUNGSI(c);
    if abs(FC) <= tol
        akar(I) = c
        'c adalah akar'
        break
    elseif FC > 0
        if FA > 0
            a = c; % c mengganti a
        else
            b = c; % c mengganti b
        end
    else
        if FA < 0
            a = c; % c mengganti a
        else
            b = c; % c mengganti b
        end 
    end
    akar(I) = c; % Merekam nilai c
% Akhir loop:
end
K = length(akar);
AKAR_PERSAMAAN = akar(K)
plot(iterasi,akar,'*'), grid on, xlabel('iterasi ke I'), ylabel('akar ke I')
