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

$Z                  setParam            _____Nombre                   $dimX
$Z                                      # Parametre introduit le 20131204091642...                                                    #

$Z                  setParam            _____PremierNombrePair        6
$Z                                      # Parametre introduit le 20131203124646...                                                    #

$Z                  SETParam            _____Local                    $NEXIST
$Z                                      # Parametre introduit le 20131203175932...                                                    #

$Z                  set                 CArGs="normaliser=VRAI eX=FAUX eY=FAUX eZ=FAUX eN=VRAI"

$Z                  setParam            _____NiveauMinimal            `$xci/coordonnees$X $CArGs n=$NOIR_PLANCHER`
$Z                                      # Parametre introduit le 20131205163804...                                                    #

$Z                  setParam            _____NiveauMaximal            `$xci/coordonnees$X $CArGs n=$BLANC`
$Z                                      # Parametre introduit le 20131205163804...                                                    #

$Z                  unset               CArGs

$Z                  setParam            _____Paquets                  20
$Z                                      # Parametre introduit le 20131203175932...                                                    #

$Z                  setParam            _____PMinimum                 `GetParam $xrv/extrema.02$X ponderation_minimum`
$Z                                      # Parametre introduit le 20131203175932...                                                    #

$Z                  setParam            _____PMaximum                 `GetParam $xrv/extrema.02$X ponderation_maximum`
$Z                                      # Parametre introduit le 20131203175932...                                                    #

$Z                  setParam            _____PMoyenne                 `GetParam $xrv/extrema.02$X ponderation_moyenne`
$Z                                      # Parametre introduit le 20131203175932...                                                    #

$Z                  setParam            _____PModule                  `GetParam $xrv/extrema.02$X ponderation_modulee`
$Z                                      # Parametre introduit le 20131203175932...                                                    #

$Z                  setParam            _____PEcartType               `GetParam $xrv/extrema.02$X ponderation_ecart_type`
$Z                                      # Parametre introduit le 20131203175932...                                                    #

$Z                  SETParam            _____Particule                $NEXIST
$Z                                      # Parametre introduit le 20131204092209...                                                    #

$Z                  if                  ($_____Particule == $NEXIST) then
$Z                  SETParam            _____Histogramme              VRAI
$Z                  else
$Z                  setParam            _____Rayon                    0.002
$Z                                      # Parametre introduit le 20131204092209...                                                    #

$Z                  setParam            _____Zoom                     1.0
$Z                                      # Parametre introduit le 20131204092209...                                                    #

$Z                  setParam            _____Palette                  $xiP/arc_ciel.C1
$Z                                      # Parametre introduit le 20131204092209...                                                    #

$Z                  setParam            _____Speculaire               `GetParam $xrv/particule.10$X speculaire`
$Z                                      # Parametre introduit le 20131205093303...                                                    #

$Z                  setParam            _____Couronne                 1
$Z                                      # Parametre introduit le 20131205093303...                                                    #

$Z                  setParam            _____ParticulePara2           "$K_VIDE"
$Z                                      # Parametre introduit le 20131204092209...                                                    #
$Z                  endif

$Z                  FilSTmpB  FDeCoMpOsItIoNs

#20131203153623____:$Z                  @         NoMbReS = $dimX                                                                     #
$Z                  set       NoMbReS=`calculINS 2*2*($_____Nombre/log($_____Nombre))`