%Exemplo 4. Uso do Método da Bissecção do Livro de 
%Cálculo Numérico da M. Rugiero. Pág. 44.
a=0;
b=1;
x=(a+b)/2;
f=x^3-9*x+3;
e=10^(-3);
n=1;
if (b-a)<e
    'A raiz é:'
    x
else
    while (b-a)>e & n<100
        M=a^3-9*a+3;
        if M*f>0
            a=x;
        else
            b=x;
        end
        x=(a+b)/2;
        f=x^3-9*x+3;
        n=n+1;
    end
    'A raiz é: ' 
    x
    'O número de iterações foi: ' 
    inter=n-1
end 