#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E   L ' H I S T O G R A M M E   D U                                                           #
#         P A R A D O X E   D E   B E R T R A N D  :                                                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.BERT.11.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20110407081051).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____Axe_OX_0                 0.3

$Z        setParam            _____Axe_OX_N                 0.7

$Z        SETParam            _____Axe_OY                   0.05

$Z        setParam            _____A_Histo                  `$xcg/DIVZ.01$X a=10 b=$_____Iterations2`

$Z        setParam            _____B_Histo                  $_____Axe_OY

$Z        set                 LhIsToGrAmMe=`$CA $xTV/HISTOGRAMME | $WCl`
$Z        @                   LhIsToGrAmMe2 = 2 * $LhIsToGrAmMe

$Z        $DELETE             $xTV/COORD.1$COORD_X
$Z        $DELETE             $xTV/COORD.2$COORD_X
$Z        $DELETE             $xTV/COORDONNEES$COORD_X
$Z        $xci/valeurs_inte$X                                                                                                           \
$Z                            premiere=1 derniere=$LhIsToGrAmMe                                                                         \
$Z                            vD=$_____Axe_OX_0 vA=$_____Axe_OX_N                                                                       \
$Z                            cubique=FAUX                                                                                              \
$Z                                                                                                            > $xTV/COORD.1$COORD_X
$Z        $xci/valeurs_inte$X                                                                                                           \
$Z                            premiere=1 derniere=$LhIsToGrAmMe                                                                         \
$Z                            vD=$_____Axe_OX_0 vA=$_____Axe_OX_N                                                                       \
$Z                            cubique=FAUX                                                                                              \
$Z                                                                                                            > $xTV/COORD.2$COORD_X
$Z        $PAST                                                                                                                         \
$Z                            $xTV/COORD.1$COORD_X                                                                                      \
$Z                            $xTV/COORD.2$COORD_X                                                                                |     \
$Z        $R                  "$K_TAB" "$K_NL"                                                                                          \
$Z                                                                                                            > $xTV/COORDONNEES$COORD_X

$Z        $DELETE             $xTV/COORD.1$COORD_Y
$Z        $DELETE             $xTV/COORD.2$COORD_Y
$Z        $DELETE             $xTV/COORDONNEES$COORD_Y
$Z        $xci/valeurs_inte$X                                                                                                           \
$Z                            premiere=1 derniere=$LhIsToGrAmMe                                                                         \
$Z                            vD=$_____Axe_OY vA=$_____Axe_OY                                                                           \
$Z                            cubique=FAUX                                                                                              \
$Z                                                                                                            > $xTV/COORD.1$COORD_Y
$Z        $xrv/AXPB.01$X                                                                                                                \
$Z                            ne=0                                                                                                      \
$Z                            fichier=$xTV/HISTOGRAMME                                                                                  \
$Z                            a=$_____A_Histo b=$_____B_Histo                                                                           \
$Z                                                                                                            > $xTV/COORD.2$COORD_Y
$Z        $PAST                                                                                                                         \
$Z                            $xTV/COORD.1$COORD_Y                                                                                      \
$Z                            $xTV/COORD.2$COORD_Y                                                                                |     \
$Z        $R                  "$K_TAB" "$K_NL"                                                                                          \
$Z                                                                                                            > $xTV/COORDONNEES$COORD_Y