let print_y ?(verb=false) ?(t=0.) ?(n=n) ?(dt=dt) ?(data="data.txt") y () =
        let outchannel = open_out data in
        if verb then print "\n  2. Écriture des données dans le fichier '%s' (n=%i, dt=%g, t=%g)..." data n dt t;
        fprint outchannel "#! /usr/bin/env cat
# -*- coding:utf8; mode:plain -*-
# Données numériques en mode texte, n=%i, dt=%g, t=%g
# (C) Lilian Besson, 2014, GPLv3 Licenced
# Modélisation numérique d'une équation différentielle non-linéaire d'ordre 1.\n"
 n t dt;
        for i = n downto 1 do
                fprint outchannel " \t%g \t%g\n" (-1. *. (x_i i)) y.(i);
        done;
        for i = 0 to n do
                fprint outchannel " \t%g \t%g\n" (x_i i) y.(i);
        done;
        fprint outchannel "# Fin du fichier de données numériques en mode texte.";
        flush outchannel;
        close_out outchannel;