#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E S   N O M B R E S   " F R I A B L E S "  :                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.NFRI.61.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20220922121248).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____RVB                      $NEXIST

$Z                  setParam            _____Nombre                   100000

$Z                  setParam            _____K                        2

#20220923110458____:$Z                  setParam            _____NiveauN                  $GRIS_2                                     #
$Z                  setParam            _____NiveauN                  $GRIS_1
$Z                  setParam            _____NiveauK                  $GRIS_8

#20220923110458____:$Z                  setParam            _____Palette                  $xiP/cercle.35                              #
$Z                  setParam            _____Palette                  $xiP/cercle.N5

$Z                  @                   NoMbReS1 = 2
$Z                  @                   NoMbReSN = $_____Nombre

$Z                  saut
$Z                  echo                "PremierNombreEntier=$NoMbReS1"
$Z                  echo                "DernierNombreEntier=$NoMbReSN"
$Z                                      # Editions introduites le 20220925122106...                                                   #
$Z                  saut

$Z                  set                 HoMoThEtIe=`$xcg/INVZ.01$X x=$NoMbReSN`

$Z                  FilSTmpB            FaCtOrs

$Z                  $xci/valeurs_prem$X                                                                                                 \
$Z                                      premiere=$NoMbReS1 derniere=$NoMbReSN                                                           \
$Z                                      editer_diviseurs=VRAI                                                                           \
$Z                                      editer_nombres=VRAI                                                                             \
$Z                                      diviseurs_premiers=VRAI                                                                         \
$Z                                      multiplicite_diviseurs_premiers=FAUX                                                            \
$Z                                      editer_fonction=FAUX                                                                            \
$Z                                      editer_somme_diviseurs=FAUX                                                               |     \
$Z                  $SE                 -e 's/  *$//'                                                                                   \
$Z                                                                                        >> $FaCtOrs

$Z                  $CA                 $FaCtOrs                                                                                  |     \
$Z                  $SE                 -e 's/:.*$//'                                                                                   \
$Z                                                                                        >  $FaCtOrs.NombresEntiers

$Z                  $CA                 $FaCtOrs                                                                                  |     \
$Z                  $GRE                "=+$_____K"'$'                                                                            |     \
$Z                  $SE                 -e 's/:.*$//'                                                                                   \
$Z                                                                                        >  $FaCtOrs.NombresKFriables

$Z                  FilSTmpB            LiStE_PoInTs

$Z                  $xrv/neutre$X       ne=0                                                                                            \
$Z                                      fichier=$FaCtOrs.NombresEntiers                                                                 \
$Z                                                                                        >  $LiStE_PoInTs$COORD_X

$Z                  $xrv/neutre$X       ne=0                                                                                            \
$Z                                      fichier=$FaCtOrs.NombresEntiers                                                                 \
$Z                                                                                        >  $LiStE_PoInTs$COORD_Y

$Z                  set                 NPointsX=`$CA $LiStE_PoInTs$COORD_X | $WCl`
$Z                  set                 NPointsY=`$CA $LiStE_PoInTs$COORD_Y | $WCl`
$Z                  set                 NPoints_=`$xcg/MAX2.01$X x=$NPointsX y=$NPointsY`

$Z                  $xrv/neutre$X       ne=$NPoints_                                                                                    \
$Z                                      fichier=$_____NiveauN                                                                           \
$Z                                                                                        >  $LiStE_PoInTs$NIVEAU

$Z                  $xrv/store_image$X                                                                                                  \
$Z                                      ne=$NPoints_                                                                                    \
$Z                                      Xdenormalisees=VRAI                                                                             \
$Z                                      LISTE_X=$LiStE_PoInTs$COORD_X                                                                   \
$Z                                      Ydenormalisees=VRAI                                                                             \
$Z                                      LISTE_Y=$LiStE_PoInTs$COORD_Y                                                                   \
$Z                                      LISTE_Z=0                                                                                       \
$Z                                      Ndenormalises=VRAI                                                                              \
$Z                                      LISTE_NIVEAU=$LiStE_PoInTs$NIVEAU                                                               \
$Z                                      histogramme=VRAI                                                                                \
$Z                                      standard=VRAI                                                                                   \
$Z                                      R=$xTV/HISTOGRAMME.N                                                                            \
$Z                                                                                                  $formatI

