#######################################################################################################################################
#                                                                                                                                     #
#         M O U V E M E N T   B R O W N I E N   E T   S A   F R O N T I E R E                                                         #
#         E N   C O O R D O N N E E S   C A R T E S I E N N E S                                                                       #
#         A V E C   V I S U A L I S A T I O N   D E   L A   D I S T A N C E   A   L ' O R I G I N E  :                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.BROW.11.4.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20211004102636).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

#20211004121958____:$Z                  setParam            _____NHistogramme             $GRIS_8                                     #
$Z                  setParam            _____NHistogramme             $GRIS_4

$Z                  setParam            _____DemiPave                 0

$Z                  setParam            _____PasHistogramme           2

$Z                  $DELETE             $xTV/HISTOGRAMME$COORD_X
$Z                  $DELETE             $xTV/HISTOGRAMME$COORD_Y

$Z                  set                 NPaQuEtS=$dimX
$Z                  set                 TPaQuEtS=`calculINS $_____NPoints/$NPaQuEtS`

$Z                  $xrv/distance.11$X                                                                                                  \
$Z                                      ne=$_____NPoints                                                                                \
$Z                                      LISTE_X=$xTV/POINTS.2$COORD_X                                                                   \
$Z                                      LISTE_Y=$xTV/POINTS.2$COORD_Y                                                                   \
$Z                                      LISTE_Z=$xTV/POINTS.2$COORD_Z                                                                   \
$Z                                      cumuler_valeurs_resultantes=VRAI moyenner_cumul_valeurs_resultantes=VRAI                  |     \
$Z                  $xrv/un_sur_N.01$X                                                                                                  \
$Z                                      ne=$_____NPoints                                                                                \
$Z                                      fichier==                                                                                       \
$Z                                      taille_paquets=$TPaQuEtS                                                                        \
$Z                                      nombre_paquets=$NPaQuEtS                                                                        \
$Z                                      Men_tete=FAUX                                                                                   \
$Z                                      minimum=FAUX                                                                                    \
$Z                                      maximum=FAUX                                                                                    \
$Z                                      premier=FAUX                                                                                    \
$Z                                      dernier=FAUX                                                                                    \
$Z                                      moyenne=VRAI                                                                                    \
$Z                                      cumul=FAUX                                                                                      \
$Z                                      element_variable=FAUX                                                                           \
$Z                                                                                        >   $xTV/HISTOGRAMME$COORD_Y
$Z                                      # Calcul des moyennes des distances a l'origine...                                            #

$Z                  set                 NPoInTs=`$CA $xTV/HISTOGRAMME$COORD_Y | $WCl`

$Z                  set                 LaRgEuR_H=`calculINS ($Xmax+1-$NPoInTs)/2`
$Z                  set                 Xmin_H=`calculINS $Xmin+$LaRgEuR_H`
$Z                  set                 Xmax_H=`calculINS $Xmax-$LaRgEuR_H`

$Z                  $xci/valeurs_inte$X premiere=1 derniere=$NPoInTs                                                                    \
$Z                                      vD=$Xmin_H vA=$Xmax_H                                                                           \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      entiers=FAUX                                                                                    \
$Z                                                                                        >   $xTV/HISTOGRAMME$COORD_X
$Z                                      # On notera le "entiers=FAUX" ('v $xci/valeurs_inte$K entier=FAUX' a ce propos...).           #

$Z                  $xrv/store_image$X                                                                                                  \
$Z                                      ne=$NPoInTs                                                                                     \
$Z                                      pas=$_____PasHistogramme                                                                        \
$Z                                      Xdenormalisees=VRAI                                                                             \
$Z                                      LISTE_X=$xTV/HISTOGRAMME$COORD_X                                                                \
$Z                                      Ydenormalisees=FAUX                                                                             \
$Z                                      LISTE_Y=$xTV/HISTOGRAMME$COORD_Y                                                                \
$Z                                      demi_pave_XG=$_____DemiPave demi_pave_XD=$_____DemiPave                                         \
$Z                                      demi_pave_YG=$_____DemiPave demi_pave_YD=$_____DemiPave                                         \
$Z                                      epaississement_carre=VRAI                                                                       \
$Z                                      Ndenormalises=VRAI                                                                              \
$Z                                      LISTE_NIVEAU=$_____NHistogramme                                                                 \
$Z                                      histogramme=VRAI histogramme_vertical=VRAI                                                      \
$Z                                      R=$xTV/HISTOGRAMME                                                                              \
$Z                                                                                                                      $formatI
$Z                                      # Generation de l'histogramme des distances...                                                #

$Z        execRVB   $xci/cache$X                                                                                                        \
$Z                                      A=$_____ImageR%s                                                                                \
$Z                                      M=$xTV/HISTOGRAMME                                                                              \
$Z                                      R=$_____ImageR%s                                                                                \
$Z                                                                                                                      $formatI



Copyright © Jean-François Colonna, 2021-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2021-2021.