#######################################################################################################################################
#                                                                                                                                     #
#         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/.PRIM.L2.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20221107101901).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____TransDecimales           1

$Z                  setParam            _____ExposantR                1

$Z                  setParam            _____Profondeur1              2
$Z                  setParam            _____Profondeur2              6

$Z                  setParam            _____FRayon1                  0.0800
$Z                  setParam            _____FRayon2                  0.0160

$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                  set                 _____PartN=`calcul $Npart+1`

$Z                  saut
$Z                  echo                "PremierNombreEntier=$_____Part0"
$Z                  echo                "DernierNombreEntier=`calcul $Npart+$_____Part0-1`"
$Z                  saut

$Z                  set                 PaRa_1=`calcul ($_____FRayon2-$_____FRayon1)`
$Z                  set                 PaRa_2=`calcul ($_____Profondeur2-$_____Profondeur1)`
$Z                  set                 PaRa_3=`calcul ($_____FRayon1*$_____Profondeur2)-($_____FRayon2*$_____Profondeur1)`
$Z                  set                 PaRa_A=`calcul $PaRa_1/$PaRa_2`
$Z                  set                 PaRa_B=`calcul $PaRa_3/$PaRa_2`
$Z                                      # Afin que les '$RAYON's soient aussi fonction de '$_____Profondeur'...                       #

$Z                  $xci/valeurs_prem$X                                                                                                 \
$Z                                      premiere=$_____Part0 derniere=$_____PartN                                                       \
$Z                                      editer_diviseurs=VRAI                                                                           \
$Z                                      diviseurs_premiers=VRAI                                                                         \
$Z                                      multiplicite_diviseurs_premiers=VRAI                                                            \
$Z                                      signe="$K_VIDE"                                                                           |     \
$Z                  $SE                 -e "s/^.* \([$Alphabet_0_9]*\) *"'$/\1/'                                                        \
$Z                                      -e 's/^[^1].*$/0/'                                                                              \
$Z                                      -e 's/^1..*$/0/'                                                                          |     \
$Z                  $xrv/ADD2.11$X      ne=0                                                                                            \
$Z                                      fichier2==                                                                                      \
$Z                                      fichier1=$_____TransDecimales                                                             |     \
$Z                  $xrv/MUL2.11$X      ne=0                                                                                            \
$Z                                      fichier2==                                                                                      \
$Z                                      fichier1=`calcul (($PaRa_A*$_____Profondeur)+$PaRa_B)/2`                                  |     \
$Z                  $xrv/PUIX.01$X      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      exposant=$_____ExposantR                                                                        \
$Z                                                          >   $FiLeTmP_HILBERT$RAYON
$Z                                      # Generation de la liste des rayons...                                                        #

$Z                  $CA                 $FiLeTmP_HILBERT$RAYON                                                                    |     \
$Z                  $xrv/normalise.01$X ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      origine=$GRIS_4 extremite=$GRIS_8                                                               \
$Z                                                          >   $FiLeTmP_HILBERT$LUMIN
$Z                                      # Generation de la liste des niveaux a utiliser pour acceder a la palette '$_____Palette'...    #