#######################################################################################################################################
#                                                                                                                                     #
#         H I S T O G R A M M E   D E   L A   D I S T R I B U T I O N   D E S   ' RHO ' S   D U                                       #
#         M O U V E M E N T   B R O W N I E N   E N   C O O R D O N N E E S   S P H E R I Q U E S  :                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.BROW.31.4.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20110408103116).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____Nombre                   10

$Z        setParam            _____Axe_OZ                   0.5

$Z        setParam            _____HRayon                   0.012

$Z        $DELETE             $xTV/HISTOGRAMME

$Z        @                   NoMbRe = 2 * $_____Nombre + 1
$Z                                      # Il est preferable d'utiliser un nombre impair d'elements pour l'histogramme...              #

$Z        $xrv/histogram.01$X                                                                                                           \
$Z                            ne=0                                                                                                      \
$Z                            fichier=$xTV/POINTS.1.RHO                                                                                 \
$Z                            nombre=$NoMbRe                                                                                            \
$Z                                                                                                            > $xTV/HISTOGRAMME

$Z        @                   _____Iterations2 = 2 * $_____NPoints
$Z                                      # Plus le facteur multiplicatif est grand (=2 ici), moins l'histogramme est haut...           #

$Z        _____include(_____xiirk/.BERT.11.2._____U)

$Z        $xrv/particule.10$X                                                                                                           \
$Z                            np=1                                                                                                      \
$Z                            iterations=$LhIsToGrAmMe2                                                                                 \
$Z                            LISTE_X=$xTV/COORDONNEES$COORD_X                                                                          \
$Z                            LISTE_Y=$xTV/COORDONNEES$COORD_Y                                                                          \
$Z                            LISTE_Z=$_____Axe_OZ                                                                                      \
$Z                            LISTE_ROUGE=$BLANC                                                                                        \
$Z                            LISTE_VERTE=$BLANC                                                                                        \
$Z                            LISTE_BLEUE=$BLANC                                                                                        \
$Z                            LISTE_RAYON=$_____HRayon                                                                                  \
$Z                            zoom_automatique=FAUX ZOOM=1.0                                                                            \
$Z                            isoles=FAUX                                                                                               \
$Z                            chainer=FAUX                                                                                              \
$Z                            ajuster_points=VRAI                                                                                       \
$Z                            Apoints=16                                                                                                \
$Z                            Rpoints=4                                                                                                 \
$Z                            fond=VRAI fond_dynamique=FAUX F=$_____ImageR                                                              \
$Z                            Lz=100                                                                                                    \
$Z                            chiffres=0                                                                                                \
$Z                            R=$_____ImageR                                                                                            \
$Z                                                                                                                      $formatI