disp('On compare les algorithmes s1 et s2 graphiquement')
exec s1_s2.sci;     //appel des fonctions s1 et s2F

//Plusieurs calculs
for l=1:10,      //début de la boucle
n=5000*l; nv(l)=n;F

timer();
S1 = s1(n);
t1(l)=timer();  //on stocke le temps mis par la méthode 1
timer();
S2 = s2(n);
t2(l)=timer();  //on stocke le temps mis par la méthode 2F

end             //fin de la boucleF

//Affichage des temps de calcul
xset("window",0); xbasc(0);
plot2d([nv,nv],[t1,t2],[-1,-2],leg="t1@t2")
xtitle('Temps de calcul','valeurs de n','temps')