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