#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E S   N O M B R E S   P R E M I E R S   J U M E A U X  :                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PRJU.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20131202094505).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____Editer                   $NEXIST
$Z                                      # Parametre introduit le 20141204161422...                                                    #

$Z                  SETParam            _____Distance                 2
$Z                                      # Parametre introduit le 20141203103614...                                                    #

$Z                  setParam            _____Niveau23                 $GRIS_1

$Z                  setParam            _____NiveauJ_                 $GRIS_8

$Z                  setParam            _____NiveauNJ                 $GRIS_1

$Z                  FilSTmpB  FNoMbreS_PrEmIeRs

$Z                  @         NoMbReS1 = $dimX + 1

$Z                  $xci/valeurs_Goldbach$X                                                                                             \
$Z                                      premiere=1 derniere=$NoMbReS1                                                                   \
$Z                                      editer_nombres_premiers=VRAI                                                                    \
$Z                                      calculer_decompositions=FAUX                                                                    \
$Z                                                                                        >> $FNoMbreS_PrEmIeRs

$Z                  if                  ($_____Editer == $EXIST) then
$Z                                      echo                "Premier nombre premier="`$HEA -1 $FNoMbreS_PrEmIeRs`
$Z                                      echo                "Dernier nombre premier="`$TAI -1 $FNoMbreS_PrEmIeRs`
$Z                                      # Parametre introduit le 20141204161422...                                                    #
$Z                  else
$Z                  endif

$Z                  @         NoMbReS2 = $dimX

$Z                  $CA                 $FNoMbreS_PrEmIeRs                                                                        |     \
$Z                  $TAI                -$NoMbReS2                                                                                      \
$Z                                                                                        >  $FNoMbreS_PrEmIeRs.1

$Z                  $CA                 $FNoMbreS_PrEmIeRs                                                                        |     \
$Z                  $HEA                -$NoMbReS2                                                                                      \
$Z                                                                                        >  $FNoMbreS_PrEmIeRs.2

$Z                  $xrv/SOUS.11$X      ne=$NoMbReS2                                                                                    \
$Z                                      fichier1=$FNoMbreS_PrEmIeRs.1                                                                   \
$Z                                      fichier2=$FNoMbreS_PrEmIeRs.2                                                                   \
$Z                                                                                        >  $FNoMbreS_PrEmIeRs.12

$Z                  $xci/valeurs_inte$X premiere=1 derniere=$dimX                                                                       \
$Z                                      vD=$Xmin vA=$Xmax                                                                               \
$Z                                      lineaire=VRAI                                                                             |     \
$Z                  $xrv/normalise.01$X ne=$NoMbReS2                                                                                    \
$Z                                      fichier==                                                                                       \
$Z                                                                                        >  $FNoMbreS_PrEmIeRs$COORD_X

$Z                  $xrv/neutre$X       ne=$NoMbReS2                                                                                    \
$Z                                      fichier=$FNoMbreS_PrEmIeRs.12                                                             |     \
$Z                  $xrv/normalise.01$X ne=$NoMbReS2                                                                                    \
$Z                                      fichier==                                                                                       \
$Z                                                                                        >  $FNoMbreS_PrEmIeRs$COORD_Y

$Z                  if                  ($_____Distance != 0) then
$Z                                      # Test introduit le 20141203124634...                                                         #
$Z                                      set                 PNiVeAu="eX=FAUX eY=FAUX eZ=FAUX eN=VRAI normaliser=VRAI"
$Z                                      set                 NiVeAu23=`$xci/coordonnees$X $PNiVeAu N=$_____Niveau23 signe="$K_VIDE"`
$Z                                      set                 NiVeAuJ_=`$xci/coordonnees$X $PNiVeAu N=$_____NiveauJ_ signe="$K_VIDE"`
$Z                                      set                 NiVeAuNJ=`$xci/coordonnees$X $PNiVeAu N=$_____NiveauNJ signe="$K_VIDE"`

$Z                                      $CA                 $FNoMbreS_PrEmIeRs.12                                                 |     \
$Z                                      $SE                                                                                             \
$Z                                                          -e 's/+1$'"/$NiVeAu23/"                                                     \
$Z                                                          -e "s/+$_____Distance"'$'"/$NiVeAuJ_/"                                      \
$Z                                                          -e 's/^+.*$'"/$NiVeAuNJ/"                                                   \
$Z                                                                                                            >  $FNoMbreS_PrEmIeRs.N
$Z                  else
$Z                                      $CA                 $FNoMbreS_PrEmIeRs.12                                                 |     \
$Z                                      $xrv/normalise.01$X                                                                             \
$Z                                                          ne=0                                                                        \
$Z                                                          fichier==                                                                   \
$Z                                                                                                            >  $FNoMbreS_PrEmIeRs.N
$Z                                      # Possibilite introduite le 20141203124634 afin de pouvoir visualiser toutes les distances... #
$Z                  endif

$Z                  $xrv/store_image$X                                                                                                  \
$Z                                      ne=$NoMbReS2                                                                                    \
$Z                                      LISTE_X=$FNoMbreS_PrEmIeRs$COORD_X                                                              \
$Z                                      LISTE_Y=$FNoMbreS_PrEmIeRs$COORD_Y                                                              \
$Z                                      LISTE_Z=0                                                                                       \
$Z                                      LISTE_NIVEAU=$FNoMbreS_PrEmIeRs.N                                                               \
$Z                                      standard=VRAI                                                                                   \
$Z                                      histogramme=VRAI histogramme_horizontal=FAUX histogramme_vertical=VRAI                          \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                                                                      $formatI

$Z                  FilSTmpE  FNoMbreS_PrEmIeRs