#######################################################################################################################################
# #
# G E N E R A T I O N D E S R A C I N E S N - I E M E S D E L ' U N I T E : #
# #
# #
# Author of '$xiirc/.RACN.11.3.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20211012165349). #
# #
#######################################################################################################################################
$Z setParam _____ParamParticule1 "$K_VIDE"
$Z setParam _____ParamParticule2 "$K_VIDE"
$Z # Parametres introduits le 20240628172601... #
$Z SETParam _____CouleursArbitraires $EXIST
$Z # Parametre introduit le 20211018160752... #
$Z FilSTmpB FItErAtIoNs
$Z $CA $FTrAjEcToIrEs | \
$Z $GRE -v " iteration=1/" | \
$Z $AW ' { print $1 " " $2 " " $3 } ' | \
$Z $SE -e "s/^[^=]*=//" \
$Z -e "s/[()]//g" \
$Z -e "s/,/ /" \
$Z >> $FItErAtIoNs
$Z # On notera l'elimination de "iteration=1" car, en effet, elle correspond systematiquement a #
$Z # l'origine {0,0} ('v $ximcf/iterations$FON Cegal.suite_point.C_____nombre_complexe__0__0.'). #
$Z set ScAlE=0.60
$Z execRVB $xci/scale$X A=$_____imagesR%s \
$Z a=$ScAlE \
$Z R=$_____imagesR%s \
$Z $formatI
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" coordonnees_dans_0_1=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" AXYZ=1 BXYZ=0"
$Z set ArGuMeNtS="$ArGuMeNtS"" AX=0.5 BX=0.125"
$Z set ArGuMeNtS="$ArGuMeNtS"" AY=0.5 BY=0.125"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_X=$FItErAtIoNs$COORD_X"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_Y=$FItErAtIoNs$COORD_Y"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_Z=$CoOrDoNnEeZ"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_NIVEAU=$FItErAtIoNs$NIVEAU"
$Z set ArGuMeNtS="$ArGuMeNtS"" p=$PaLeTtE_T"
$Z set ArGuMeNtS="$ArGuMeNtS"" Lz=1000"
$Z set ArGuMeNtS="$ArGuMeNtS"" editer_extrema_hors=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" N_au_carre=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" message_N_au_carre=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" fond=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" chiffres=0"
$Z # ATTENTION : il ne faut surtout pas de "ZOOM=1"... #
$Z $CA $FItErAtIoNs | \
$Z $GRE " iteration=2/1 " | \
$Z $AW ' { print $3 } ' \
$Z > $FItErAtIoNs$COORD_X
$Z $CA $FItErAtIoNs | \
$Z $GRE " iteration=2/1 " | \
$Z $AW ' { print $4 } ' \
$Z > $FItErAtIoNs$COORD_Y
$Z if ($_____CouleursArbitraires == $EXIST) then
$Z # Test introduit le 20211018160752... #
$Z if ( ($?T_Xmin == $EXIST) && ($?T_Xmax == $EXIST) \
$Z && ($?T_Ymin == $EXIST) && ($?T_Ymax == $EXIST) \
$Z ) then
$Z set nMaIlLe_X=`calcul (int)(((($T_Xmax-$T_Xmin)/$dimX)/$MaIlLe_X)+1)`
$Z set nMaIlLe_Y=`calcul (int)(((($T_Ymax-$T_Ymin)/$dimY)/$MaIlLe_Y)+1)`
$Z set FaCtN=`calculINS $nMaIlLe_X*$nMaIlLe_Y`
$Z else
$Z set FaCtN=`calculINS $BLANC/(((1/$MaIlLe_X)+1)*((1/$MaIlLe_Y)+1))`
$Z endif
$Z $CA $FItErAtIoNs | \
$Z $GRE " iteration=2/1 " | \
$Z $AW ' { print $1 } ' | \
$Z $xrv/MUL2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=$FaCtN \
$Z > $FItErAtIoNs$NIVEAU
$Z else
$Z $xrv/load_image$X ne=0 \
$Z Xnormalisees=VRAI \
$Z LISTE_X=$FItErAtIoNs$COORD_X \
$Z Ynormalisees=VRAI \
$Z LISTE_Y=$FItErAtIoNs$COORD_Y \
$Z A=$SaVe_____imagesR \
$Z Ndenormalises=VRAI \
$Z > $FItErAtIoNs$NIVEAU
$Z set NItEr1_=`$CA $FTrAjEcToIrEs | $GRE "/1 " | $AW ' { print $2 } ' | $SOR -u | $WCl`
$Z set NItEr2_=`$CA $FTrAjEcToIrEs | $GRE "/2 " | $AW ' { print $2 } ' | $SOR -u | $WCl`
$Z set NItEr12=`$xcg/MIN2.01$X a=$NItEr1_ b=$NItEr2_ signe="$K_VIDE"`
$Z set NExEmPlAiReS=`calculINS 2*$NItEr12`
$Z # Le "2*" vient du fait qu'il y a 2 coordonnees {$COORD_X,$COORD_Y} par point... #
$Z $xrv/neutre$X ne=0 \
$Z fichier=$FItErAtIoNs$NIVEAU \
$Z exemplaires=$NExEmPlAiReS \
$Z > $FItErAtIoNs$NIVEAU.1
$Z endif
$Z set NpointsX=`$CA $FItErAtIoNs$COORD_X | $WCl`
$Z set NpointsY=`$CA $FItErAtIoNs$COORD_Y | $WCl`
$Z set NpointsN=`$CA $FItErAtIoNs$NIVEAU | $WCl`
#20220615102948____:$Z set Npoints=`$xcg/MAX3.01$X x=$NpointsX y=$NpointsY z=$NpointsN` #
$Z set Npoints=`$xcg/MIN3.01$X x=$NpointsX y=$NpointsY z=$NpointsN`
$Z $xrv/particule.10$X np=1 iterations=$Npoints \
$Z $ArGuMeNtS \
$Z isoles=VRAI chainer=FAUX \
$Z Vrayon=`calcul 2*$GrOsSiSsEmEnT*$RaYoN` \
$Z $_____ParamParticule1 \
$Z F=$_____imagesR \
$Z R=$_____imagesR \
$Z $formatI
$Z # ATTENTION : il ne faut surtout pas de "ZOOM=1"... #
$Z $DELETE $FItErAtIoNs$NIVEAU
$Z $DELETE $FItErAtIoNs$COORD_X
$Z $DELETE $FItErAtIoNs$COORD_Y
$Z if ($_____CouleursArbitraires == $EXIST) then
$Z # Test introduit le 20211018160752... #
$Z $CA $FItErAtIoNs | \
$Z $AW ' { print $1 } ' | \
$Z $xrv/MUL2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=$FaCtN \
$Z > $FItErAtIoNs$NIVEAU
$Z else
$Z $DELETE $FItErAtIoNs$NIVEAU
$Z $xrv/neutre$X ne=0 \
$Z fichier=$FItErAtIoNs$NIVEAU.1 \
$Z > $FItErAtIoNs$NIVEAU
$Z endif
$Z $CA $FItErAtIoNs | \
$Z $AW ' { print $3 } ' \
$Z > $FItErAtIoNs$COORD_X
$Z $CA $FItErAtIoNs | \
$Z $AW ' { print $4 } ' \
$Z > $FItErAtIoNs$COORD_Y
$Z set NpointsX=`$CA $FItErAtIoNs$COORD_X | $WCl`
$Z set NpointsY=`$CA $FItErAtIoNs$COORD_Y | $WCl`
$Z set NpointsN=`$CA $FItErAtIoNs$NIVEAU | $WCl`
#20220615102948____:$Z set Npoints=`$xcg/MAX3.01$X x=$NpointsX y=$NpointsY z=$NpointsN` #
$Z set Npoints=`$xcg/MIN3.01$X x=$NpointsX y=$NpointsY z=$NpointsN`
$Z $xrv/particule.10$X np=1 iterations=$Npoints \
$Z $ArGuMeNtS \
$Z isoles=FAUX chainer=FAUX \
$Z Pajuster=VRAI equidistance=VRAI \
$Z distance_minimale=0.002 \
$Z grossissement=$GrOsSiSsEmEnT \
$Z Vrayon=$RaYoN \
$Z $_____ParamParticule2 \
$Z F=$_____imagesR \
$Z R=$_____imagesR \
$Z $formatI
$Z # ATTENTION : il ne faut surtout pas de "ZOOM=1"... #
$Z FilSTmpE FItErAtIoNs