#######################################################################################################################################
# #
# 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 l ' E N T R E E #
# E T D E L A S O R T I E 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.15.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z setParam _____DEuclidienne VRAI
$Z set MinimumX=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_X | $GRE '^minimum=' | $SE -e 's/^.*=//'`
$Z set MaximumX=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_X | $GRE '^maximum=' | $SE -e 's/^.*=//'`
$Z set MinimumY=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Y | $GRE '^minimum=' | $SE -e 's/^.*=//'`
$Z set MaximumY=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Y | $GRE '^maximum=' | $SE -e 's/^.*=//'`
$Z set MinimumZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Z | $GRE '^minimum=' | $SE -e 's/^.*=//'`
$Z set MaximumZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Z | $GRE '^maximum=' | $SE -e 's/^.*=//'`
$Z $DELETE $xTV/DISTANCES
$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
$Z setParam _____DistanceO1 0.0
$Z setParam _____DistanceO2 0.4
$Z setParam _____DistanceORi $GRIS_4
$Z setParam _____DistanceORm $GRIS_8
$Z setParam _____DistanceORs $GRIS_4
$Z setParam _____DistanceOVi $GRIS_4
$Z setParam _____DistanceOVm $GRIS_7
$Z setParam _____DistanceOVs $GRIS_4
$Z setParam _____DistanceOBi $GRIS_4
$Z setParam _____DistanceOBm $GRIS_0
$Z setParam _____DistanceOBs $GRIS_4
$Z setParam _____DistanceOri 0.8
$Z setParam _____DistanceOrm 2.0
$Z setParam _____DistanceOrs 0.8
$Z $DELETE $xTV/COULEURS_O$ROUGE
$Z $DELETE $xTV/COULEURS_O$VERTE
$Z $DELETE $xTV/COULEURS_O$BLEUE
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____DistanceO1 maximum=$_____DistanceO2 \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____DistanceORi \
$Z valeur_intermediaire=$_____DistanceORm \
$Z valeur_superieure=$_____DistanceORs \
$Z fichier=$xTV/DISTANCES \
$Z formater=VRAI entiers=VRAI \
$Z > $xTV/COULEURS_O$ROUGE
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____DistanceO1 maximum=$_____DistanceO2 \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____DistanceOVi \
$Z valeur_intermediaire=$_____DistanceOVm \
$Z valeur_superieure=$_____DistanceOVs \
$Z fichier=$xTV/DISTANCES \
$Z formater=VRAI entiers=VRAI \
$Z > $xTV/COULEURS_O$VERTE
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____DistanceO1 maximum=$_____DistanceO2 \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____DistanceOBi \
$Z valeur_intermediaire=$_____DistanceOBm \
$Z valeur_superieure=$_____DistanceOBs \
$Z fichier=$xTV/DISTANCES \
$Z formater=VRAI entiers=VRAI \
$Z > $xTV/COULEURS_O$BLEUE
$Z $DELETE $xTV/RAYONS_O
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____DistanceO1 maximum=$_____DistanceO2 \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____DistanceOri \
$Z valeur_intermediaire=$_____DistanceOrm \
$Z valeur_superieure=$_____DistanceOrs \
$Z fichier=$xTV/DISTANCES \
$Z > $xTV/RAYONS_O
$Z setParam _____DistanceE1 2.6
$Z setParam _____DistanceE2 5.0
$Z # En fait la bonne valeur serait la racine carree de la diagonale d'un cube de cote inferieur #
$Z # a 2. Cette diagonale est donc inferieure a 3.46 et l'experience montre qu'elle vaut en fait #
$Z # 3.01 ; on majore donc un peu avec 5... #
$Z setParam _____DistanceERi $GRIS_4
$Z setParam _____DistanceERm $GRIS_0
$Z setParam _____DistanceERs $GRIS_4
$Z setParam _____DistanceEVi $GRIS_4
$Z setParam _____DistanceEVm $GRIS_8
$Z setParam _____DistanceEVs $GRIS_4
$Z setParam _____DistanceEBi $GRIS_4
$Z setParam _____DistanceEBm $GRIS_6
$Z setParam _____DistanceEBs $GRIS_4
$Z setParam _____DistanceEri 0.8
$Z setParam _____DistanceErm 2.0
$Z setParam _____DistanceErs 0.8
$Z $DELETE $xTV/COULEURS_E$ROUGE
$Z $DELETE $xTV/COULEURS_E$VERTE
$Z $DELETE $xTV/COULEURS_E$BLEUE
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____DistanceE1 maximum=$_____DistanceE2 \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____DistanceERi \
$Z valeur_intermediaire=$_____DistanceERm \
$Z valeur_superieure=$_____DistanceERs \
$Z fichier=$xTV/DISTANCES \
$Z formater=VRAI entiers=VRAI \
$Z > $xTV/COULEURS_E$ROUGE
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____DistanceE1 maximum=$_____DistanceE2 \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____DistanceEVi \
$Z valeur_intermediaire=$_____DistanceEVm \
$Z valeur_superieure=$_____DistanceEVs \
$Z fichier=$xTV/DISTANCES \
$Z formater=VRAI entiers=VRAI \
$Z > $xTV/COULEURS_E$VERTE
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____DistanceE1 maximum=$_____DistanceE2 \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____DistanceEBi \
$Z valeur_intermediaire=$_____DistanceEBm \
$Z valeur_superieure=$_____DistanceEBs \
$Z fichier=$xTV/DISTANCES \
$Z formater=VRAI entiers=VRAI \
$Z > $xTV/COULEURS_E$BLEUE
$Z $DELETE $xTV/RAYONS_E
$Z $xrv/passe_ban.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z minimum=$_____DistanceE1 maximum=$_____DistanceE2 \
$Z hors_bande=VRAI \
$Z marquer=VRAI \
$Z valeur_inferieure=$_____DistanceEri \
$Z valeur_intermediaire=$_____DistanceErm \
$Z valeur_superieure=$_____DistanceErs \
$Z fichier=$xTV/DISTANCES \
$Z > $xTV/RAYONS_E
$Z set DistanceMoyenne=`calcul ($_____DistanceO2+$_____DistanceE1)/2`
$Z $DELETE $xTV/SELECTION
$Z $xrv/IFLT.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier1=$xTV/DISTANCES \
$Z fichier2=$DistanceMoyenne \
$Z > $xTV/SELECTION
$Z $DELETE $xTV/DISTANCES
$Z $DELETE $xTV/COULEURS$ROUGE
$Z $DELETE $xTV/COULEURS$VERTE
$Z $DELETE $xTV/COULEURS$BLEUE
$Z $xrv/COND.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichierV=$xTV/COULEURS_O$ROUGE \
$Z fichierF=$xTV/COULEURS_E$ROUGE \
$Z selection=$xTV/SELECTION \
$Z > $xTV/COULEURS$ROUGE
$Z $xrv/COND.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichierV=$xTV/COULEURS_O$VERTE \
$Z fichierF=$xTV/COULEURS_E$VERTE \
$Z selection=$xTV/SELECTION \
$Z > $xTV/COULEURS$VERTE
$Z $xrv/COND.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichierV=$xTV/COULEURS_O$BLEUE \
$Z fichierF=$xTV/COULEURS_E$BLEUE \
$Z selection=$xTV/SELECTION \
$Z > $xTV/COULEURS$BLEUE
$Z $DELETE $xTV/COULEURS_O$ROUGE
$Z $DELETE $xTV/COULEURS_O$VERTE
$Z $DELETE $xTV/COULEURS_O$BLEUE
$Z $DELETE $xTV/COULEURS_E$ROUGE
$Z $DELETE $xTV/COULEURS_E$VERTE
$Z $DELETE $xTV/COULEURS_E$BLEUE
$Z $DELETE $xTV/RAYONS_OE
$Z $xrv/COND.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichierV=$xTV/RAYONS_O \
$Z fichierF=$xTV/RAYONS_E \
$Z selection=$xTV/SELECTION \
$Z > $xTV/RAYONS_OE
$Z $DELETE $xTV/RAYONS_O
$Z $DELETE $xTV/RAYONS_E
$Z $DELETE $xTV/RAYONS_1
$Z $xrv/MUL2.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier1=$xTV/RAYONS_OE \
$Z fichier2=$xTV/RAYONS \
$Z > $xTV/RAYONS_1
$Z $DELETE $xTV/RAYONS_OE
$Z $DELETE $xTV/RAYONS
$Z $xrv/neutre$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier=$xTV/RAYONS_1 \
$Z > $xTV/RAYONS
$Z $DELETE $xTV/RAYONS_1
$Z $DELETE $xTV/SELECTION
Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.