$Z                  FilSTmpE            LiStE_PoInTs

$Z                  FilSTmpB            LiStE_PoInTs

$Z                  $xrv/neutre$X       ne=0                                                                                            \
$Z                                      fichier=$FaCtOrs.NombresKFriables                                                               \
$Z                                                                                        >  $LiStE_PoInTs$COORD_X

$Z                  $xrv/neutre$X       ne=0                                                                                            \
$Z                                      fichier=$FaCtOrs.NombresKFriables                                                               \
$Z                                                                                        >  $LiStE_PoInTs$COORD_Y

$Z                  set                 NPointsX=`$CA $LiStE_PoInTs$COORD_X | $WCl`
$Z                  set                 NPointsY=`$CA $LiStE_PoInTs$COORD_Y | $WCl`
$Z                  set                 NPoints_=`$xcg/MAX2.01$X x=$NPointsX y=$NPointsY`

$Z                  $xrv/neutre$X       ne=$NPoints_                                                                                    \
$Z                                      fichier=$_____NiveauK                                                                           \
$Z                                                                                        >  $LiStE_PoInTs$NIVEAU

$Z                  $xrv/store_image$X                                                                                                  \
$Z                                      ne=$NPoints_                                                                                    \
$Z                                      Xdenormalisees=VRAI                                                                             \
$Z                                      LISTE_X=$LiStE_PoInTs$COORD_X                                                                   \
$Z                                      Ydenormalisees=VRAI                                                                             \
$Z                                      LISTE_Y=$LiStE_PoInTs$COORD_Y                                                                   \
$Z                                      LISTE_Z=0                                                                                       \
$Z                                      Ndenormalises=VRAI                                                                              \
$Z                                      LISTE_NIVEAU=$LiStE_PoInTs$NIVEAU                                                               \
$Z                                      histogramme=VRAI                                                                                \
$Z                                      standard=VRAI                                                                                   \
$Z                                      R=$xTV/HISTOGRAMME.K                                                                            \
$Z                                                                                                  $formatI

$Z                  FilSTmpE            LiStE_PoInTs

$Z                  $xci/cache$X                                                                                                        \
$Z                                      A=$xTV/HISTOGRAMME.N                                                                            \
$Z                                      M=$xTV/HISTOGRAMME.K                                                                            \
$Z                                      R=$xTV/HISTOGRAMME                                                                              \
$Z                                                                                                  $formatI

$Z                  FilSTmpE            FaCtOrs

$Z                  IfBasic             ($_____RVB == $NEXIST) ThenBasic
$Z                                      # Test introduit le 20220920104236...                                                         #
$Z                                      $xci/neutre$X                                                                                   \
$Z                                                          A=$xTV/HISTOGRAMME                                                          \
$Z                                                          R=$_____ImageR                                                              \
$Z                                                                                                                      $formatI
$Z                  ElseBasic
$Z                                      set                 SaVe_DimX=$dimX

$Z                                      ext                 Shu 0

$Z                                      @                   MaIlLe_X = $dimX / $SaVe_DimX

$Z                                      $xci/vraies_C$X                                                                                 \
$Z                                                          A=$xTV/HISTOGRAMME                                                          \
$Z                                                          p=$_____Palette                                                             \
$Z                                                          R=$xTV/HISTOGRAMME                                                          \
$Z                                                                                                                      $formatI

$Z                                      $xci/grille.01$X                                                                                \
$Z                                                          A=$NOIR                                                                     \
$Z                                                          barres_horizontales=FAUX barres_verticales=VRAI                             \
$Z                                                          mx=$MaIlLe_X                                                                \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/complement$X                                                                               \
$Z                                                          R=$xTV/BARRES                                                               \
$Z                                                                                                                      $formatI

$Z                            execRVB   $xci/and$X                                                                                      \
$Z                                                          A1=$xTV/HISTOGRAMME%s                                                       \
$Z                                                          A2=$xTV/BARRES                                                              \
$Z                                                          R=$_____ImageR%s                                                            \
$Z                                                                                                                      $formatI
$Z                  EndifBasic