#######################################################################################################################################
#                                                                                                                                     #
#         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 E   P I                                       #
#         ( O U   D E   T O U T   A U T R E   N O M B R E )                                                                           #
#         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  :                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.Y1.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240604134515).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

#20240606073340____:$Z                  setParam            _____NChiffres                100                                         #
$Z                  setParam            _____NChiffres                `calculINS 2*50`

$Z                  setParam            _____FDecimales               $xrp/Decimales_Base10_Pi_____100000

$Z                  SETParam            _____SupPartieEntiere         $NEXIST

$Z                  setParam            _____Rho                      0.04

$Z                  setParam            _____VRayon                   0.008

$Z                  setParam            _____DistanceMini             0.005

$Z                  setParam            _____Palette                  $xiP/cercle.I5

$Z                  setParam            _____Zoom                     0.6

$Z                  setParam            _____ExpansionZ               +1

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

$Z                  setParam            _____ParticulePara2           "$K_VIDE"

$Z                  FilSTmpB  FiLePoInTs
$Z                  FilSTmpB  FiLeDeCiMaLeS

$Z                  $CA                 $_____FDecimales                                                                          |     \
$Z                  $HEA                -$_____NChiffres                                                                                \
$Z                                                                                                            >  $FiLeDeCiMaLeS.1

$Z                  if                  ($_____SupPartieEntiere == $EXIST) then
$Z                                      $CA                 $FiLeDeCiMaLeS.1                                                      |     \
$Z                                      $SE                 -e "s/^[$Alphabet_0_9]*\.//"                                                \
$Z                                                                                                            >  $FiLeDeCiMaLeS.4
$Z                  else
$Z                                      $CA                 $FiLeDeCiMaLeS.1                                                      |     \
$Z                                      $SE                 -e "s/[,.]//"                                                               \
$Z                                                                                                            >  $FiLeDeCiMaLeS.4
$Z                  endif

$Z                  $CA                 $FiLeDeCiMaLeS.4                                                                          |     \
$Z                  $SE                 -e 's/\\//g'                                                                              |     \
$Z                  $SE                 -e "s/\(.\)/\1@/g"                                                                        |     \
$Z                  $R                  "@" "$K_NL"                                                                               |     \
$Z                  $GRE                -v '^ *$'                                                                                 |     \
$Z                  $HEA                -$_____NChiffres                                                                                \
$Z                                                                                                            >  $FiLeDeCiMaLeS.9


#20240904135904____:$Z                  _____include(_____xiirv/.CheckChiffresDecimales.01._____U)                                    #
$Z                                      # Editions eventuelles introduites le 20240904132839 via '$CheckChiffresDecimales'...         #

$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=2"
$Z                  set       ArGs_UnSuRN="$ArGs_UnSuRN"" Men_tete=FAUX"

$Z                  @                   BaSe10m1 = $Base10 - 1

$Z                  set                 MiN_Theta=0
$Z                  set                 MaX_Theta=$pi

$Z                  set                 MiN_Phi=0
$Z                  set                 MaX_Phi=`$xcg/SCAL.01$X x=$dpi a=$Base10 n=$BaSe10m1`

$Z                  $CA                 $FiLeDeCiMaLeS.9                                                                          |     \
$Z                  $xrv/un_sur_N.01$X  $ArGs_UnSuRN                                                                                    \
$Z                                      premier=VRAI dernier=FAUX                                                                 |     \
$Z                  $SE                                                                                                                 \
$Z                                      -e 's/^.*$'"/$_____Rho/"                                                                        \
$Z                                                                                                            >  $FiLeDeCiMaLeS.9.Rho

$Z                  $CA                 $FiLeDeCiMaLeS.9                                                                          |     \
$Z                  $xrv/un_sur_N.01$X  $ArGs_UnSuRN                                                                                    \
$Z                                      premier=VRAI dernier=FAUX                                                                 |     \
$Z                  $xrv/normalise.01$X ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      minimum=$MiN_Theta maximum=$MaX_Theta                                                           \
$Z                                                                                                            >  $FiLeDeCiMaLeS.9.Theta
$Z                                      # L'angle 'Theta' est dans [0,pi] ('v $xrv/RPT_XYZ.01$K theta.E').                            #

$Z                  $CA                 $FiLeDeCiMaLeS.9                                                                          |     \
$Z                  $xrv/un_sur_N.01$X  $ArGs_UnSuRN                                                                                    \
$Z                                      premier=FAUX dernier=VRAI                                                                 |     \
$Z                  $xrv/normalise.01$X ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      minimum=$MiN_Phi maximum=$MaX_Phi                                                               \
$Z                                                                                                            >  $FiLeDeCiMaLeS.9.Phi
$Z                                      # L'angle 'Phi' devrait etre dans [0,2.pi] ('v $xrv/RPT_XYZ.01$K phi...E'), mais etant        #
$Z                                      # donne que 0 et 2.pi sont confondus sur le cercle trigonometrique, c'est [0,(9/10).(2.pi)]   #
$Z                                      # qu'il faut utiliser...                                                                      #

$Z                  set                 NPoInTsR=`$CA $FiLeDeCiMaLeS.9.Rho | $WCl`
$Z                  set                 NPoInTsT=`$CA $FiLeDeCiMaLeS.9.Theta | $WCl`
$Z                  set                 NPoInTsP=`$CA $FiLeDeCiMaLeS.9.Phi | $WCl`
$Z                  set                 NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsR y=$NPoInTsT z=$NPoInTsP`

$Z                  set       ArGs_RPT_XYZ="$K_VIDE"
$Z                  set       ArGs_RPT_XYZ="$ArGs_RPT_XYZ"" ne=$NPoInTs"
$Z                  set       ArGs_RPT_XYZ="$ArGs_RPT_XYZ"" LISTE_RHO=$FiLeDeCiMaLeS.9.Rho"
$Z                  set       ArGs_RPT_XYZ="$ArGs_RPT_XYZ"" LISTE_THETA=$FiLeDeCiMaLeS.9.Theta"
$Z                  set       ArGs_RPT_XYZ="$ArGs_RPT_XYZ"" LISTE_PHI=$FiLeDeCiMaLeS.9.Phi"

$Z                  $xrv/RPT_XYZ.01$X   $ArGs_RPT_XYZ                                                                                   \
$Z                                      pX=1 pY=0 pZ=0                                                                            |     \
$Z                  $xrv/accumule.01$X  ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                                                                        >  $FiLePoInTs$COORD_X

$Z                  $xrv/RPT_XYZ.01$X   $ArGs_RPT_XYZ                                                                                   \
$Z                                      pX=0 pY=1 pZ=0                                                                            |     \
$Z                  $xrv/accumule.01$X  ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                                                                        >  $FiLePoInTs$COORD_Y

$Z                  $xrv/RPT_XYZ.01$X   $ArGs_RPT_XYZ                                                                                   \
$Z                                      pX=0 pY=0 pZ=1                                                                            |     \
$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