%
%   Tema d'esame CALCOLO NUMERICO - MILANO 7 maggio 2013 - Esercizio 3
%
clear all

f=inline('20*exp(-120*t)-1','t');
t=0:0.001:0.1; epsilon=1e-4;
plot(t,f(t),t,0);
a=0.02; b=0.03;
[t2,iter]=bisezione(f,a,b,epsilon);
t_vera=log(0.05)/(-120);
err=abs(t_vera-t2(iter));
fprintf('t_sol=%10.7f \t t_vera=%10.7f \t err=%12.6e \t it=%2d \n',t2(iter),t_vera,err,iter);

%t_sol= 0.0246875 	 t_vera= 0.0249644 	 err=2.769356e-004 	 it= 7 