#######################################################################################################################################
#                                                                                                                                     #
#         L E S   N O M B R E S   P R E M I E R S   S U R   U N E                                                                     #
#         C O U R B E   D E   H I L B E R T   B I D I M E N S I O N N E L L E  :                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PRHI.12.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20241202173102).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____SelectNombres            0
$Z                  setParam            _____TransNombres             0.3
$Z                  setParam            _____FRayon                   0.14
$Z                  setParam            _____ExposantR                1.2
$Z                  setParam            _____FacteurR                 1
$Z                  SETParam            _____CouleursNombres          $NEXIST
$Z                  setParam            _____CourbeFond               "$K_VIDE"

$Z                  set                 _____ParticulePara1="$_____ParticulePara1"" dernier_premier=FAUX"
$Z                  set                 _____ParticulePara1="$_____ParticulePara1"" isoles=VRAI"
$Z                                      # En effet, '$_____ParticulePara1' existe deja 'v $xiirv/.HILB.I1.$U _____ParticulePara1'...  #
$Z                  set                 _____ParticulePara1="$_____ParticulePara1"" $_____CourbeFond"

$Z                  FilSTmpB            FNoMbReS

$Z                  $xci/valeurs_prem$X premiere=1 derniere=$Npart                                                                      \
$Z                                                          >>  $FNoMbReS

$Z                  if                  ($_____SelectNombres == 0) then
$Z                                      $CA                 $FNoMbReS                                                                   \
$Z                                                                              >   $FNoMbReS.1
$Z                                      # Cas ou l'on prend tous les nombres...                                                       #
$Z                  else
$Z                                      $CA                 $FNoMbReS                                                             |     \
$Z                                      $xrv/IFEQ.11$X      ne=0                                                                        \
$Z                                                          fichier1==                                                                  \
$Z                                                          fichier2=$_____SelectNombres                                                \
$Z                                                                              >   $FNoMbReS.1
$Z                                      # Cas ou l'on ne conserve que le nombre '$_____SelectNombres'...                              #
$Z                  endif

$Z                  $CA                 $FNoMbReS.1                                                                               |     \
$Z                  $xrv/normalise.01$X ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                                          >   $FNoMbReS.2

$Z                  $CA                 $FNoMbReS.2                                                                               |     \
$Z                  $xrv/ADD2.11$X      ne=0                                                                                            \
$Z                                      fichier2==                                                                                      \
$Z                                      fichier1=$_____TransNombres                                                               |     \
$Z                  $xrv/MUL2.11$X      ne=0                                                                                            \
$Z                                      fichier2==                                                                                      \
$Z                                      fichier1=`calcul $_____FRayon/($_____Profondeur-1)`                                       |     \
$Z                  $xrv/PUIX.01$X      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      exposant=$_____ExposantR                                                                  |     \
$Z                  $xrv/MUL2.11$X      ne=0                                                                                            \
$Z                                      fichier2==                                                                                      \
$Z                                      fichier1=$_____FacteurR                                                                         \
$Z                                                          >   $FiLeTmP_HILBERT$RAYON
$Z                                      # Generation de la liste des rayons...                                                        #

$Z                  if                  ($_____CouleursNombres == $EXIST) then
$Z                                      $CA                 $FNoMbReS.2                                                           |     \
$Z                                      $xrv/normalise.01$X ne=0                                                                        \
$Z                                                          fichier==                                                                   \
$Z                                                          minimum=$GRIS_1 maximum=$GRIS_8                                             \
$Z                                                          formater=VRAI entiers=VRAI                                                  \
$Z                                                                              >   $FiLeTmP_HILBERT$LUMIN
$Z                                      # Generation de la liste des luminances lorsqu'un coloriage utilisant directement les         #
$Z                                      # decimales est demande...                                                                    #
$Z                  else
$Z                  endif

$Z                  FilSTmpE            FNoMbReS