#######################################################################################################################################
#                                                                                                                                     #
#         R A Y O N S   E T   C O U L E U R S   A L E A T O I R E S  :                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.STRW.8.15.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20141121160555).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____GraineR                  1789
$Z                                      # Introduit le 20141123094145...                                                              #

$Z        $xci/valeurs_alea$X premiere=1 derniere=$NpartS2                                                                              \
$Z                            graine=$_____GraineR inf=$_____RayonI sup=$_____RayonS                                                    \
$Z                            entiers=FAUX                                                                                              \
$Z                            | $AW ' { print $1 "\n" $1 } '                                                                            \
$Z                                                                                                  > $xTV/RAYON.1
$Z        decaleC             $xTV/RAYON.1                  1

$Z        $xci/valeurs_inte$X premiere=1 derniere=$NpartS2                                                                              \
$Z                            vD=$NOIR vA=$BLANC                                                                                        \
$Z                            entiers=VRAI                                                                                              \
$Z                            | $AW ' { print $1 "\n" $1 } '                                                                            \
$Z                                                                                                  > $xTV/NIVEAUX
$Z        decaleC             $xTV/NIVEAUX                  1