#######################################################################################################################################
# #
# V I S U A L I S A T I O N D ' U N E C A R T E D E F R A N C E P L E I N E D E C H I F F R E S : #
# #
# #
# Author of '$xiirv/.FRAN.11.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20250215101553). #
# #
#######################################################################################################################################
$Z setParam _____Z 0.5
$Z setParam _____Zoom 0.95
$Z setParam _____Rayon 0.008
$Z setParam _____Niveau $GRIS_8
$Z setParam _____Palette $xiP/blanc
$Z setParam _____DistanceMini 0.006
$Z setParam _____Taille1 2
$Z setParam _____Taille2 2
#20250220105539____:$Z setParam _____Nombre 4000 #
$Z setParam _____Nombre 3000
$Z setParam _____DeltaXY 0.002
$Z # Parametre introduit le 20250220100456... #
$Z setParam _____GraineC 2001
$Z setParam _____GraineT 1940
$Z setParam _____GraineX 1789
$Z setParam _____GraineY 1947
$Z setParam _____Attenuation 0.25
$Z setParam _____Nconvol `calculINS pow(100+1,2)`
$Z set NPoIntsX_=`$CA $xie/FranceT.11$COORD_X | $WCl`
$Z set NPoIntsY_=`$CA $xie/FranceT.11$COORD_Y | $WCl`
$Z set NPoIntsXY=`$xcg/MIN2.01$X x=$NPoIntsX_ y=$NPoIntsY_`
$Z set _____Nombre=`calculINS pow($_____Nombre,1.0/2.0)`
$Z set _____Nombre=`calculINS pow($_____Nombre,2)`
$Z $xrv/particule.10$X \
$Z nombre_points=$NPoIntsXY \
$Z LISTE_X=$xie/FranceT.11$COORD_X \
$Z LISTE_Y=$xie/FranceT.11$COORD_Y \
$Z LISTE_Z=$_____Z \
$Z AXYZ=1 BXYZ=0 \
$Z LISTE_RAYON=$_____Rayon \
$Z LISTE_NIVEAU=$_____Niveau \
$Z palette=$_____Palette \
$Z ZOOM=$_____Zoom \
$Z isoles=FAUX chainer=VRAI \
$Z ajuster_points=VRAI equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z editer_extrema_hors=FAUX \
$Z Lz=1000 \
$Z chiffres=0 \
$Z R=$_____ImageR.1 \
$Z $formatI
$Z $xci/luminance.01$X \
$Z A=$_____ImageR.1 \
$Z R=$xTV/COTES \
$Z $formatI
$Z $xci/contours.12$X \
$Z A=$xTV/COTES \
$Z X=0.5 Y=0.5 \
$Z R=$xTV/CONTINENT \
$Z $formatI
$Z set NoMbRe_T=$tailleI
$Z set NoMbRe_C=`$xci/comptage$X A=$xTV/CONTINENT origine=$NOIR_PLANCHER extremite=$BLANC Prme=VRAI $formatI`
$Z echo "NombreChiffres="`$xcg/SCAL.01$X x=$_____Nombre n=$NoMbRe_C a=$NoMbRe_T entier=VRAI signe="$K_VIDE"`
$Z FilSTmpB FAlEaToIrEs
$Z set NoMbRe="premiere=1 derniere=$_____Nombre"
$Z $xci/valeurs_alea$X \
$Z $NoMbRe \
$Z inferieur=0 superieur=9 \
$Z graine=$_____GraineC \
$Z entiers=VRAI message_borne_superieure_entiere=FAUX \
$Z signe="$K_VIDE" \
$Z >>! $FAlEaToIrEs.chiffres
$Z set LChIfFrEs=`$CA $FAlEaToIrEs.chiffres`
#20250218183844____:$Z echo "$LChIfFrEs" #
$Z $xci/valeurs_alea$X \
$Z $NoMbRe \
$Z inferieur=$_____Taille1 superieur=$_____Taille2 \
$Z entiers=VRAI message_borne_superieure_entiere=FAUX \
$Z graine=$_____GraineC \
$Z >>! $FAlEaToIrEs.tailles
$Z set LTaIlLeS=`$CA $FAlEaToIrEs.tailles`
$Z set NChIfFrEs=4
#20250220100456____:$Z set BoRnEs="inferieur=0.02 superieur=0.98" #
$Z set BoRnEs="inferieur=-$_____DeltaXY superieur=+$_____DeltaXY"
$Z SformatI
$Z set XY_MaX=`calculINS pow($_____Nombre,1.0/2.0)-1`
$Z XYmaxNe $XY_MaX $XY_MaX
$Z $xci/valeurs_imag$X \
$Z $NoMbRe \
$Z PX=1 PY=0 \
$Z ChiffresFlot=$NChIfFrEs \
$Z $formatI \
$Z >>! $FAlEaToIrEs.1$COORD_X
$Z $xci/valeurs_alea$X \
$Z $NoMbRe \
$Z $BoRnEs \
$Z graine=$_____GraineX \
$Z ChiffresFlot=$NChIfFrEs | \
$Z $xrv/ADD2.11$X \
$Z ne=0 \
$Z fichier1== \
$Z fichier2=$FAlEaToIrEs.1$COORD_X \
$Z >>! $FAlEaToIrEs$COORD_X
$Z set LCoOrDoNnEs_X=`$CA $FAlEaToIrEs$COORD_X`
$Z $xci/valeurs_imag$X \
$Z $NoMbRe \
$Z PX=0 PY=1 \
$Z ChiffresFlot=$NChIfFrEs \
$Z $formatI \
$Z >>! $FAlEaToIrEs.1$COORD_Y
$Z $xci/valeurs_alea$X \
$Z $NoMbRe \
$Z $BoRnEs \
$Z graine=$_____GraineY \
$Z ChiffresFlot=$NChIfFrEs | \
$Z $xrv/ADD2.11$X \
$Z ne=0 \
$Z fichier1== \
$Z fichier2=$FAlEaToIrEs.1$COORD_Y \
$Z >>! $FAlEaToIrEs$COORD_Y
$Z RformatI
$Z set LCoOrDoNnEs_Y=`$CA $FAlEaToIrEs$COORD_Y`
$Z $xci/init$X \
$Z n=$NOIR \
$Z R=$xTV/CHIFFRES \
$Z $formatI
$Z set index=1
$Z while ($index <= $_____Nombre)
$Z $xci/message$X \
$Z A=$xTV/CHIFFRES \
$Z message="$LChIfFrEs[$index]" \
$Z bibliotheque=0 bibliotheque_00_remplacer_0_O=VRAI \
$Z taille=$LTaIlLeS[$index] \
$Z x=$LCoOrDoNnEs_X[$index] y=$LCoOrDoNnEs_Y[$index] \
$Z homothetique=FAUX \
$Z lisere=VRAI \
$Z anti_aliasing=VRAI \
$Z R=$xTV/CHIFFRES \
$Z $formatI
$Z @ index = $index + 1
$Z end
$Z FilSTmpE FAlEaToIrEs
$Z $xci/complement$X \
$Z A=$xTV/CONTINENT \
$Z $formatI | \
$Z $xci/scale$X \
$Z a=$_____Attenuation \
$Z $formatI | \
$Z $xci/convol.01$X \
$Z circulaire=VRAI circulaire_optimale=VRAI \
$Z points=$_____Nconvol \
$Z exclure=VRAI niveau_a_exclure=$NOIR \
$Z $formatI | \
$Z $xci/vraies_C$X \
$Z p=$xiP/cyan.01 \
$Z R=$xTV/OCEAN \
$Z $formatI
$Z execRVB "$xci/and$X \
$Z A1=$xTV/CONTINENT \
$Z A2=$xTV/CHIFFRES \
$Z $formatI | \
$Z $xci/or_02$X \
$Z A1=$_____ImageR.1%s \
$Z $formatI | \
$Z $xci/cache$X \
$Z A=$xTV/OCEAN%s \
$Z anti_aliasing=VRAI \
$Z R=$_____ImageR.2%s \
$Z $formatI"
Copyright © Jean-François COLONNA, 2025-2025.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2025-2025.