# Método da Bisseção

A função a seguir testa se uma função (fun) muda de sinal nos extremos do 
intervalo dado.

muda_de_sinal(fun, intervalo) :=  
    if signum(fun(intervalo[1])) # signum(fun(intervalo[2])) then 
        true 
    else 
        false$

Exemplo de uso da função acima:

f(x) := x^2-3$
muda_de_sinal(f, [-2, 2]);
muda_de_sinal(f, [0, 2]);