#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   T R I D I M E N S I O N N E L L E   D E   L A   C O N J E C T U R E   D E   G O L D B A C H  :  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.GOLD.B1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20161019101023).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____NNombresP                21

$Z                  setParam            _____RayonN                   0.015

$Z                  setParam            _____Zoom                     0.75

$Z                  setParam            _____RotationX                `GetParam $xrv/particule.10$X ROTATION_OX`

$Z                  setParam            _____RotationY                `GetParam $xrv/particule.10$X ROTATION_OY`

$Z                  setParam            _____RotationZ                `GetParam $xrv/particule.10$X ROTATION_OZ`

$Z                  setParam            _____TranslationX             `GetParam $xrv/particule.10$X TRANSLATION_OX`

$Z                  setParam            _____TranslationY             `GetParam $xrv/particule.10$X TRANSLATION_OY`

$Z                  setParam            _____TranslationZ             `GetParam $xrv/particule.10$X TRANSLATION_OZ`

$Z                  setParam            _____Palette                  $xiP/arc_ciel.C1

$Z                  setParam            _____DistanceMini             0.002

$Z                  setParam            _____NAuCarre                 VRAI

$Z                  setParam            _____ParticulePara2           "$K_VIDE"

$Z                  FilSTmpB            FGoLdBaCh

$Z                  $xci/valeurs_Goldbach$X                                                                                             \
$Z                                      p=1 d=$_____NNombresP                                                                           \
$Z                                      editer_nombres_premiers=VRAI                                                                    \
$Z                                      calculer_decompositions=FAUX                                                                    \
$Z                                      index_premier_nombre_premier=1                                                                  \
$Z                                                                              >> $FGoLdBaCh
$Z                                      # Generation du fichier de base contenant les nombres premiers a partir de 3 (et non pas de   #
$Z                                      # de 2 qui est le seul nombre premier pair et qui s'il est ajoute a d'autres nombres premiers #
$Z                                      # (sauf lui-meme...) donne alors des nombres impairs (ce qui est ennuyeux en ce qui concerne  #
$Z                                      # la conjecture de Goldbach...).                                                              #

$Z                  set                 NNoMbReS=`$CA $FGoLdBaCh | $WCl`

$Z                  set                 PaRaMeTrEs="$K_VIDE"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" ne=$NNoMbReS"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" fichier1=$FGoLdBaCh"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" fichier2=$FGoLdBaCh"

$Z                  $xrv/ADD2Tenso.01$X                                                                                                 \
$Z                                      a=1 b=0                                                                                         \
$Z                                      $PaRaMeTrEs                                                                               |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      exemplaires=2                                                                                   \
$Z                                                                              >  $FGoLdBaCh$COORD_X
$Z                                      # Definition de l'axe 'OX' donnant le premier nombre premier 'P1'.                            #

$Z                  $xrv/ADD2Tenso.01$X                                                                                                 \
$Z                                      a=0 b=1                                                                                         \
$Z                                      $PaRaMeTrEs                                                                               |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      exemplaires=2                                                                                   \
$Z                                                                              >  $FGoLdBaCh$COORD_Y
$Z                                      # Definition de l'axe 'OY' donnant le deuxieme nombre premier 'P2'.                           #

$Z                  $xrv/ADD2Tenso.01$X                                                                                                 \
$Z                                      a=0 b=0                                                                                         \
$Z                                      $PaRaMeTrEs                                                                               |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      exemplaires=1                                                                                   \
$Z                                                                              >  $FGoLdBaCh.1$COORD_Z

$Z                  $xrv/ADD2Tenso.01$X                                                                                                 \
$Z                                      a=1 b=1                                                                                         \
$Z                                      $PaRaMeTrEs                                                                               |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      exemplaires=1                                                                                   \
$Z                                                                              >  $FGoLdBaCh.2$COORD_Z

$Z                  $PAST               $FGoLdBaCh.1$COORD_Z $FGoLdBaCh.2$COORD_Z                                                 |     \
$Z                  $AW                 ' { print $1 "\n" $2 } '                                                                        \
$Z                                                                              >  $FGoLdBaCh$COORD_Z
$Z                                      # Definition de l'axe 'OZ' donnant le nombre pair courant (=P1+P2).                           #

$Z                  $xrv/ADD2Tenso.01$X                                                                                                 \
$Z                                      a=1 b=1                                                                                         \
$Z                                      $PaRaMeTrEs                                                                               |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      origine=$NOIR_PLANCHER extremite=$BLANC                                                         \
$Z                                      formater=VRAI entier=VRAI                                                                       \
$Z                                      exemplaires=2                                                                                   \
$Z                                                                              >  $FGoLdBaCh$LUMIN
$Z                                      # Definition du coloriage avec le nombre pair courant (=P1+P2).                               #

$Z                  set       NPointsX=`$CA $FGoLdBaCh$COORD_X | $WCl`
$Z                  set       NPointsY=`$CA $FGoLdBaCh$COORD_Y | $WCl`
$Z                  set       NPointsZ=`$CA $FGoLdBaCh$COORD_Z | $WCl`
#20220615104653____:$Z                  set       NPointsXYZ=`$xcg/MAX3.01$X x=$NPointsX y=$NPointsY z=$NPointsZ entier=VRAI`         #
$Z                  set       NPointsXYZ=`$xcg/MIN3.01$X x=$NPointsX y=$NPointsY z=$NPointsZ entier=VRAI`

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      npoints=$NPointsXYZ                                                                             \
$Z                                      LISTE_X=$FGoLdBaCh$COORD_X                                                                      \
$Z                                      LISTE_Y=$FGoLdBaCh$COORD_Y                                                                      \
$Z                                      LISTE_Z=$FGoLdBaCh$COORD_Z                                                                      \
$Z                                      LISTE_RAYON=$_____RayonN                                                                        \
$Z                                      LISTE_NIVEAU=$FGoLdBaCh$LUMIN                                                                   \
$Z                                      palette=$_____Palette                                                                           \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      ROTATION_OX=$_____RotationX                                                                     \
$Z                                      ROTATION_OY=$_____RotationY                                                                     \
$Z                                      ROTATION_OZ=$_____RotationZ                                                                     \
$Z                                      TRANSLATION_OX=$_____TranslationX                                                               \
$Z                                      TRANSLATION_OY=$_____TranslationY                                                               \
$Z                                      TRANSLATION_OZ=$_____TranslationZ                                                               \
$Z                                      Lz=100                                                                                          \
$Z                                      isoles=FAUX                                                                                     \
$Z                                      ajuster_points=VRAI equidistance=VRAI                                                           \
$Z                                      distance_minimale=$_____DistanceMini                                                            \
$Z                                      N_AU_CARRE=FAUX                                                                                 \
$Z                                      $_____ParticulePara2                                                                            \
$Z                                      N_AU_CARRE=$_____NAuCarre                                                                       \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      editer_mauvais_encadrement_niveaux_interpoles=FAUX                                              \
$Z                                      chiffres=0                                                                                      \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                                                                      $formatI
$Z                                      # Visualisation...                                                                            #

$Z                  FilSTmpE            FGoLdBaCh