#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E S   P R E M I E R E S   D E C I M A L E S   D ' U N   N O M B R E   R E E L                 #
#         C O M M E   U N E   M A R C H E   A L E A T O I R E   T R I D I M E N S I O N N E L L 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  :                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.RDNW.a1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20241005120616).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Rho                      0.04

$Z                  setParam            _____ExpansionZ               +1

$Z                  setParam            _____NiveauMinimal            $BLANC
$Z                  setParam            _____NiveauMaximal            $NOIR_PLANCHER

$Z                  FilSTmpB            FiLePoInTs
$Z                  FilSTmpB            FiLeDeCiMaLeS

$Z                  set                 NDeCiMaLeS=`$CA $_____FDecimales | $WCl`

$Z                  IfBasic             ($NDeCiMaLeS != $_____NChiffres) ThenBasic
$Z                                      $xrp/UnChiffreParLigne.01$vv$Z                    $_____FDecimales                        |     \
$Z                                      $HEA                -$_____NChiffres                                                            \
$Z                                                                                                            >> $FiLeDeCiMaLeS
$Z                  ElseBasic
$Z                                      $CA                 $_____FDecimales                                                            \
$Z                                                                                                            >> $FiLeDeCiMaLeS
$Z                                      # Cas ou le fichier '$_____FDecimales' possede deja un chiffre par ligne...                   #
$Z                  EndifBasic

$Z                  unset               NDeCiMaLeS

$Z                  set                 ArGs_UnSuRN="$K_VIDE"
$Z                  set                 ArGs_UnSuRN="$ArGs_UnSuRN"" ne=0"
$Z                  set                 ArGs_UnSuRN="$ArGs_UnSuRN"" fichier=="
$Z                  set                 ArGs_UnSuRN="$ArGs_UnSuRN"" taille=3"
$Z                  set                 ArGs_UnSuRN="$ArGs_UnSuRN"" premier=FAUX dernier=FAUX element_variable=VRAI"
$Z                  set                 ArGs_UnSuRN="$ArGs_UnSuRN"" Men_tete=FAUX"

$Z                  set                 MiNiMuM_XYZ=`calcul -($_____Rho)`
$Z                  set                 MaXiMuM_XYZ=`calcul +($_____Rho)`

$Z                  $CA                 $FiLeDeCiMaLeS                                                                            |     \
$Z                  $xrv/un_sur_N.01$X  $ArGs_UnSuRN                                                                                    \
$Z                                      numero_element_variable=0                                                                 |     \
$Z                  $xrv/normalise.01$X ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      minimum=$MiNiMuM_XYZ maximum=$MaXiMuM_XYZ                                                       \
$Z                                                                                        >  $FiLeDeCiMaLeS$COORD_X

$Z                  $CA                 $FiLeDeCiMaLeS                                                                            |     \
$Z                  $xrv/un_sur_N.01$X  $ArGs_UnSuRN                                                                                    \
$Z                                      numero_element_variable=1                                                                 |     \
$Z                  $xrv/normalise.01$X ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      minimum=$MiNiMuM_XYZ maximum=$MaXiMuM_XYZ                                                       \
$Z                                                                                        >  $FiLeDeCiMaLeS$COORD_Y

$Z                  $CA                 $FiLeDeCiMaLeS                                                                            |     \
$Z                  $xrv/un_sur_N.01$X  $ArGs_UnSuRN                                                                                    \
$Z                                      numero_element_variable=2                                                                 |     \
$Z                  $xrv/normalise.01$X ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      minimum=$MiNiMuM_XYZ maximum=$MaXiMuM_XYZ                                                       \
$Z                                                                                        >  $FiLeDeCiMaLeS$COORD_Z

$Z                  set                 NPoInTsX=`$CA $FiLeDeCiMaLeS$COORD_X | $WCl`
$Z                  set                 NPoInTsY=`$CA $FiLeDeCiMaLeS$COORD_Y | $WCl`
$Z                  set                 NPoInTsZ=`$CA $FiLeDeCiMaLeS$COORD_Z | $WCl`
$Z                  set                 NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ`

$Z                  $CA                 $FiLeDeCiMaLeS$COORD_X                                                                    |     \
$Z                  $xrv/accumule.01$X  ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                                                                        >  $FiLePoInTs$COORD_X

$Z                  $CA                 $FiLeDeCiMaLeS$COORD_Y                                                                    |     \
$Z                  $xrv/accumule.01$X  ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                                                                        >  $FiLePoInTs$COORD_Y

$Z                  $CA                 $FiLeDeCiMaLeS$COORD_Z                                                                    |     \
$Z                  $xrv/accumule.01$X  ne=0                                                                                            \
$Z                                      fichier==                                                                                 |     \
$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      homothetie=$_____ExpansionZ                                                                     \
$Z                                                                                        >  $FiLePoInTs$COORD_Z

$Z                  FilSTmpE            FiLeDeCiMaLeS

$Z                  $xci/valeurs_inte$X premiere=1 derniere=$NPoInTs                                                                    \
$Z                                      vD=$_____NiveauMinimal vA=$_____NiveauMaximal                                                   \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      entiers=VRAI                                                                                    \
$Z                                                                                        >  $FiLePoInTs.Niveau