let simulation ?(schema="gauche") ?(inter=false) jmax () =
let ym = ref (makeym ()) in
print "Début de la simulation, pour n = %i points, h = %g, dt = %g, et k = %g.\n\n" n h dt k;
for j = 0 to jmax do
if 0 = (j mod jskip) then begin
print "\nSimulation, étape n° %i / %i.\n" j jmax;
print " écriture du script dans 'plotdata.gnuplot'...\n écriture des données dans 'data.txt'...\n génération de l'image '%s/plot_%05d.png'." schema j;
print_and_launch ~schema:schema ~verb:true ~inter:inter ~j:j !ym ();
end;
ym := (newnextY ~schema:schema !ym);
if inter then sleep 0.1;
flush_all ();
done