#######################################################################################################################################
# #
# V I S U A L I S A T I O N 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.E2.3.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20201001094513). #
# #
#######################################################################################################################################
$Z setParam _____Rayon 0.004
$Z setParam _____Zoom 0.95
$Z # ATTENTION : cette definition n'est pas en conflit avec 'v $xiirv/.GOLD.81.1.$U _____Zoom' #
$Z # car, en cette derniere est conditionnelle et liee a l'existence de '$_____Particule'... #
$Z setParam _____RotationX 0
$Z setParam _____RotationY 0
$Z setParam _____RotationZ 0
$Z setParam _____Palette $xiP/arc_ciel.C1
$Z setParam _____Speculaire `GetParam $xrv/particule.10$X speculaire`
$Z setParam _____Couronne 1
$Z setParam _____DistanceMin 0.005
$Z setParam _____ParticulePara2 "$K_VIDE"
$Z set FiRsT=`$CA $FDeCoMpOsItIoNs | $HEA -1 | $SE -e 's/=.*$//'`
$Z @ FiRsT2 = $FiRsT / 2
$Z set LaSt=`$CA $FDeCoMpOsItIoNs | $TAI -1 | $SE -e 's/=.*$//'`
$Z @ LaStS2 = $LaSt / 2
$Z @ LaStSN = $LaSt - $FiRsT2
$Z @ LaStS2 = $LaStS2 + $FiRsT2
$Z @ FiRsT2 = $FiRsT2 - $FiRsT2
$Z @ LaStSN = $LaSt + $FiRsT2
$Z # De facon a partir de x=0 et y=0... #
$Z saut
$Z echo "Premier entier pair : $FiRsT"
$Z echo "Dernier entier pair : $LaSt"
$Z saut
$Z $CA $FDeCoMpOsItIoNs | \
$Z $SE -e "s/[=+]/ /g" \
$Z > $FDeCoMpOsItIoNs.2
$Z $CA $FDeCoMpOsItIoNs.2 | \
$Z $AW ' { print $1 } ' | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FDeCoMpOsItIoNs$COORD_X
$Z $CA $FDeCoMpOsItIoNs.2 | \
$Z $AW ' { print $2 } ' | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FDeCoMpOsItIoNs$COORD_Y
$Z # Definition des couples {NombreEntier,NombrePremier1*NombrePremier2}. #
$Z set CoOrD_Z=0.5
$Z $CA $FDeCoMpOsItIoNs.2 | \
$Z $AW ' { print $1 } ' | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z origine=$_____NiveauMinimal extremite=$_____NiveauMaximal \
$Z > $FDeCoMpOsItIoNs$NIVEAU
$Z set NPoints=`$CA $FDeCoMpOsItIoNs | $WCl`
$Z $xrv/particule.10$X \
$Z npoints=$NPoints \
$Z LISTE_X=$FDeCoMpOsItIoNs$COORD_X \
$Z LISTE_Y=$FDeCoMpOsItIoNs$COORD_Y \
$Z LISTE_Z=$CoOrD_Z \
$Z LISTE_RAYON=$_____Rayon \
$Z LISTE_NIVEAU=$FDeCoMpOsItIoNs$NIVEAU \
$Z niveaux_normalises=VRAI \
$Z p=$_____Palette \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationX \
$Z ROTATION_OY=$_____RotationY \
$Z ROTATION_OZ=$_____RotationZ \
$Z Lz=100 \
$Z speculaire=$_____Speculaire \
$Z isoles=VRAI \
$Z N_AU_CARRE=FAUX \
$Z couronne=$_____Couronne \
$Z editer_extrema_hors=FAUX \
$Z $_____ParticulePara2 \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI
$Z # Trace final de la conjecture de Goldbach... #
$Z FilSTmpE FDeCoMpOsItIoNs