#######################################################################################################################################
#                                                                                                                                     #
#         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.d1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20241019121121).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____mDemiPaveX               20
$Z                  setParam            _____MDemiPaveX               2

$Z                  setParam            _____mDemiPaveY               20
$Z                  setParam            _____MDemiPaveY               2

$Z                  setParam            _____mDemiPaveZ               20
$Z                  setParam            _____MDemiPaveZ               2

$Z                  set                 NPoInTs_DP=`$CA $LiStEPoInTs | $WCl`

$Z                  $xci/valeurs_inte$X p=1 d=$NPoInTs_DP                                                                               \
$Z                                      vD=$_____mDemiPaveX vA=$_____MDemiPaveX                                                         \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      entiers=VRAI                                                                                    \
$Z                                                                                        >  $LiStEPoInTs.dpX

$Z                  $xci/valeurs_inte$X p=1 d=$NPoInTs_DP                                                                               \
$Z                                      vD=$_____mDemiPaveY vA=$_____MDemiPaveY                                                         \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      entiers=VRAI                                                                                    \
$Z                                                                                        >  $LiStEPoInTs.dpY

$Z                  $xci/valeurs_inte$X p=1 d=$NPoInTs_DP                                                                               \
$Z                                      vD=$_____mDemiPaveZ vA=$_____MDemiPaveZ                                                         \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      entiers=VRAI                                                                                    \
$Z                                                                                        >  $LiStEPoInTs.dpZ

$Z                  set                 _____ParamStoreAlbum="$K_VIDE"
$Z                  set                 _____ParamStoreAlbum="$_____ParamStoreAlbum"" LISTE_DEMI_PAVE_X=$LiStEPoInTs.dpX"
$Z                  set                 _____ParamStoreAlbum="$_____ParamStoreAlbum"" LISTE_DEMI_PAVE_Y=$LiStEPoInTs.dpY"
$Z                  set                 _____ParamStoreAlbum="$_____ParamStoreAlbum"" LISTE_DEMI_PAVE_Z=$LiStEPoInTs.dpZ"
$Z                  set                 _____ParamStoreAlbum="$_____ParamStoreAlbum"" epaississement_spherique=VRAI"