#######################################################################################################################################
#                                                                                                                                     #
#         P A R T I T I O N   A L E A T O I R E   D E   L ' E N S E M B L E   D E S   P A R T I C U L E S                             #
#         E N   D E U X   S O U S - E N S E M B L E S   P O U R   L E S   C O U L E U R S  :                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.REFM.Y.84.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20200314123455).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $DELETE             $xTV/COULEURS$ROUGE
$Z                  $DELETE             $xTV/COULEURS$VERTE
$Z                  $DELETE             $xTV/COULEURS$BLEUE

$Z                  $xrv/MUL2.11$X      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/CARACTERIS.RVB                                                                    \
$Z                                      fichier2=$GRIS_8                                                                                \
$Z                                      formater=VRAI entiers=VRAI                                                                      \
$Z                                                                                                            >   $xTV/COULEURS$ROUGE

$Z                  $xrv/MUL2.11$X      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/CARACTERIS.RVB                                                                    \
$Z                                      fichier2=$GRIS_8                                                                          |     \
$Z                  $xrv/SOUS.11$X      ne=$Npart                                                                                       \
$Z                                      fichier1=$GRIS_8                                                                                \
$Z                                      fichier2==                                                                                |     \
$Z                  $xrv/MUL2.11$X      ne=$Npart                                                                                       \
$Z                                      fichier1=0.5                                                                                    \
$Z                                      fichier2==                                                                                      \
$Z                                      formater=VRAI entiers=VRAI                                                                      \
$Z                                                                                                            >   $xTV/COULEURS$VERTE

$Z                  $xrv/MIN2.11$X      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/CARACTERIS.RVB                                                                    \
$Z                                      fichier2=$GRIS_0                                                                                \
$Z                                      formater=VRAI entiers=VRAI                                                                      \
$Z                                                                                                            >   $xTV/COULEURS$BLEUE