#######################################################################################################################################
#                                                                                                                                     #
#         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                                       #
#         C O M M E   U N E   M A R C H E   A L E A T O I R E   E N   C O O R D O N N E E S   P O L A I R E S  :                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.11.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20131115170022).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  FileTmpE  FiLeSeD

$Z                  set       _XYZ=0

$Z                  echo                $_XYZ                                                                                           \
$Z                                                                                                  >  $FiLePoInTs$COORD_X
$Z                  echo                $_XYZ                                                                                           \
$Z                                                                                                  >  $FiLePoInTs$COORD_Y

$Z                  $xrv/RPT_XYZ.01$X   ne=$_____NIterations                                                                            \
$Z                                      LISTE_RHO=$_____Rho                                                                             \
$Z                                      LISTE_THETA=$pis2                                                                               \
$Z                                      LISTE_PHI=$FiLePhI                                                                              \
$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   ne=$_____NIterations                                                                            \
$Z                                      LISTE_RHO=$_____Rho                                                                             \
$Z                                      LISTE_THETA=$pis2                                                                               \
$Z                                      LISTE_PHI=$FiLePhI                                                                              \
$Z                                      px=0 py=1 pz=0                                                                            |     \
$Z                  $xrv/accumule.01$X  ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                                                                                  >> $FiLePoInTs$COORD_Y

$Z                  FileTmpE  FiLePhI

$Z                  @         NPoInTs = $_____NIterations + 1

$Z                  $xci/valeurs_inte$X premiere=1 derniere=$NPoInTs                                                                    \
$Z                                      vD=$NOIR_PLANCHER vA=$BLANC                                                                     \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      entiers=VRAI                                                                                    \
$Z                                                                                                  >  $FiLePoInTs.Niveau
$Z                                      # Le parametre "lineaire=VRAI" qui manquait a ete introduit le 20131118135431...              #

$Z                  $xci/valeurs_inte$X premiere=1 derniere=$NPoInTs                                                                    \
$Z                                      vD=$_____Z0 vA=$_____ZN                                                                         \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                                                                                  >  $FiLePoInTs$COORD_Z
$Z                                      # Le parametre "lineaire=VRAI" qui manquait a ete introduit le 20131118135431...              #