#######################################################################################################################################
# #
# 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.11.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20121014120721). #
# #
#######################################################################################################################################
$Z setParam _____NNombresP 20
$Z SETParam _____VisualiserN $EXIST
$Z # Parametre introduit le 20121018113614... #
$Z setParam _____RayonP1P2 0.015
$Z # Parametre introduit le 20121015111651... #
$Z setParam _____RayonN 0.005
$Z # Parametre introduit le 20121015111651... #
$Z setParam _____Zoom 0.95
$Z # Parametre introduit le 20121018113614 (la valeur par defaut anterieure etant 1.2)... #
$Z setParam _____RotationX `GetParam $xrv/particule.10$X ROTATION_OX`
$Z # Parametre introduit le 20121018113614... #
$Z setParam _____RotationY `GetParam $xrv/particule.10$X ROTATION_OY`
$Z # Parametre introduit le 20121018113614... #
$Z setParam _____RotationZ `GetParam $xrv/particule.10$X ROTATION_OZ`
$Z # Parametre introduit le 20121018113614... #
$Z setParam _____TranslationX `GetParam $xrv/particule.10$X TRANSLATION_OX`
$Z # Parametre introduit le 20121019141533... #
$Z setParam _____TranslationY `GetParam $xrv/particule.10$X TRANSLATION_OY`
$Z # Parametre introduit le 20121019141533... #
$Z setParam _____TranslationZ `GetParam $xrv/particule.10$X TRANSLATION_OZ`
$Z # Parametre introduit le 20121019141533... #
$Z setParam _____ParticulePara2 "$K_VIDE"
$Z # Parametre introduit le 20121019141533... #
$Z FilSTmpB FGoLdBaCh
$Z FilSTmpB FCoOrDoNnEes
$Z
#20121112092951____:$Z $xci/valeurs_Goldbach$X \ #
#20121112092951____:$Z p=1 d=$_____NNombresP \ #
#20121112092951____:$Z edition_sequentielle=VRAI \ #
#20121112092951____:$Z commutativite_addition=FAUX \ #
#20121112092951____:$Z >> $FGoLdBaCh #
$Z
$Z $xci/valeurs_Goldbach$X \
$Z p=1 d=$_____NNombresP \
$Z edition_sequentielle=VRAI \
$Z conserver_couples_commutes=VRAI \
$Z >> $FGoLdBaCh
$Z # Generation du fichier de base... #
$Z
$Z set LoNg1=`$CA $FGoLdBaCh | $WCl`
$Z
$Z $CA $FGoLdBaCh | \
$Z $SE -e "s/[=+]/ /g" | \
$Z $AW ' { print $2 } ' | \
$Z $xrv/neutre$X \
$Z ne=$LoNg1 \
$Z fichier== \
$Z exemplaires=2 \
$Z > $FCoOrDoNnEes.12$COORD_X
$Z $CA $FGoLdBaCh | \
$Z $SE -e "s/[=+]/ /g" | \
$Z $AW ' { print $3 } ' | \
$Z $xrv/neutre$X \
$Z ne=$LoNg1 \
$Z fichier== \
$Z exemplaires=2 \
$Z > $FCoOrDoNnEes.12$COORD_Y
$Z $xrv/neutre$X \
$Z ne=$LoNg1 \
$Z fichier=$_____RayonP1P2 \
$Z exemplaires=2 \
$Z > $FCoOrDoNnEes.12$RAYON
$Z # Construction des fichiers relatifs aux relations : #
$Z # #
$Z # NombrePair = NombrePremier1 + NombrePremier2 #
$Z # #
$Z
$Z set FiRsT=0
$Z set LaSt=`$CA $FGoLdBaCh | $TAI -1 | $SE -e 's/=.*$//'`
$Z @ LaStS2 = $LaSt / 2
$Z echo "Sont etudies les nombres pairs de $FiRsT a $LaSt."
$Z
$Z if ($_____VisualiserN == $EXIST) then
$Z # La possibilite de supprimer la visualisation des nombres entiers N par des segments #
$Z # fut introduite le 20121018113614... #
$Z $xci/valeurs_inte$X \
$Z p=$FiRsT d=$LaStS2 \
$Z vD=$FiRsT vA=$LaSt \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEes.21.1
$Z $xci/valeurs_inte$X \
$Z p=$FiRsT d=$LaStS2 \
$Z vD=$FiRsT vA=$FiRsT \
$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 $CA $FCoOrDoNnEes.21$COORD_X | \
$Z $SE -e 's/^.*$'"/$_____RayonN/" \
$Z > $FCoOrDoNnEes.21$RAYON
$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 else
$Z Fvide $FCoOrDoNnEes.21$COORD_X
$Z Fvide $FCoOrDoNnEes.21$COORD_Y
$Z Fvide $FCoOrDoNnEes.21$RAYON
$Z endif
$Z
$Z $CA $FCoOrDoNnEes.12$COORD_X $FCoOrDoNnEes.21$COORD_X \
$Z > $FCoOrDoNnEes.31$COORD_X
$Z $CA $FCoOrDoNnEes.12$COORD_Y $FCoOrDoNnEes.21$COORD_Y \
$Z > $FCoOrDoNnEes.31$COORD_Y
$Z $CA $FCoOrDoNnEes.12$RAYON $FCoOrDoNnEes.21$RAYON \
$Z > $FCoOrDoNnEes.32$RAYON
$Z # Concatenation des deux types de fichiers... #
$Z
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier=$FCoOrDoNnEes.31$COORD_X \
$Z > $FCoOrDoNnEes.32$COORD_X
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier=$FCoOrDoNnEes.31$COORD_Y \
$Z > $FCoOrDoNnEes.32$COORD_Y
$Z # Normalisation des coordonnees (et donc des nombres entiers) dans [0,1]... #
$Z
$Z set LoNg2=`$CA $FCoOrDoNnEes.32$COORD_X | $WCl`
$Z
$Z $xci/valeurs_inte$X \
$Z p=1 d=$LoNg2 \
$Z vD=$NOIR vA=$BLANC \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEes.32$NIVEAU
$Z # Generation des couleurs... #
$Z
$Z $xrv/particule.10$X \
$Z npoints=$LoNg2 \
$Z LISTE_X=$FCoOrDoNnEes.32$COORD_X \
$Z LISTE_Y=$FCoOrDoNnEes.32$COORD_Y \
$Z LISTE_Z=0.5 \
$Z LISTE_RAYON=$FCoOrDoNnEes.32$RAYON \
$Z LISTE_NIVEAU=$FCoOrDoNnEes.32$NIVEAU \
$Z p=$xiP/arc_ciel.C1 \
$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 equidistance=VRAI \
$Z N_AU_CARRE=FAUX \
$Z $_____ParticulePara2 \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI
$Z # Visualisation... #
$Z # #
$Z # On notera que le 20121018113614, "LISTE_Z=0" a ete remplace par "LISTE_Z=0.5" qui ainsi #
$Z # nous place "au milieu" de l'espace facilitant par la-meme les rotations tridimensionnelles. #
$Z
$Z FilSTmpE FCoOrDoNnEes
$Z FilSTmpE FGoLdBaCh