#######################################################################################################################################
# #
# 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.D2.3.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20200929133918). #
# #
#######################################################################################################################################
$Z setParam _____RayonD 0.003
$Z setParam _____NiveauD $GRIS_2
$Z setParam _____Rayon 0.006
$Z setParam _____Zoom 0.90
$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 FilSTmpB FCoOrDoNnEes
$Z $xci/valeurs_inte$X \
$Z p=$FiRsT2 d=$LaStS2 \
$Z vD=$FiRsT2 vA=$LaStSN \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEes.21.1
$Z $xci/valeurs_inte$X \
$Z p=$FiRsT2 d=$LaStS2 \
$Z vD=$FiRsT2 vA=$FiRsT2 \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEes.21.2
$Z set MaRqUeUr="@"
$Z $PAST $FCoOrDoNnEes.21.1 $FCoOrDoNnEes.21.2 | \
$Z $AW ' { print $1 "'"$MaRqUeUr"'" $2 } ' | \
$Z $R "$MaRqUeUr" "$K_NL" \
$Z > $FCoOrDoNnEes.21$COORD_X
$Z $PAST $FCoOrDoNnEes.21.2 $FCoOrDoNnEes.21.1 | \
$Z $AW ' { print $1 "'"$MaRqUeUr"'" $2 } ' | \
$Z $R "$MaRqUeUr" "$K_NL" \
$Z > $FCoOrDoNnEes.21$COORD_Y
$Z # Definition des droites 'x+y=constante' ou 'constante' est un nombre pair... #
$Z $CA $FDeCoMpOsItIoNs | \
$Z $SE -e "s/[=+]/ /g" \
$Z > $FDeCoMpOsItIoNs.2
$Z $CA $FDeCoMpOsItIoNs.2 | \
$Z $AW ' { print $2 } ' \
$Z > $FCoOrDoNnEes.12$COORD_X
$Z $CA $FCoOrDoNnEes.12$COORD_X | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z forcer_extrema=VRAI minimum_force=$FiRsT maximum_force=$LaSt \
$Z > $FDeCoMpOsItIoNs$COORD_X
$Z $CA $FDeCoMpOsItIoNs.2 | \
$Z $AW ' { print $3 } ' \
$Z > $FCoOrDoNnEes.12$COORD_Y
$Z $CA $FCoOrDoNnEes.12$COORD_Y | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z forcer_extrema=VRAI minimum_force=$FiRsT maximum_force=$LaSt \
$Z > $FDeCoMpOsItIoNs$COORD_Y
$Z # Definition des couples de nombres premiers... #
#20200929145409____:$Z $CA $FDeCoMpOsItIoNs.2 | \ #
#20200929145409____:$Z $AW ' { print $1 } ' | \ #
#20200929145409____:$Z $xrv/normalise.01$X ne=0 \ #
#20200929145409____:$Z fichier== \ #
#20200929145409____:$Z > $FDeCoMpOsItIoNs$COORD_Z #
$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 $CA $FCoOrDoNnEes.21$COORD_X \
$Z > $FCoOrDoNnEes.31$COORD_X
$Z $CA $FCoOrDoNnEes.21$COORD_Y \
$Z > $FCoOrDoNnEes.31$COORD_Y
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier=$FCoOrDoNnEes.31$COORD_X \
$Z forcer_extrema=VRAI minimum_force=$FiRsT maximum_force=$LaSt \
$Z > $FCoOrDoNnEes.32$COORD_X
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier=$FCoOrDoNnEes.31$COORD_Y \
$Z forcer_extrema=VRAI minimum_force=$FiRsT maximum_force=$LaSt \
$Z > $FCoOrDoNnEes.32$COORD_Y
$Z set NPointsX_=`$CA $FCoOrDoNnEes.32$COORD_X | $WCl`
$Z set NPointsY_=`$CA $FCoOrDoNnEes.32$COORD_Y | $WCl`
#20220615121255____:$Z set NPointsXY=`$xcg/MAX2.01$X x=$NPointsX_ y=$NPointsY_` #
$Z set NPointsXY=`$xcg/MIN2.01$X x=$NPointsX_ y=$NPointsY_`
$Z $xrv/particule.10$X \
$Z npoints=$NPointsXY \
$Z LISTE_X=$FCoOrDoNnEes.32$COORD_X \
$Z LISTE_Y=$FCoOrDoNnEes.32$COORD_Y \
$Z LISTE_Z=$CoOrD_Z \
$Z LISTE_RAYON=$_____RayonD \
$Z LISTE_ROUGE=$_____NiveauD \
$Z LISTE_VERTE=$_____NiveauD \
$Z LISTE_BLEUE=$_____NiveauD \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationX \
$Z ROTATION_OY=$_____RotationY \
$Z ROTATION_OZ=$_____RotationZ \
$Z Lz=100 \
$Z isoles=FAUX \
$Z Pajuster=VRAI equidistance=VRAI dm=$_____DistanceMin \
$Z N_AU_CARRE=FAUX \
$Z editer_extrema_hors=FAUX \
$Z $_____ParticulePara2 \
$Z chiffres=0 \
$Z R=$xTV/GRILLE \
$Z $formatI
$Z # Trace des droites 'x+y=constante' ou 'constante' est un nombre pair... #
$Z FilSTmpE FCoOrDoNnEes
$Z set _____ParticulePara2="$_____ParticulePara2"" fond=VRAI"
$Z set _____ParticulePara2="$_____ParticulePara2"" F=$xTV/GRILLE"
$Z # Ainsi, les parametres "fond=VRAI F=..." anterieurs sont ignores et donc remplaces par #
$Z # ces deux-ci... #
$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