#######################################################################################################################################
#                                                                                                                                     #
#         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.81.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20131208181815).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 LFDeCoMpOsItIoNs=`$CA $FDeCoMpOsItIoNs | $WCl`

$Z                  if                  ($LFDeCoMpOsItIoNs < $_____Nombre) then
$Z                                      echo      "Il n'y a pas assez de nombres premiers, il faut augmenter la marge de securite."
$Z                  else
$Z                  endif

$Z                  if                  (($_____Nombre != $dimX) || ($LFDeCoMpOsItIoNs < $_____Nombre)) then
$Z                                      set       _____Nombre=$LFDeCoMpOsItIoNs
$Z                                      # Le forcage "extreme" du nombre de points a ete introduit le 20131204113435...               #
$Z                  else
$Z                  endif

$Z                  $CA                 $FDeCoMpOsItIoNs                                                                          |     \
$Z                  $HEA                -$_____Nombre                                                                                   \
$Z                                                                              >  $FDeCoMpOsItIoNs.1

#20131204112716____:$Z   set  PrEmIeR=`$CA $FDeCoMpOsItIoNs.1 | $HEA -1 | $SE -e "s/^\([$Alphabet_0_9][$Alphabet_0_9]*\)=.*"'$/\1/'`  #
#20131204112716____:$Z   set  DeRnIeR=`$CA $FDeCoMpOsItIoNs.1 | $TAI -1 | $SE -e "s/^\([$Alphabet_0_9][$Alphabet_0_9]*\)=.*"'$/\1/'`  #

$Z                  set       PrEmIeR=`$CA $FDeCoMpOsItIoNs.1 | $HEA -1 | $SE -e "s/^\([$Alphabet_0_9][$Alphabet_0_9]*\)#.*"'$/\1/'`
$Z                  set       DeRnIeR=`$CA $FDeCoMpOsItIoNs.1 | $TAI -1 | $SE -e "s/^\([$Alphabet_0_9][$Alphabet_0_9]*\)#.*"'$/\1/'`

$Z                  echo      "PremierNombrePair=$PrEmIeR"
$Z                  echo      "DernierNombrePair=$DeRnIeR"

$Z                  $CA                 $FDeCoMpOsItIoNs.1                                                                        |     \
$Z                  $SE                 -e "s/^.*#//"                                                                                   \
$Z                                                                              >  $FDeCoMpOsItIoNs.2

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

$Z                  $xrv/neutre$X       ne=$_____Nombre                                                                                 \
$Z                                      fichier=$FDeCoMpOsItIoNs.2                                                                |     \
$Z                  $xrv/normalise.01$X ne=$_____Nombre                                                                                 \
$Z                                      fichier==                                                                                       \
$Z                                                                              >  $FDeCoMpOsItIoNs$COORD_Y

#20131205163804____:$Z   set  NiVeAu_MiNiMaL=`$xci/coordonnees$X normaliser=VRAI eX=FAUX eY=FAUX eZ=FAUX eN=VRAI n=$NOIR_PLANCHER`    #
#20131205163804____:$Z   set  NiVeAu_MaXiMaL=`$xci/coordonnees$X normaliser=VRAI eX=FAUX eY=FAUX eZ=FAUX eN=VRAI n=$BLANC`            #

$Z                  set       NiVeAu_MiNiMaL=$_____NiveauMinimal
$Z                  set       NiVeAu_MaXiMaL=$_____NiveauMaximal
$Z                                      # Definitions introduites le 20131204144312...                                                #

