#######################################################################################################################################
# #
# D I S P O S I T I O N " H A R M O N I E U S E " D E P O I N T S S U R U N E S P H E R E #
# P A R U N E M E T H O D E D E R E C U I T S I M U L E : #
# #
# #
# Author of '$xiirs/.PSPH.11.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z setParam _____NPoints 8
$Z setParam _____NIterations 100000
$Z setParam _____NVoisins 3
$Z setParam _____Zoom 0.9
$Z setParam _____RotationOX 0
$Z setParam _____RotationOY 0
$Z setParam _____RotationOZ 0
$Z setParam _____DepthCueing 1.0
$Z $DELETE $xTV/COORDONNEES
$Z set Probabilite=`calcul 1.6/$_____NPoints`
$Z # Le parametre '1.6' a ete obtenu experimentalement afin d'obtenir pour 'v $xiirs/PSPH.11', #
$Z # l'apparence d'un ruban de 4 faces a 4 cotes, reunies par 2 ensembles de 2 faces a 3 cotes. #
$Z $xrv/optimise.01$X \
$Z ne=$_____NPoints \
$Z ppp=$Probabilite \
$Z iterations=$_____NIterations \
$Z cartesienneA=FAUX \
$Z cartesienneR=VRAI \
$Z > $xTV/COORDONNEES
$Z $DELETE $xTV/COORDONNEES_01$COORD_X
$Z $DELETE $xTV/COORDONNEES_01$COORD_Y
$Z $DELETE $xTV/COORDONNEES_01$COORD_Z
$Z $CA $xTV/COORDONNEES \
$Z | $SE -e "s/^.* [Xx]=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/COORDONNEES_01$COORD_X
$Z $CA $xTV/COORDONNEES \
$Z | $SE -e "s/^.* [Yy]=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/COORDONNEES_01$COORD_Y
$Z $CA $xTV/COORDONNEES \
$Z | $SE -e "s/^.* [Zz]=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/COORDONNEES_01$COORD_Z
$Z $DELETE $xTV/COORDONNEES
$Z $DELETE $xTV/DISTANCES
$Z $xrv/distance.02$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z LISTE_X=$xTV/COORDONNEES_01$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES_01$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES_01$COORD_Z \
$Z premiers_voisins=VRAI \
$Z N=$_____NVoisins \
$Z > $xTV/DISTANCES
$Z set ListeCouples=`$CA $xTV/DISTANCES | $SE -e "s/^.*couple=//" -e 's/ .*$//' -e "s/[^,$Alphabet_0_9]//g" | $SOR -u`
$Z # Le '$SOR -u' a ete introduit le 20011014100521, depuis que l'option implicite "tri=VRAI" #
$Z # a ete introduite le 20011014091311 dans 'v $xrv/distance.02$K 20011014091311'. #
$Z $DELETE $xTV/DISTANCES
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z foreach Couple ($ListeCouples)
$Z set Couple=`echo $Couple | $R "," "$K_BLANC"`
$Z set CoupleA=$Couple[1]
$Z set CoupleB=$Couple[2]
$Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_X \
$Z extraire=$CoupleA \
$Z >>! $xTV/COORDONNEES$COORD_X
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_X \
$Z extraire=$CoupleB \
$Z >>! $xTV/COORDONNEES$COORD_X
$Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_Y \
$Z extraire=$CoupleA \
$Z >>! $xTV/COORDONNEES$COORD_Y
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_Y \
$Z extraire=$CoupleB \
$Z >>! $xTV/COORDONNEES$COORD_Y
$Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_Z \
$Z extraire=$CoupleA \
$Z >>! $xTV/COORDONNEES$COORD_Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_Z \
$Z extraire=$CoupleB \
$Z >>! $xTV/COORDONNEES$COORD_Z
$Z end
$Z $DELETE $xTV/COORDONNEES_01$COORD_X
$Z $DELETE $xTV/COORDONNEES_01$COORD_Y
$Z $DELETE $xTV/COORDONNEES_01$COORD_Z
$Z set ParticulesX=`$WC $xTV/COORDONNEES$COORD_X`
$Z set ParticulesX=$ParticulesX[$WC1]
$Z set ParticulesY=`$WC $xTV/COORDONNEES$COORD_Y`
$Z set ParticulesY=$ParticulesY[$WC1]
$Z set ParticulesZ=`$WC $xTV/COORDONNEES$COORD_Z`
$Z set ParticulesZ=$ParticulesZ[$WC1]
#20220615105017____:$Z set Particules=`$xcg/MAX3.01$X x=$ParticulesX y=$ParticulesY z=$ParticulesZ` #
$Z set Particules=`$xcg/MIN3.01$X x=$ParticulesX y=$ParticulesY z=$ParticulesZ`
$Z setParam _____Argument "$K_VIDE"
$Z # Parametre introduit le 20120913120355... #
$Z setParam _____Redirection "$K_VIDE"
$Z # Parametre introduit le 20120913120004... #
$Z eval $xrv/particule.10$X \
$Z np=1 \
$Z iterations=$Particules \
$Z AXYZ=1 BXYZ=0 \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \
$Z isoles=FAUX chainer=FAUX \
$Z Pajuster=VRAI Rpoints=4 \
$Z Lz=100 \
$Z Zminimum=$_____DepthCueing Zmaximum=1.0 \
$Z ZminimumT=$_____DepthCueing ZmaximumT=1.0 \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationOX \
$Z ROTATION_OY=$_____RotationOY \
$Z ROTATION_OZ=$_____RotationOZ \
$Z $_____Argument \
$Z chiffres=0 \
$Z R=$_____imagesR \
$Z $formatI \
$Z $_____Redirection
$Z # Le 'eval' a ete introduit le 20120913120004 a cause de l'eventuelle '$_____Redirection'... #
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
Copyright © Jean-François COLONNA, 2019-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2019-2024.