#######################################################################################################################################
# #
# S E L E C T I O N D E S P A R T I C U L E S P R O C H E S D E S " C O I N S " D A N S #
# U N M I L I E U D E P R O P A G A T I O N C O R R E S P O N D A N T #
# A L A C A R T E D E D E N S I T E T R I D I M E N S I O N N E L L E #
# D E S B R O N C H I O L E S T E R M I N A L E S D E S P O U M O N S #
# A V E C A J U S T E M E N T A U T O M A T I Q U E : #
# #
# #
# Author of '$xiird/.ACIN.K.16.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z SETParam _____Dimension 3
$Z # La dimension (du milieu principalement...) a ete introduite le 20020404141011. #
$Z setParam _____DEuclidienne VRAI
$Z SETParam _____DupliquerP FAUX
$Z # Le 'SET' est destine a permettre le 'if(...)' qui suit... #
$Z SETParam _____KeepNAISSANCE $NEXIST
$Z # La possibilite de laisser '$xTV/NAISSANCE' inchange a ete introduite le 20160502153444... #
$Z set vMinimumX=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_X | $GRE '^minimum=' | $SE -e 's/^.*=//'`
$Z set vMaximumX=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_X | $GRE '^maximum=' | $SE -e 's/^.*=//'`
$Z set vMinimumY=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Y | $GRE '^minimum=' | $SE -e 's/^.*=//'`
$Z set vMaximumY=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Y | $GRE '^maximum=' | $SE -e 's/^.*=//'`
$Z set vMinimumZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Z | $GRE '^minimum=' | $SE -e 's/^.*=//'`
$Z set vMaximumZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Z | $GRE '^maximum=' | $SE -e 's/^.*=//'`
$Z # Definition des extrema des coordonnees selon les trois axes {OX,OY,OZ} : #
$Z # #
$Z # {vMinimumX,vMaximumX} #
$Z # {vMinimumY,vMaximumY} #
$Z # {vMinimumZ,vMaximumZ} #
$Z # #
$Z if ($_____DupliquerP == FAUX) then
$Z # Ce test a ete ajoute le 20020216105232 afin d'assurer la compatibilite anterieure (par #
$Z # exemple avec la sequence 'v _____xivPdf_14_1/013825_014336'). #
$Z set MinimumX=$vMinimumX
$Z set MaximumX=$vMaximumX
$Z set MinimumY=$vMinimumY
$Z set MaximumY=$vMaximumY
$Z set MinimumZ=$vMinimumZ
$Z set MaximumZ=$vMaximumZ
$Z else
$Z if ($_____Dimension == 3) then
$Z set MinimumX=$UMinX
$Z set MaximumX=$UMaxX
$Z # Pour '$xie/labyrinth_5x5x5.04_2_032179_032306.ACIN.G.densite$GZIP' ou equivalent "cubique". #
$Z else
$Z set MinimumX=$vMinimumX
$Z set MaximumX=$vMaximumX
$Z # Pour '$xie/labyrinth_9x6x1.14_1_035891_036018.ACIN.g.densite$GZIP' ou equivalent "plat". #
$Z endif
$Z if ($_____Dimension == 3) then
$Z set MinimumY=$UMinY
$Z set MaximumY=$UMaxY
$Z # Pour '$xie/labyrinth_5x5x5.04_2_032179_032306.ACIN.G.densite$GZIP' ou equivalent "cubique". #
$Z else
$Z set MinimumY=$vMinimumY
$Z set MaximumY=$vMaximumY
$Z # Pour '$xie/labyrinth_9x6x1.14_1_035891_036018.ACIN.g.densite$GZIP' ou equivalent "plat". #
$Z endif
$Z if ($_____Dimension == 3) then
$Z set MinimumZ=$UMinZ
$Z set MaximumZ=$UMaxZ
$Z # Pour '$xie/labyrinth_5x5x5.04_2_032179_032306.ACIN.G.densite$GZIP' ou equivalent "cubique". #
$Z else
$Z set MinimumZ=$vMinimumZ
$Z set MaximumZ=$vMaximumZ
$Z # Pour '$xie/labyrinth_9x6x1.14_1_035891_036018.ACIN.g.densite$GZIP' ou equivalent "plat". #
$Z endif
$Z # Ceci est destine a assurer la compatibilite avec les calculs de distance effectues dans #
$Z # 'v $xiird/.ACIN.H.12.$U liste_points' pour generer 'v _____xivPdf_14_1/019791_020302'. #
$Z endif
$Z $DELETE $xTV/DISTANCES_mmm
$Z $DELETE $xTV/DISTANCES_Mmm
$Z $DELETE $xTV/DISTANCES_mMm
$Z $DELETE $xTV/DISTANCES_MMm
$Z $DELETE $xTV/DISTANCES_mmM
$Z $DELETE $xTV/DISTANCES_MmM
$Z $DELETE $xTV/DISTANCES_mMM
$Z $DELETE $xTV/DISTANCES_MMM
$Z # Notations : dans ce qui suit "m" designe le "Minimum" et "M" le "Maximum". Ainsi, les #
$Z # huit combinaisons {mmm,Mmm,mMm,MMm,mmM,MmM,mMM,MMM} representent respectivement les huit #
$Z # sommets d'un certain parallelepipede (par exemple l'Univers ou bien, plus souvent, la #
$Z # "boite" obtenue en prenant les extrema des coordonnees {X,Y,Z}). #
$Z $xrv/distance.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \
$Z X0=$MinimumX \
$Z Y0=$MinimumY \
$Z Z0=$MinimumZ \
$Z euclidienne=$_____DEuclidienne \
$Z > $xTV/DISTANCES_mmm
$Z $xrv/distance.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \
$Z X0=$MaximumX \
$Z Y0=$MinimumY \
$Z Z0=$MinimumZ \
$Z euclidienne=$_____DEuclidienne \
$Z > $xTV/DISTANCES_Mmm
$Z $xrv/distance.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \
$Z X0=$MinimumX \
$Z Y0=$MaximumY \
$Z Z0=$MinimumZ \
$Z euclidienne=$_____DEuclidienne \
$Z > $xTV/DISTANCES_mMm
$Z $xrv/distance.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \
$Z X0=$MaximumX \
$Z Y0=$MaximumY \
$Z Z0=$MinimumZ \
$Z euclidienne=$_____DEuclidienne \
$Z > $xTV/DISTANCES_MMm
$Z $xrv/distance.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \
$Z X0=$MinimumX \
$Z Y0=$MinimumY \
$Z Z0=$MaximumZ \
$Z euclidienne=$_____DEuclidienne \
$Z > $xTV/DISTANCES_mmM
$Z $xrv/distance.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \
$Z X0=$MaximumX \
$Z Y0=$MinimumY \
$Z Z0=$MaximumZ \
$Z euclidienne=$_____DEuclidienne \
$Z > $xTV/DISTANCES_MmM
$Z $xrv/distance.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \
$Z X0=$MinimumX \
$Z Y0=$MaximumY \
$Z Z0=$MaximumZ \
$Z euclidienne=$_____DEuclidienne \
$Z > $xTV/DISTANCES_mMM
$Z $xrv/distance.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \
$Z X0=$MaximumX \
$Z Y0=$MaximumY \
$Z Z0=$MaximumZ \
$Z euclidienne=$_____DEuclidienne \
$Z > $xTV/DISTANCES_MMM
$Z # Le 20160419113841 je note que les fichiers '$xTV/DISTANCES_???' donnent les distances de #
$Z # chaque particule aux huit sommets {mmm,Mmm,mMm,MMm,mmM,MmM,mMM,MMM} d'un parallelepipede #
$Z # (qui peut etre l'Univers), mais je n'arrive pas a comprendre a quoi cela sert. En fait, #
$Z # le 20160419125328, j'ai compris : c'est pour les sequences telle 'v $xiad/ACIN.O1$R16' #
$Z # dans lesquelles certaines particules situees en certains "coins" de la structure sont #
$Z # coloriees de facons variees afin de pouvoir les suivre facilement au cours du temps... #
$Z setParam _____Marqueur_ext 0
$Z # On notera que '$_____Marqueur_ext' doit etre inferieur a tous les '$_____Marqueur_???' qui #
$Z # suivent a cause de l'utilisation de '$xrv/MAX2.11$X' et de '$xrv/MAX3.11$X' ci-apres... #
$Z # #
$Z # Le marquage "ext" est destine a reperer ce qui n'est pas de l'un des types : #
$Z # #
$Z # {mmm,Mmm,mMm,MMm,mmM,MmM,mMM,MMM} #
$Z # #
$Z # suivant celui qui est teste. #
$Z setParam _____Distance_mmm_i 0.0
$Z if ($_____DupliquerP == FAUX) then
$Z # Ce test a ete ajoute le 20020216105232 afin d'assurer la compatibilite anterieure (par #
$Z # exemple avec la sequence 'v _____xivPdf_14_1/013825_014336'). #
$Z setParam _____Distance_mmm_s 0.4
$Z else
$Z set _____Distance_mmm_s=`$xcg/DOUB.01$X x=$_____DupliquerPS`
$Z # Ceci est destine a assurer la compatibilite avec les calculs de distance effectues dans #
$Z # 'v $xiird/.ACIN.H.12.$U liste_points' pour generer 'v _____xivPdf_14_1/019791_020302'. #
$Z # Le 'DOUB(...)' est detine a passer des echelles de type [0,1] des images aux echelles #
$Z # de l'univers qui sont plutot du type [-e,+e], en notant que malheureusement, dans ce #
$Z # second cas, elles ne sont pas les memes sur les 3 axes. Ce doublement est donc assez #
$Z # approximatif... #
$Z endif
$Z if ($_____DupliquerP == FAUX) then
$Z set _____Distance_XYZ_s=0.25
$Z else
$Z set _____Distance_XYZ_s=0.75
$Z endif
$Z setParam _____Marqueur_mmm 1
$Z setParam _____Distance_Mmm_i 0.0
$Z setParam _____Distance_Mmm_s $_____Distance_XYZ_s
$Z setParam _____Marqueur_Mmm 2
$Z setParam _____Distance_mMm_i 0.0
$Z setParam _____Distance_mMm_s $_____Distance_XYZ_s
$Z setParam _____Marqueur_mMm 3
$Z setParam _____Distance_MMm_i 0.0
$Z setParam _____Distance_MMm_s $_____Distance_XYZ_s
$Z setParam _____Marqueur_MMm 4
$Z setParam _____Distance_mmM_i 0.0
$Z if ($?_____Distance_mmM_s == $NEXIST) then
$Z if ($_____Dimension == 3) then
$Z set _____Distance_mmM_s=$_____Distance_XYZ_s
$Z else
$Z set _____Distance_mmM_s=$_____Distance_mmm_s
$Z endif
$Z else
$Z endif
$Z setParam _____Marqueur_mmM 5
$Z setParam _____Distance_MmM_i 0.0
$Z setParam _____Distance_MmM_s $_____Distance_XYZ_s
$Z setParam _____Marqueur_MmM 6
$Z setParam _____Distance_mMM_i 0.0
$Z setParam _____Distance_mMM_s $_____Distance_XYZ_s
$Z setParam _____Marqueur_mMM 7
$Z setParam _____Distance_MMM_i 0.0
$Z setParam _____Distance_MMM_s $_____Distance_XYZ_s
$Z setParam _____Marqueur_MMM 8
$Z $DELETE $xTV/SELECTEUR_mmm
$Z $DELETE $xTV/SELECTEUR_Mmm
$Z $DELETE $xTV/SELECTEUR_mMm
$Z $DELETE $xTV/SELECTEUR_MMm
$Z $DELETE $xTV/SELECTEUR_mmM
$Z $DELETE $xTV/SELECTEUR_MmM
$Z $DELETE $xTV/SELECTEUR_mMM
$Z $DELETE $xTV/SELECTEUR_MMM
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____Distance_mmm_i maximum=$_____Distance_mmm_s \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____Marqueur_ext \
$Z valeur_intermediaire=$_____Marqueur_mmm \
$Z valeur_superieure=$_____Marqueur_ext \
$Z fichier=$xTV/DISTANCES_mmm \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_mmm
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____Distance_Mmm_i maximum=$_____Distance_Mmm_s \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____Marqueur_ext \
$Z valeur_intermediaire=$_____Marqueur_Mmm \
$Z valeur_superieure=$_____Marqueur_ext \
$Z fichier=$xTV/DISTANCES_Mmm \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_Mmm
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____Distance_mMm_i maximum=$_____Distance_mMm_s \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____Marqueur_ext \
$Z valeur_intermediaire=$_____Marqueur_mMm \
$Z valeur_superieure=$_____Marqueur_ext \
$Z fichier=$xTV/DISTANCES_mMm \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_mMm
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____Distance_MMm_i maximum=$_____Distance_MMm_s \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____Marqueur_ext \
$Z valeur_intermediaire=$_____Marqueur_MMm \
$Z valeur_superieure=$_____Marqueur_ext \
$Z fichier=$xTV/DISTANCES_MMm \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_MMm
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____Distance_mmM_i maximum=$_____Distance_mmM_s \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____Marqueur_ext \
$Z valeur_intermediaire=$_____Marqueur_mmM \
$Z valeur_superieure=$_____Marqueur_ext \
$Z fichier=$xTV/DISTANCES_mmM \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_mmM
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____Distance_MmM_i maximum=$_____Distance_MmM_s \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____Marqueur_ext \
$Z valeur_intermediaire=$_____Marqueur_MmM \
$Z valeur_superieure=$_____Marqueur_ext \
$Z fichier=$xTV/DISTANCES_MmM \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_MmM
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____Distance_mMM_i maximum=$_____Distance_mMM_s \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____Marqueur_ext \
$Z valeur_intermediaire=$_____Marqueur_mMM \
$Z valeur_superieure=$_____Marqueur_ext \
$Z fichier=$xTV/DISTANCES_mMM \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_mMM
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____Distance_MMM_i maximum=$_____Distance_MMM_s \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____Marqueur_ext \
$Z valeur_intermediaire=$_____Marqueur_MMM \
$Z valeur_superieure=$_____Marqueur_ext \
$Z fichier=$xTV/DISTANCES_MMM \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_MMM
$Z $DELETE $xTV/DISTANCES_mmm
$Z $DELETE $xTV/DISTANCES_Mmm
$Z $DELETE $xTV/DISTANCES_mMm
$Z $DELETE $xTV/DISTANCES_MMm
$Z $DELETE $xTV/DISTANCES_mmM
$Z $DELETE $xTV/DISTANCES_MmM
$Z $DELETE $xTV/DISTANCES_mMM
$Z $DELETE $xTV/DISTANCES_MMM
$Z $DELETE $xTV/SELECTEUR_1
$Z $DELETE $xTV/SELECTEUR_2
$Z $DELETE $xTV/SELECTEUR_3
$Z $DELETE $xTV/SELECTEUR
$Z $xrv/MAX3.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier1=$xTV/SELECTEUR_mmm \
$Z fichier2=$xTV/SELECTEUR_Mmm \
$Z fichier3=$xTV/SELECTEUR_mMm \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_1
$Z $xrv/MAX3.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier1=$xTV/SELECTEUR_MMm \
$Z fichier2=$xTV/SELECTEUR_mmM \
$Z fichier3=$xTV/SELECTEUR_MmM \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_2
$Z $xrv/MAX2.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier1=$xTV/SELECTEUR_mMM \
$Z fichier2=$xTV/SELECTEUR_MMM \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_3
$Z $xrv/MAX3.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier1=$xTV/SELECTEUR_1 \
$Z fichier2=$xTV/SELECTEUR_2 \
$Z fichier3=$xTV/SELECTEUR_3 \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR
$Z $DELETE $xTV/SELECTEUR_1
$Z $DELETE $xTV/SELECTEUR_2
$Z $DELETE $xTV/SELECTEUR_3
$Z $DELETE $xTV/SELECTEUR_mmm
$Z $DELETE $xTV/SELECTEUR_Mmm
$Z $DELETE $xTV/SELECTEUR_mMm
$Z $DELETE $xTV/SELECTEUR_MMm
$Z $DELETE $xTV/SELECTEUR_mmM
$Z $DELETE $xTV/SELECTEUR_MmM
$Z $DELETE $xTV/SELECTEUR_mMM
$Z $DELETE $xTV/SELECTEUR_MMM
$Z setParam _____CouleurRVB_ext $GRIS_4
$Z setParam _____DateN_ext 0
$Z setParam _____Rayon_ext 0.8
$Z setParam _____CouleurR_ext $_____CouleurRVB_ext
$Z setParam _____CouleurV_ext $_____CouleurRVB_ext
$Z setParam _____CouleurB_ext $_____CouleurRVB_ext
$Z setParam _____DateN_mmm 0
$Z setParam _____Rayon_mmm 2.0
$Z setParam _____CouleurR_mmm $GRIS_8
$Z setParam _____CouleurV_mmm $GRIS_8
$Z setParam _____CouleurB_mmm $GRIS_8
$Z setParam _____DateN_Mmm $_____DateN_ext
$Z setParam _____Rayon_Mmm $_____Rayon_ext
$Z setParam _____CouleurR_Mmm $_____CouleurR_ext
$Z setParam _____CouleurV_Mmm $_____CouleurV_ext
$Z setParam _____CouleurB_Mmm $_____CouleurB_ext
$Z setParam _____DateN_mMm $_____DateN_ext
$Z setParam _____Rayon_mMm $_____Rayon_ext
$Z setParam _____CouleurR_mMm $_____CouleurR_ext
$Z setParam _____CouleurV_mMm $_____CouleurV_ext
$Z setParam _____CouleurB_mMm $_____CouleurB_ext
$Z setParam _____DateN_MMm $_____DateN_ext
$Z setParam _____Rayon_MMm $_____Rayon_ext
$Z setParam _____CouleurR_MMm $_____CouleurR_ext
$Z setParam _____CouleurV_MMm $_____CouleurV_ext
$Z setParam _____CouleurB_MMm $_____CouleurB_ext
$Z setParam _____DateN_mmM $_____DateN_ext
$Z setParam _____Rayon_mmM $_____Rayon_ext
$Z setParam _____CouleurR_mmM $_____CouleurR_ext
$Z setParam _____CouleurV_mmM $_____CouleurV_ext
$Z setParam _____CouleurB_mmM $_____CouleurB_ext
$Z setParam _____DateN_MmM $_____DateN_ext
$Z setParam _____Rayon_MmM $_____Rayon_mmm
$Z setParam _____CouleurR_MmM $GRIS_8
$Z setParam _____CouleurV_MmM $GRIS_0
$Z setParam _____CouleurB_MmM $GRIS_6
$Z setParam _____DateN_mMM $_____DateN_ext
$Z setParam _____Rayon_mMM $_____Rayon_mmm
$Z setParam _____CouleurR_mMM $GRIS_8
$Z setParam _____CouleurV_mMM $GRIS_7
$Z setParam _____CouleurB_mMM $GRIS_0
$Z setParam _____DateN_MMM $_____DateN_ext
$Z setParam _____Rayon_MMM $_____Rayon_mmm
$Z setParam _____CouleurR_MMM $GRIS_0
$Z setParam _____CouleurV_MMM $GRIS_8
$Z setParam _____CouleurB_MMM $GRIS_6
$Z # ATTENTION, la sequence : #
$Z # #
$Z # xivPdf 14 1 / 012801_013312 #
$Z # #
$Z # a ete generee alors, que par erreur, le parametre '$_____CouleurB_MMM' valait '$GRIS_4' #
$Z # ci-dessus, ce qui est incompatible avec 'v $xiird/.ACIN.K.15.$U _____DistanceEBm'. Le #
$Z # descripteur de cette sequence ('v _____xivPdf_14_1/012801_013312 _____CouleurB_MMM') a #
$Z # ete modifie en consequence apres remplacement de '$GRIS_4' par '$GRIS_6' ci-dessus... #
$Z if ($_____KeepNAISSANCE == $NEXIST) then
$Z # Test introduit le 20160502153444... #
$Z $DELETE $xTV/NAISSANCE_1
$Z $CA $xTV/SELECTEUR \
$Z | $SE -e "s/^$_____Marqueur_ext"'$'"/$_____DateN_ext/" \
$Z -e "s/^$_____Marqueur_mmm"'$'"/$_____DateN_mmm/" \
$Z -e "s/^$_____Marqueur_Mmm"'$'"/$_____DateN_Mmm/" \
$Z -e "s/^$_____Marqueur_mMm"'$'"/$_____DateN_mMm/" \
$Z -e "s/^$_____Marqueur_MMm"'$'"/$_____DateN_MMm/" \
$Z -e "s/^$_____Marqueur_mmM"'$'"/$_____DateN_mmM/" \
$Z -e "s/^$_____Marqueur_MmM"'$'"/$_____DateN_MmM/" \
$Z -e "s/^$_____Marqueur_mMM"'$'"/$_____DateN_mMM/" \
$Z -e "s/^$_____Marqueur_MMM"'$'"/$_____DateN_MMM/" \
$Z > $xTV/NAISSANCE_1
$Z $DELETE $xTV/NAISSANCE_2
$Z $xrv/MUL2.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier1=$xTV/NAISSANCE_1 \
$Z fichier2=$xTV/NAISSANCE \
$Z > $xTV/NAISSANCE_2
$Z $DELETE $xTV/NAISSANCE_1
$Z $DELETE $xTV/NAISSANCE
$Z $xrv/neutre$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier=$xTV/NAISSANCE_2 \
$Z > $xTV/NAISSANCE
$Z # Le traitement de '$xTV/NAISSANCE' a ete introduit le 20020214121032. #
$Z $DELETE $xTV/NAISSANCE_2
$Z else
$Z endif
$Z $DELETE $xTV/RAYONS_1
$Z $CA $xTV/SELECTEUR \
$Z | $SE -e "s/^$_____Marqueur_ext"'$'"/$_____Rayon_ext/" \
$Z -e "s/^$_____Marqueur_mmm"'$'"/$_____Rayon_mmm/" \
$Z -e "s/^$_____Marqueur_Mmm"'$'"/$_____Rayon_Mmm/" \
$Z -e "s/^$_____Marqueur_mMm"'$'"/$_____Rayon_mMm/" \
$Z -e "s/^$_____Marqueur_MMm"'$'"/$_____Rayon_MMm/" \
$Z -e "s/^$_____Marqueur_mmM"'$'"/$_____Rayon_mmM/" \
$Z -e "s/^$_____Marqueur_MmM"'$'"/$_____Rayon_MmM/" \
$Z -e "s/^$_____Marqueur_mMM"'$'"/$_____Rayon_mMM/" \
$Z -e "s/^$_____Marqueur_MMM"'$'"/$_____Rayon_MMM/" \
$Z > $xTV/RAYONS_1
$Z $DELETE $xTV/RAYONS_2
$Z $xrv/MUL2.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier1=$xTV/RAYONS_1 \
$Z fichier2=$xTV/RAYONS \
$Z > $xTV/RAYONS_2
$Z $DELETE $xTV/RAYONS_1
$Z $DELETE $xTV/RAYONS
$Z $xrv/neutre$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier=$xTV/RAYONS_2 \
$Z > $xTV/RAYONS
$Z $DELETE $xTV/RAYONS_2
$Z $DELETE $xTV/COULEURS$ROUGE
$Z $DELETE $xTV/COULEURS$VERTE
$Z $DELETE $xTV/COULEURS$BLEUE
$Z $CA $xTV/SELECTEUR \
$Z | $SE -e "s/^$_____Marqueur_ext"'$'"/$_____CouleurR_ext/" \
$Z -e "s/^$_____Marqueur_mmm"'$'"/$_____CouleurR_mmm/" \
$Z -e "s/^$_____Marqueur_Mmm"'$'"/$_____CouleurR_Mmm/" \
$Z -e "s/^$_____Marqueur_mMm"'$'"/$_____CouleurR_mMm/" \
$Z -e "s/^$_____Marqueur_MMm"'$'"/$_____CouleurR_MMm/" \
$Z -e "s/^$_____Marqueur_mmM"'$'"/$_____CouleurR_mmM/" \
$Z -e "s/^$_____Marqueur_MmM"'$'"/$_____CouleurR_MmM/" \
$Z -e "s/^$_____Marqueur_mMM"'$'"/$_____CouleurR_mMM/" \
$Z -e "s/^$_____Marqueur_MMM"'$'"/$_____CouleurR_MMM/" \
$Z > $xTV/COULEURS$ROUGE
$Z $CA $xTV/SELECTEUR \
$Z | $SE -e "s/^$_____Marqueur_ext"'$'"/$_____CouleurV_ext/" \
$Z -e "s/^$_____Marqueur_mmm"'$'"/$_____CouleurV_mmm/" \
$Z -e "s/^$_____Marqueur_Mmm"'$'"/$_____CouleurV_Mmm/" \
$Z -e "s/^$_____Marqueur_mMm"'$'"/$_____CouleurV_mMm/" \
$Z -e "s/^$_____Marqueur_MMm"'$'"/$_____CouleurV_MMm/" \
$Z -e "s/^$_____Marqueur_mmM"'$'"/$_____CouleurV_mmM/" \
$Z -e "s/^$_____Marqueur_MmM"'$'"/$_____CouleurV_MmM/" \
$Z -e "s/^$_____Marqueur_mMM"'$'"/$_____CouleurV_mMM/" \
$Z -e "s/^$_____Marqueur_MMM"'$'"/$_____CouleurV_MMM/" \
$Z > $xTV/COULEURS$VERTE
$Z # Jusqu'au 20020220181406, les composantes '$VERTE' et '$BLEUE' etaient permutees par erreur. #
$Z $CA $xTV/SELECTEUR \
$Z | $SE -e "s/^$_____Marqueur_ext"'$'"/$_____CouleurB_ext/" \
$Z -e "s/^$_____Marqueur_mmm"'$'"/$_____CouleurB_mmm/" \
$Z -e "s/^$_____Marqueur_Mmm"'$'"/$_____CouleurB_Mmm/" \
$Z -e "s/^$_____Marqueur_mMm"'$'"/$_____CouleurB_mMm/" \
$Z -e "s/^$_____Marqueur_MMm"'$'"/$_____CouleurB_MMm/" \
$Z -e "s/^$_____Marqueur_mmM"'$'"/$_____CouleurB_mmM/" \
$Z -e "s/^$_____Marqueur_MmM"'$'"/$_____CouleurB_MmM/" \
$Z -e "s/^$_____Marqueur_mMM"'$'"/$_____CouleurB_mMM/" \
$Z -e "s/^$_____Marqueur_MMM"'$'"/$_____CouleurB_MMM/" \
$Z > $xTV/COULEURS$BLEUE
$Z # Jusqu'au 20020220181406, les composantes '$VERTE' et '$BLEUE' etaient permutees par erreur. #
$Z saut
$Z echo "nombre de particules de type 'ext'=`$GRE '^$_____Marqueur_ext'"'$'" $xTV/SELECTEUR | $WCl`"
$Z echo "nombre de particules de type 'Mmm'=`$GRE '^$_____Marqueur_Mmm'"'$'" $xTV/SELECTEUR | $WCl`"
$Z echo "nombre de particules de type 'mMm'=`$GRE '^$_____Marqueur_mMm'"'$'" $xTV/SELECTEUR | $WCl`"
$Z echo "nombre de particules de type 'MMm'=`$GRE '^$_____Marqueur_MMm'"'$'" $xTV/SELECTEUR | $WCl`"
$Z echo "nombre de particules de type 'mmM'=`$GRE '^$_____Marqueur_mmM'"'$'" $xTV/SELECTEUR | $WCl`"
$Z saut
$Z echo "nombre de particules de type 'MmM'=`$GRE '^$_____Marqueur_MmM'"'$'" $xTV/SELECTEUR | $WCl`"
$Z echo "nombre de particules de type 'mMM'=`$GRE '^$_____Marqueur_mMM'"'$'" $xTV/SELECTEUR | $WCl`"
$Z echo "nombre de particules de type 'MMM'=`$GRE '^$_____Marqueur_MMM'"'$'" $xTV/SELECTEUR | $WCl`"
$Z saut
$Z echo "nombre de particules de type 'mmm'=`$GRE '^$_____Marqueur_mmm'"'$'" $xTV/SELECTEUR | $WCl`"
$Z saut
$Z $DELETE $xTV/SELECTEUR_Zones
$Z
$Z $xrv/neutre$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier=$xTV/SELECTEUR \
$Z formater=VRAI entiers=VRAI signe="$K_VIDE" \
$Z > $xTV/SELECTEUR_Zones
$Z # Le fichier '$xTV/SELECTEUR_Zones' a ete introduit le 20020319095148 afin de pouvoir etre #
$Z # exploite eventuellement dans 'v $xiird/.ACIN.c.16.$U SELECTEUR_Zones'. #
$Z $DELETE $xTV/SELECTEUR