#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E  :                                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PRIM.4.22.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        set                 Nombres=`$xcg/ABSO.01$X x=$RacPointsXY entier=VRAI signe="$K_VIDE"`
$Z        @                   Nombres = $Nombres + $Part0
$Z        @                   Nombres = $Nombres - 1
$Z        set                 PartN=`$xcg/MUL2.01$X x=$Nombres y=$Nombres signe="$K_VIDE"`
$Z        @                   PartN = $PartN + $Part0
$Z        @                   PartN = $PartN - 1

$Z        @                   PointsXY = $PartN - $Part0
$Z        @                   PointsXY = $PointsXY + 1

$Z        $DELETE             $xTV/DIVISEURS

$Z        $xci/valeurs_prem$X                                                                                                           \
$Z                            premiere=$Part0                                                                                           \
$Z                            derniere=$Nombres                                                                                         \
$Z                            diviseurs=VRAI                                                                                            \
$Z                                                                                                  >   $xTV/DIVISEURS

$Z        set  ListeNombres=`$xci/valeurs_inte$X premiere=$Part0 derniere=$Nombres cubique=FAUX vD=$Part0 vA=$Nombres signe="$K_VIDE"`

$Z        foreach   Nombre1   ($ListeNombres)
$Z                  foreach   Nombre2   ($ListeNombres)
$Z                            set       Diviseurs1=`$GRE "=+$Nombre1"'  *[^ ][^ ]*$' $xTV/DIVISEURS | $SE -e 's/  *[^ ][^ ]*$//'`
$Z                            set       Diviseurs2=`$GRE "=+$Nombre2"'  *[^ ][^ ]*$' $xTV/DIVISEURS | $SE -e 's/  *[^ ][^ ]*$//'`
$Z                            set       DCommuns=`echo "$Diviseurs1 $Diviseurs2" | $R "$K_BLANC" "$K_NL" | $SOR | $UNI -d | $WC`
$Z                            set       DCommuns=$DCommuns[$WC1]
$Z                            @         DCommuns = $DCommuns + 1
$Z                                      # Cette incrementation est destinee a faire que les nombres premiers entre-eux (n'ayant donc  #
$Z                                      # que le nombre 1 comme diviseur commun) soient caracterises par un niveau egal a 2, ce qui   #
$Z                                      # va donc les rendre visuellement identiques aux nombres premiers des images qui visualisent  #
$Z                                      # ces derniers...                                                                             #

$Z                            echo      $DCommuns                                                                                       \
$Z                                                                                                  >>! $xTV/NIVEAUX

$Z                            unset     Diviseurs1
$Z                            unset     Diviseurs2
$Z                            unset     DCommuns
$Z                  end
$Z        end

$Z        unset     Nombre1
$Z        unset     Nombre2
$Z        unset     ListeNombres
$Z        unset     Nombres

$Z        $DELETE             $xTV/DIVISEURS