// Program Scilab BISECTION untuk mencari akar persamaan f(x)=0 secara 
// numerik menggunakan metode BISECTION
//
// Peng-input-an parameter-parameter yang diperlukan
function y = FUNGSI(x)
    y = x^2 - x - 6; // f(x) yang dicari akarnya
endfunction
a = 0;
b = -5;
N = 20;
tol = 0.00001;
//
// Awal loop:
for I = 1:N
    iterasi(I) = I;
    FA = FUNGSI(a);
    if abs(FA) <= tol
        akar(I) = a
        break
    end
    FB = FUNGSI(b);
    if abs(FB) <= tol
        akar(I) = b
        break
    end
    if (FA*FB) > 0
        break
    end
    c = (a + b)/2; // Menghitung c pertengahan antara a dan b
    FC = FUNGSI(c);
    if abs(FC) <= tol
        akar(I) = c
        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,'*'), xlabel('iterasi ke I'), ylabel('akar ke I'),xgrid(2)
