// Approssimazione di uno zero della funzione (continua) F(x) = cos(x) con il
// metodo di bisezione.
// Intervallo iniziale : [1,2]
// Errore richiesto: E = 1d-5 , 1d-10 , 1d-15 , 1d-16
//
clear;
//
//
exec('/home/maurizio/Documenti/scilab-2025.1.0/Lavoro/03-04/bisezione.sci');
//
function y = F(x)
    y = cos(x);
endfunction
//
a = 1;
b = 2;
E = 1d-5;
[z, v, info, k, mis] = bisezione(F, a, b, E, 60);
//
// Visualizzazione dei risultati
//
printf('\n\nz = %5.4f , info = %d , mis = %5.4e\n\n',z,info,mis);
VA = ceil(log((b-a)/E) / log(2));
printf('   numero atteso di iterazioni:    %d \n   numero effettivo di iterazioni: %d\n\n',VA,k);
printf('|z - pi/2| = %5.4e  ,  E = %5.4e',abs(z - %pi/2), E);
