#######################################################################################################################################
# #
# 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 #
# A V E C V I S U A L I S A T I O N D E L A S P H E R E : #
# #
# #
# Author of '$xiirs/.PSPH.51.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20080229170120). #
# #
#######################################################################################################################################
$Z SETParam _____Rayon 1.0
$Z setParam _____NPoints 8
$Z setParam _____PBascule 0
$Z # Parametre introduit le 20080303102120... #
$Z setParam _____NIterations 100000
$Z setParam _____Periodes `GetParam $xrv/optimise.02$X periodes`
$Z # Parametre introduit le 20080303104624... #
$Z setParam _____pdi `GetParam $xrv/optimise.02$X pdi`
$Z setParam _____pdf `GetParam $xrv/optimise.02$X pdf`
$Z setParam _____tdi `GetParam $xrv/optimise.02$X tdi`
$Z setParam _____tdf `GetParam $xrv/optimise.02$X tdf`
$Z setParam _____OCubique `GetParam $xrv/optimise.02$X interpolation_cubique`
$Z setParam _____NVoisins 3
$Z setParam _____NPerturbations 1
$Z setParam _____Probabilite `calcul 1.6/$_____NPoints`
$Z # '$_____Probabilite' fut introduit en tant que parametre le 20080304092619... #
$Z # #
$Z # La valeur '1.6' a ete obtenue 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 setParam _____NPVoisinage `GetParam $xrv/optimise.02$X nombre_points_voisinage`
$Z # Parametre introduit le 20080304085854... #
$Z setParam _____PonderationMinimale `GetParam $xrv/optimise.02$X pmi`
$Z setParam _____PonderationMaximale `GetParam $xrv/optimise.02$X pMi`
$Z setParam _____Zoom 0.9
$Z setParam _____RotationOX 0
$Z setParam _____RotationOY 0
$Z setParam _____RotationOZ 0
$Z setParam _____Grossissement `GetParam $xrv/particule.10$X grossissement`
$Z setParam _____DepthCueing 1.0
$Z setParam _____RayonP 0.02
$Z setParam _____CouleurPR $GRIS_8
$Z setParam _____CouleurPV $GRIS_8
$Z setParam _____CouleurPB $GRIS_8
$Z setParam _____RayonS 0.01
$Z setParam _____CouleurSR $GRIS_8
$Z setParam _____CouleurSV $GRIS_5
$Z setParam _____CouleurSB $GRIS_0
$Z $DELETE $xTV/THETA
$Z $DELETE $xTV/PHI
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$_____NPoints \
$Z cubique=FAUX \
$Z vD=0 vA=0 \
$Z > $xTV/THETA
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$_____NPoints \
$Z cubique=FAUX \
$Z vD=0 vA=0 \
$Z > $xTV/PHI
$Z $DELETE $xTV/COORDONNEES
$Z $xrv/optimise.02$X \
$Z ne=$_____NPoints \
$Z LISTE_RHO=$_____Rayon \
$Z LISTE_THETA=$xTV/THETA \
$Z LISTE_PHI=$xTV/PHI \
$Z iterations=$_____NIterations \
$Z periodes=$_____Periodes \
$Z choix_points_aleatoire=VRAI \
$Z probabilite_bascule_choix_points_aleatoire=$_____PBascule \
$Z plus_mauvais_point=FAUX \
$Z nombre_points_a_perturber=$_____NPerturbations \
$Z nombre_points_voisinage=$_____NPVoisinage \
$Z ppp=$_____Probabilite \
$Z pdi=$_____pdi pdf=$_____pdf \
$Z pdi=$_____pdi pdf=$_____pdf \
$Z interpolation_cubique=$_____OCubique \
$Z spheriqueA=VRAI \
$Z spheriqueR=VRAI \
$Z lister_initiale_finale=FAUX \
$Z > $xTV/COORDONNEES
$Z $DELETE $xTV/THETA
$Z $DELETE $xTV/PHI
$Z $CA $xTV/COORDONNEES \
$Z | $GRE " rho=" \
$Z | $AW ' { print $3 } ' \
$Z | $SE -e "s/^.*=//" \
$Z > $xTV/THETA
$Z $CA $xTV/COORDONNEES \
$Z | $GRE " rho=" \
$Z | $AW ' { print $2 } ' \
$Z | $SE -e "s/^.*=//" \
$Z > $xTV/PHI
$Z $DELETE $xTV/COORDONNEES_01$COORD_X
$Z $DELETE $xTV/COORDONNEES_01$COORD_Y
$Z $DELETE $xTV/COORDONNEES_01$COORD_Z
$Z $xrv/RPT_XYZ.01$X \
$Z ne=$_____NPoints \
$Z LISTE_RHO=$_____Rayon \
$Z LISTE_THETA=$xTV/THETA \
$Z LISTE_PHI=$xTV/PHI \
$Z pX=1 pY=0 pZ=0 \
$Z > $xTV/COORDONNEES_01$COORD_X
$Z $xrv/RPT_XYZ.01$X \
$Z ne=$_____NPoints \
$Z LISTE_RHO=$_____Rayon \
$Z LISTE_THETA=$xTV/THETA \
$Z LISTE_PHI=$xTV/PHI \
$Z pX=0 pY=1 pZ=0 \
$Z > $xTV/COORDONNEES_01$COORD_Y
$Z $xrv/RPT_XYZ.01$X \
$Z ne=$_____NPoints \
$Z LISTE_RHO=$_____Rayon \
$Z LISTE_THETA=$xTV/THETA \
$Z LISTE_PHI=$xTV/PHI \
$Z pX=0 pY=0 pZ=1 \
$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