
function esperimento

warning off;

% funzione
f=@(x) exp(-x.^3)+cos(x);

% estremi
a=0;
b=pi/2;

% esperimenti
for k=1:8
    m(k)=2^k; n=15000;
    i_err(k)=esperimento_sub(m(k),n,f,a,b);
end

% stampa su file
A=[m; i_err];
fid = fopen('errori.txt','w');
fprintf(fid,'%4.0f %1.15e \n',A);
fclose(fid);

% dati richiesti per la tabella
fprintf('\n \t i_err(1)  :%1.6e',i_err(1));
fprintf('\n \t i_err(end):%1.6e \n \n',i_err(end));

% ......... RISULTATI ............
%
%  	 i_err(1)  :1.141086e-01
%  	 i_err(end):2.716230e-14 
%
% ................................
 
