Scilab - Método da Secante

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

//(a,b) é o intervalo onde a raíz se encontra
//Ep = precisão (0<Ep<1)
//it - número máximo de iterações
function x=secante(a,b,Ep,it)
 exec func.sci;
 x(1)=a
 x(2)=b
 end
 n=2;
 while abs(b-a) > Ep &n<(it+2)
 n=n+1;
 x(n)=(a+b)/2;
 if func(x(n))<0 then
 if func(a)<0 then
 a=x(n)
 else
 b=x(n)
 end
 else
 if func(a)>0 then
 a=x(n)
 else
 b=x(n)
 end
 a=x(n-1);
 b=x(n);
 end
endfunction