function plotAnim(x,R,titre)
s=size(R);
n=s(1);
p=plot(x,R(1,:));
title(titre);
pause(0.1)
ylim([0 1.1])
grid on
for i=2:n
    set(p, 'YData', R(i,:));
    pause(0.1)
    drawnow
end




