#######################################################################################################################################
# #
# V I S U A L I S A T I O N B 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.F1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20221020102021). #
# #
#######################################################################################################################################
$Z setParam _____NNombresP 40
$Z setParam _____MaxNombresP `GetParam $xci/valeurs_Goldbach$X vmnp`
$Z SETParam _____VisualiserN $EXIST
$Z # Parametre introduit le 20221021114953... #
$Z SETParam _____Index FAUX
$Z # Parametre introduit le 20221021140711... #
$Z setParam _____RayonN 0.002
$Z setParam _____RougeN $GRIS_2
$Z setParam _____VerteN $GRIS_2
$Z setParam _____BleueN $GRIS_2
$Z # Parametres introduits le 20221021120524... #
$Z setParam _____RayonMin 0.005
$Z setParam _____RayonMax 0.01
$Z setParam _____Z0 0
$Z setParam _____Zoom 1.20
#20221020105909____:$Z setParam _____Palette $xiP/arc_ciel.C1 #
#20221020114558____:$Z setParam _____Palette $xiP/random.11 #
$Z setParam _____Palette $xiP/random.C2
$Z setParam _____ParticulePara "$K_VIDE"
$Z FilSTmpB FGoLdBaCh
$Z FilSTmpB FCoOrDoNnEes
$Z $xci/valeurs_Goldbach$X \
$Z p=1 d=$_____NNombresP \
$Z valeur_maximale_nombres_premiers=$_____MaxNombresP \
$Z remplacer_nombres_premiers=$_____Index \
$Z edition_sequentielle=VRAI \
$Z conserver_couples_commutes=VRAI | \
$Z $SE -e "s/[=+]/ /g" \
$Z >> $FGoLdBaCh
$Z # Generation du fichier de base... #
$Z set FiRsT=0
$Z set LaSt=`$CA $FGoLdBaCh | $TAI -1 | $AW ' { print $1 } '`
$Z echo "Sont etudies les nombres pairs de $FiRsT a $LaSt."
$Z set MiNiMuMg=$FiRsT
$Z if ($_____Index == "FAUX") then
$Z set MaXiMuMg=$LaSt
$Z else
$Z set MaXiMuMg=`$CA $FGoLdBaCh | $AW ' { print $2 "\n" $3 } ' | $xrv/extrema.01$X ne=0 fichier== Ms=VRAI`
$Z endif
$Z if ($_____VisualiserN == $EXIST) then
$Z @ LaStS2 = $LaSt / 2
$Z $xci/valeurs_inte$X \
$Z p=$FiRsT d=$LaStS2 \
$Z vD=$FiRsT vA=$LaSt \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEes.12.1
$Z $xci/valeurs_inte$X \
$Z p=$FiRsT d=$LaStS2 \
$Z vD=$FiRsT vA=$FiRsT \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEes.12.2
$Z set MaRqUeUr="@"
$Z $PAST $FCoOrDoNnEes.12.1 $FCoOrDoNnEes.12.2 | \
$Z $AW ' { print $1 "'"$MaRqUeUr"'" $2 } ' | \
$Z $R "$MaRqUeUr" "$K_NL" | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z forcer_extrema=VRAI minimum_force=$MiNiMuMg maximum_force=$MaXiMuMg \
$Z > $FCoOrDoNnEes.12$COORD_X
$Z $PAST $FCoOrDoNnEes.12.2 $FCoOrDoNnEes.12.1 | \
$Z $AW ' { print $1 "'"$MaRqUeUr"'" $2 } ' | \
$Z $R "$MaRqUeUr" "$K_NL" | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z forcer_extrema=VRAI minimum_force=$MiNiMuMg maximum_force=$MaXiMuMg \
$Z > $FCoOrDoNnEes.12$COORD_Y
$Z # Construction des fichiers relatifs aux nombres pairs uniquement qui vont apparaitre sous #
$Z # forme de segments de droite d'equation : #
$Z # #
$Z # Y = -X + NombrePair #
$Z # #
$Z set NPointsX=`$CA $FCoOrDoNnEes.12$COORD_X | $WCl`
$Z set NPointsY=`$CA $FCoOrDoNnEes.12$COORD_Y | $WCl`
$Z set NPoints_=`$xcg/MIN2.01$X x=$NPointsX y=$NPointsY`
$Z $xrv/particule.10$X \
$Z npoints=$NPoints_ \
$Z LISTE_X=$FCoOrDoNnEes.12$COORD_X \
$Z LISTE_Y=$FCoOrDoNnEes.12$COORD_Y \
$Z LISTE_Z=$_____Z0 \
$Z LISTE_RAYON=$_____RayonN \
$Z LISTE_ROUGE=$_____RougeN \
$Z LISTE_VERTE=$_____VerteN \
$Z LISTE_BLEUE=$_____BleueN \
$Z ZOOM=$_____Zoom \
$Z Lz=100 \
$Z isoles=FAUX equidistance=VRAI \
$Z N_AU_CARRE=FAUX \
$Z $_____ParticulePara \
$Z chiffres=0 \
$Z R=$xTV/FOND \
$Z $formatI
$Z # Generation des droites obliques de materialisation des entiers... #
$Z set FoNd="fond=VRAI F=$xTV/FOND"
$Z else
$Z set FoNd="$K_VIDE"
$Z endif
$Z $CA $FGoLdBaCh | \
$Z $AW ' { print $2 } ' | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z forcer_extrema=VRAI minimum_force=$MiNiMuMg maximum_force=$MaXiMuMg \
$Z > $FCoOrDoNnEes.11$COORD_X
$Z $CA $FGoLdBaCh | \
$Z $AW ' { print $3 } ' | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z forcer_extrema=VRAI minimum_force=$MiNiMuMg maximum_force=$MaXiMuMg \
$Z > $FCoOrDoNnEes.11$COORD_Y
$Z $CA $FGoLdBaCh | \
$Z $AW ' { print $1 } ' | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z minimum=$_____RayonMin maximum=$_____RayonMax \
$Z > $FCoOrDoNnEes.11$RAYON
$Z # Normalisation des coordonnees (et donc des nombres entiers) dans [0,1]... #
$Z set NPointsX=`$CA $FCoOrDoNnEes.11$COORD_X | $WCl`
$Z set NPointsY=`$CA $FCoOrDoNnEes.11$COORD_Y | $WCl`
$Z set NPoints_=`$xcg/MIN2.01$X x=$NPointsX y=$NPointsY`
#20221020103953____:$Z $xci/valeurs_inte$X \ #
#20221020103953____:$Z p=1 d=$NPoints_ \ #
#20221020103953____:$Z vD=$NOIR vA=$BLANC \ #
#20221020103953____:$Z lineaire=VRAI \ #
#20221020103953____:$Z > $FCoOrDoNnEes.12$NIVEAU #
$Z $CA $FGoLdBaCh | \
$Z $AW ' { print $1 } ' | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z minimum=$NOIR_PLANCHER maximum=$BLANC \
$Z formater=VRAI entiers=VRAI \
$Z > $FCoOrDoNnEes.11$NIVEAU
$Z # Generation des couleurs... #
$Z $xrv/particule.10$X \
$Z npoints=$NPoints_ \
$Z LISTE_X=$FCoOrDoNnEes.11$COORD_X \
$Z LISTE_Y=$FCoOrDoNnEes.11$COORD_Y \
$Z LISTE_Z=$_____Z0 \
$Z LISTE_RAYON=$FCoOrDoNnEes.11$RAYON \
$Z LISTE_NIVEAU=$FCoOrDoNnEes.11$NIVEAU \
$Z p=$_____Palette \
$Z ZOOM=$_____Zoom \
$Z Lz=100 \
$Z isoles=VRAI \
$Z N_AU_CARRE=FAUX \
$Z $FoNd \
$Z $_____ParticulePara \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI
$Z # Visualisation... #
$Z
$Z FilSTmpE FCoOrDoNnEes
$Z FilSTmpE FGoLdBaCh