let print_and_launch ?(schema="gauche") ?(verb=false) ?(inter=false) ?(ext=dftlext) ?(j=0) y () =
        print_gnuplot ~verb:false ~plot:(sprint "%s/plot_%05d" schema j) ~ext:ext ~t:(t_j j) ~ymax:(1.1 *. y.(0)) ();
        print_y ~verb:false ~t:(t_j j) y ();
        assert(0 = launch_gnuplot ());
        if inter then assert(0 = view_eog ~verb:verb ~plot:(sprint "%s/plot_%05d" schema j) ~ext:ext ());