
function demo_media_parziale

N=10;
indice=(1:N)';
seq=(sin(indice)).^2;
[media_parziale_vett,flag]=media_parziale(seq);
ultimo_media_parziale=media_parziale_vett(end);
fprintf('\n \t ultimo_media_parziale: %1.6e \n',...
    ultimo_media_parziale);