$Z                  if                  ($_____Local == $NEXIST) then
$Z                                      $xrv/neutre$X       ne=$_____Nombre                                                             \
$Z                                                          fichier=$FDeCoMpOsItIoNs.2                                            |     \
$Z                                      $xrv/normalise.01$X ne=$_____Nombre                                                             \
$Z                                                          fichier==                                                                   \
$Z                                                          origine=$NiVeAu_MiNiMaL extremite=$NiVeAu_MaXiMaL                           \
$Z                                                                                                  >  $FDeCoMpOsItIoNs$NIVEAU
$Z                  else
$Z                                      $xrv/extrema.02$X   ne=$_____Nombre                                                             \
$Z                                                          fichier=$FDeCoMpOsItIoNs.2                                                  \
$Z                                                          paquets=$_____Paquets                                                       \
$Z                                                          ponderation_minimum=$_____PMinimum                                          \
$Z                                                          ponderation_maximum=$_____PMaximum                                          \
$Z                                                          ponderation_moyenne=$_____PMoyenne                                          \
$Z                                                          ponderation_modulee=$_____PModule                                           \
$Z                                                          ponderation_ecart_type=$_____PEcartType                                     \
$Z                                                                                                  >  $FDeCoMpOsItIoNs.P
$Z                                      $xrv/normalise.02$X ne=$_____Nombre                                                             \
$Z                                                          fichier=$FDeCoMpOsItIoNs.2                                                  \
$Z                                                          minima=$NiVeAu_MiNiMaL                                                      \
$Z                                                          maxima=$FDeCoMpOsItIoNs.P                                             |     \
$Z                                      $xrv/normalise.01$X ne=$_____Nombre                                                             \
$Z                                                          fichier==                                                                   \
$Z                                                          origine=$NiVeAu_MiNiMaL extremite=$NiVeAu_MaXiMaL                           \
$Z                                                                                                  >  $FDeCoMpOsItIoNs$NIVEAU
$Z                  endif

$Z                  if                  ($_____Particule == $NEXIST) then
$Z                                      if                  ("$_____Histogramme" == "VRAI") then
$Z                                                          set                 HiStOgRaMmE=VRAI
$Z                                      else
$Z                                                          set                 HiStOgRaMmE=FAUX
$Z                                      endif

$Z                                      $xrv/store_image$X                                                                              \
$Z                                                          ne=$_____Nombre                                                             \
$Z                                                          LISTE_X=$FDeCoMpOsItIoNs$COORD_X                                            \
$Z                                                          LISTE_Y=$FDeCoMpOsItIoNs$COORD_Y                                            \
$Z                                                          LISTE_Z=0                                                                   \
$Z                                                          LISTE_NIVEAU=$FDeCoMpOsItIoNs$NIVEAU                                        \
$Z                                                          standard=VRAI                                                               \
$Z                                                          histogramme=$HiStOgRaMmE                                                    \
$Z                                                          histogramme_horizontal=FAUX histogramme_vertical=$_____Histogramme          \
$Z                                                          R=$_____ImageR                                                              \
$Z                                                                                                                      $formatI
$Z                  else
$Z                                      $xrv/particule.10$X                                                                             \
$Z                                                          npoints=$_____Nombre                                                        \
$Z                                                          LISTE_X=$FDeCoMpOsItIoNs$COORD_X                                            \
$Z                                                          LISTE_Y=$FDeCoMpOsItIoNs$COORD_Y                                            \
$Z                                                          LISTE_Z=0.5                                                                 \
$Z                                                          LISTE_RAYON=$_____Rayon                                                     \
$Z                                                          LISTE_NIVEAU=$FDeCoMpOsItIoNs$NIVEAU                                        \
$Z                                                          niveaux_normalises=VRAI                                                     \
$Z                                                          p=$_____Palette                                                             \
$Z                                                          ZOOM=$_____Zoom                                                             \
$Z                                                          Lz=100                                                                      \
$Z                                                          speculaire=$_____Speculaire                                                 \
$Z                                                          isoles=VRAI                                                                 \
$Z                                                          N_AU_CARRE=FAUX                                                             \
$Z                                                          couronne=$_____Couronne                                                     \
$Z                                                          $_____ParticulePara2                                                        \
$Z                                                          chiffres=0                                                                  \
$Z                                                          R=$_____ImageR                                                              \
$Z                                                                                                                      $formatI
$Z                  endif

$Z                  FilSTmpE  FDeCoMpOsItIoNs