let print_gnuplot ?(verb=false) ?(script="plotdata.gnuplot") ?(data="data.txt") ?(plot="plot") ?(ext=dftlext) ?(t=0.) ?(n=n) ?(ymin=0.) ?(ymax=0.02) () =
        let outchannel = open_out script in
        if verb then print "\n  1. Écriture du script GNUPlot v4.6+ dans le fichier '%s' (taille 1366×768, type %s, yrange=[%g:%g], fichier de données %s, image de sortie %s.%s)..." script ext ymin ymax data plot ext;
        fprint outchannel "#! /usr/bin/env gnuplot
# -*- coding:utf8; mode:gnuplot -*-
# Script GNUPlot v4.6+, (C) Lilian Besson, 2014, GPLv3 Licenced
# Modélisation numérique d'une équation différentielle non-linéaire d'ordre 1.
set terminal %s size 1366,768
set style line 1 linewidth 0.5
set output '%s.%s'
set grid
set title 'Graphe de y(., tj) (pour tj=%g, avec %i points). (C) Lilian Besson et Nicolas Vernier, 2014'
set xrange [-1:1]
set yrange [%g:%g]
set xlabel 'Position horizontale (-1 < x < 1) avec %i points.'
set ylabel 'Position verticale du front de matière magnétisée (0 < y < %g).'
set label 'Front de matière magnétisée (au temps t=%g).' at 0.4,%g
plot '%s' with lines ls 1
# Fin du script GNUPlot v4.6+.\n"
 ext plot ext t (n+1) ymin ymax n ymax t (0.9 *. ymax) data;
        flush outchannel;
        close_out outchannel;