#######################################################################################################################################
# #
# 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.21.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20220914171009). #
# #
#######################################################################################################################################
$Z setParam _____Nombre 100000
$Z @ NoMbReS1 = 2
$Z @ NoMbReSN = $_____Nombre
$Z saut
$Z echo "PremierNombreEntier=$NoMbReS1"
$Z echo "DernierNombreEntier=$NoMbReSN"
$Z # Editions introduites le 20220925121946... #
$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=VRAI \
$Z >> $FaCtOrs
$Z set LiStE_PrEmIeRs=`$CA $FaCtOrs | $SE -e "s/^+[^:]*://" -e "s/=//g" | $R "+" "$K_NL" | $SOR -u -n`
$Z set LiStE_NPrEmIeRs=`echo $LiStE_PrEmIeRs | $R "$K_BLANC" "$K_NL" | $NL | $AW ' { print $1 "+" $2 } '`
$Z $CA $FaCtOrs | \
$Z $SE -e 's/:.*$//' \
$Z > $FaCtOrs.NombresEntiers
$Z $CA $FaCtOrs | \
$Z $SE -e "s/^.* \(+[$Alphabet_0_9][$Alphabet_0_9]*\)"'$/\1/' \
$Z > $FaCtOrs.NombresFacteurs
$Z $CA $FaCtOrs | \
$Z $SE -e "s/^+[$Alphabet_0_9][$Alphabet_0_9]*://" \
$Z -e "s/ +[$Alphabet_0_9][$Alphabet_0_9]*"'$//' \
$Z -e "s/=//g" | \
$Z $R "$K_BLANC" "$K_NL" \
$Z > $FaCtOrs.Facteurs
$Z FilSTmpB LiStE_PoInTs
$Z set MiNiMuM_X=`$xci/coordonnees$X normaliser=VRAI abscisse=VRAI x=$Xmin ordonnee=FAUX`
$Z set MaXiMuM_X=`$xci/coordonnees$X normaliser=VRAI abscisse=VRAI x=$Xmax ordonnee=FAUX`
$Z set MiNiMuM_Y=`$xci/coordonnees$X normaliser=VRAI abscisse=FAUX ordonnee=VRAI y=$Ymin`
$Z set MaXiMuM_Y=`$xci/coordonnees$X normaliser=VRAI abscisse=FAUX ordonnee=VRAI y=$Ymax`
$Z $xrv/duplique.01$X ne=0 \
$Z fichier=$FaCtOrs.NombresEntiers \
$Z exemplaires=$FaCtOrs.NombresFacteurs | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z origine=$MiNiMuM_X extremite=$MaXiMuM_X \
$Z > $LiStE_PoInTs$COORD_X
$Z $CA $FaCtOrs.Facteurs | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z origine=$MiNiMuM_Y extremite=$MaXiMuM_Y \
$Z > $LiStE_PoInTs$COORD_Y
$Z FilSTmpB CoNvErSiOn
$Z echo $LiStE_PrEmIeRs | \
$Z $R "$K_BLANC" "$K_NL" \
$Z > $CoNvErSiOn.1
$Z echo $LiStE_NPrEmIeRs | \
$Z $R "$K_BLANC" "$K_NL" \
$Z > $CoNvErSiOn.2
$Z $PAST $CoNvErSiOn.1 $CoNvErSiOn.2 | \
$Z $AW ' { print "s/^" $1 "$""/" $2 "/" } ' \
$Z > $CoNvErSiOn$sed
$Z $CA $FaCtOrs.Facteurs | \
$Z $SE -f $CoNvErSiOn$sed | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z origine=$NOIR_PLANCHER extremite=$BLANC \
$Z formater=VRAI entiers=VRAI \
$Z > $LiStE_PoInTs$NIVEAU
$Z FilSTmpE CoNvErSiOn
$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/store_image$X \
$Z ne=$NPoints_ \
$Z Xnormalisees=VRAI \
$Z LISTE_X=$LiStE_PoInTs$COORD_X \
$Z Ynormalisees=VRAI \
$Z LISTE_Y=$LiStE_PoInTs$COORD_Y \
$Z LISTE_Z=0 \
$Z Ndenormalises=VRAI \
$Z LISTE_NIVEAU=$LiStE_PoInTs$NIVEAU \
$Z standard=VRAI \
$Z R=$_____ImageR \
$Z $formatI
$Z FilSTmpE LiStE_PoInTs
$Z FilSTmpE FaCtOrs