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;