#######################################################################################################################################
# #
# R E C H E R C H E D E S P L U S P R O C H E S V O I S I N S : #
# #
# #
# Author of '$xiirk/.REFM.g3.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20191230094746). #
# #
#######################################################################################################################################
$Z setParam _____DistanceEpsilon 10
$Z # Parametre introduit le 20220622102542... #
$Z FilSTmpB FLiStEV
$Z $CA $FLiStEP | \
$Z $SE -e "s/^.* X=//" | \
$Z $AW ' { print $1 } ' \
$Z > $FLiStEV$COORD_X
$Z $CA $FLiStEP | \
$Z $SE -e "s/^.* Y=//" | \
$Z $AW ' { print $1 } ' \
$Z > $FLiStEV$COORD_Y
$Z $CA $FLiStEP | \
$Z $SE -e "s/^.* Z=//" | \
$Z $AW ' { print $1 } ' \
$Z > $FLiStEV$COORD_Z
$Z set NPointsX=`$CA $FLiStEV$COORD_X | $WCl`
$Z set NPointsY=`$CA $FLiStEV$COORD_Y | $WCl`
$Z set NPointsZ=`$CA $FLiStEV$COORD_Z | $WCl`
$Z set NPoints_=`$xcg/MIN3.01$X x=$NPointsX y=$NPointsY z=$NPointsZ`
$Z FilSTmpB FLiStED1
$Z set Args_distance="$K_VIDE"
$Z set Args_distance="$Args_distance"" ne=$NPoints_"
$Z set Args_distance="$Args_distance"" LISTE_X=$FLiStEV$COORD_X"
$Z set Args_distance="$Args_distance"" LISTE_Y=$FLiStEV$COORD_Y"
$Z set Args_distance="$Args_distance"" LISTE_Z=$FLiStEV$COORD_Z"
$Z set Args_distance="$Args_distance"" tousIJ=FAUX"
$Z set Args_distance="$Args_distance"" ChiffresFlot=4"
$Z $xrv/distance.02$X \
$Z $Args_distance \
$Z > $FLiStED1.1
$Z $CA $FLiStED1.1 | \
$Z $SE -e "s/^.* distance=//" | \
$Z $AW ' { print $1 } ' \
$Z > $FLiStED1.2
$Z set DiStAnCe_Min=`$CA $FLiStED1.2 | $xrv/extrema.01$X ne=0 fichier== minimum_seul=VRAI`
$Z set DiStAnCe_Epsi=`$xcg/DIVZ.01$X a=$DiStAnCe_Min b=$_____DistanceEpsilon`
$Z set DiStAnCe_Min1=`$xcg/SOUS.01$X a=$DiStAnCe_Min b=$DiStAnCe_Epsi`
$Z # Le 20220622102542, je note que la definition de '$DiStAnCe_Min1' est assez stupide car #
$Z # en fait une distance ne peut etre inferieure a '$DiStAnCe_Min' par definition. On pourrait #
$Z # donc definir '$DiStAnCe_Min1' avec '$DiStAnCe_Min' tout simplement. Mais je laisse les #
$Z # choses ainsi : on ne sait jamais... #
$Z set DiStAnCe_Min2=`$xcg/ADD2.01$X a=$DiStAnCe_Min b=$DiStAnCe_Epsi`
$Z $xrv/distance.02$X \
$Z $Args_distance \
$Z filtrer_distances=VRAI \
$Z borne_inferieure_distances=$DiStAnCe_Min1 \
$Z borne_superieure_distances=$DiStAnCe_Min2 \
$Z ChiffresFlot=4 \
$Z > $FLiStED1.3
$Z $CA $FLiStED1.3 | \
$Z $SE -e "s/^.* pointI=//" | \
$Z $AW ' { print $1 } ' | \
$Z $SE -e "s/[{}]//g" \
$Z -e "s/,/ /g" \
$Z > $FLiStED1.3I
$Z $CA $FLiStED1.3 | \
$Z $SE -e "s/^.* pointJ=//" | \
$Z $AW ' { print $1 } ' | \
$Z $SE -e "s/[{}]//g" \
$Z -e "s/,/ /g" \
$Z > $FLiStED1.3J
$Z $CA $FLiStED1.3I | \
$Z $AW ' { print $1 } ' \
$Z > $FLiStED1.3I$COORD_X
$Z $CA $FLiStED1.3I | \
$Z $AW ' { print $2 } ' \
$Z > $FLiStED1.3I$COORD_Y
$Z $CA $FLiStED1.3I | \
$Z $AW ' { print $3 } ' \
$Z > $FLiStED1.3I$COORD_Z
$Z $CA $FLiStED1.3J | \
$Z $AW ' { print $1 } ' \
$Z > $FLiStED1.3J$COORD_X
$Z $CA $FLiStED1.3J | \
$Z $AW ' { print $2 } ' \
$Z > $FLiStED1.3J$COORD_Y
$Z $CA $FLiStED1.3J | \
$Z $AW ' { print $3 } ' \
$Z > $FLiStED1.3J$COORD_Z
$Z $PAST $FLiStED1.3I$COORD_X $FLiStED1.3J$COORD_X | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $FLiStED1.4$COORD_X
$Z $PAST $FLiStED1.3I$COORD_Y $FLiStED1.3J$COORD_Y | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $FLiStED1.4$COORD_Y
$Z $PAST $FLiStED1.3I$COORD_Z $FLiStED1.3J$COORD_Z | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $FLiStED1.4$COORD_Z
$Z set _____ParticulePara1="$K_VIDE"
$Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI"
$Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI"
$Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI"
$Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI"
$Z set _____DistanceMini=0.005
$Z set _____NAuCarre=FAUX
$Z set _____Redirection="$K_VIDE"
$Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs"
$Z set NpartX=`$CA $FLiStED1.4$COORD_X | $WCl`
$Z set NpartY=`$CA $FLiStED1.4$COORD_Y | $WCl`
$Z set NpartZ=`$CA $FLiStED1.4$COORD_Z | $WCl`
$Z set Npart_=`$xcg/MIN3.01$X x=$NpartX y=$NpartY z=$NpartZ`
$Z eval $xrv/particule.10$X np=1 iterations=$Npart_ \
$Z LISTE_X=$FLiStED1.4$COORD_X \
$Z LISTE_Y=$FLiStED1.4$COORD_Y \
$Z LISTE_Z=$FLiStED1.4$COORD_Z \
$Z Lz=1000 \
$Z ZOOM=1 \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI \
$Z equidistance=VRAI compatibilite_20051230=FAUX \
$Z distance_minimale=$_____DistanceMini \
$Z cubique=FAUX \
$Z RVB=VRAI \
$Z N_AU_CARRE=$_____NAuCarre \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z $_____ParticulePara1 \
$Z R=$xTV/AGREGAT \
$Z chiffres=0 \
$Z $formatI \
$Z $_____Redirection
$Z FilSTmpE FLiStED1
$Z FilSTmpE FLiStEV