#######################################################################################################################################
# #
# C H U T E D E S C O R P S D A N S L E V I D E : #
# #
# #
# Author of '$xiirv/.CHUT.11.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20180612102939). #
# #
#######################################################################################################################################
$Z setParam _____NPoints 100
$Z setParam _____X0 0
$Z setParam _____XN 3
$Z setParam _____CoordonneeZ 0.5
$Z setParam _____PRayon 0.02
$Z setParam _____PROUGE $GRIS_8
$Z setParam _____PVERTE $GRIS_8
$Z setParam _____PBLEUE $GRIS_8
$Z setParam _____ARayon 0.01
$Z setParam _____AROUGE $GRIS_8
$Z setParam _____AVERTE $GRIS_8
$Z setParam _____ABLEUE $GRIS_0
$Z setParam _____TranslationX -1.5
$Z # Parametre introduit le 20180613092917... #
$Z setParam _____TranslationY -1.4
$Z setParam _____Zoom 0.50
$Z setParam _____ParticuleParaC "$K_VIDE"
$Z FilSTmpB LiStEPoInTs
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" rD=1 rA=1"
$Z set ArGuMeNtS="$ArGuMeNtS"" xD=$_____X0 xA=$_____XN"
$Z set ArGuMeNtS="$ArGuMeNtS"" lineaire=VRAI"
$Z $xci/valeurs_poly$X premiere=1 derniere=$_____NPoints \
$Z n00=0 n01=1 n02=0 \
$Z $ArGuMeNtS | \
$Z $AW ' { print $1 "\n" $1 } ' \
$Z > $LiStEPoInTs$COORD_X
$Z $xci/valeurs_poly$X premiere=1 derniere=$_____NPoints \
$Z n00=0 n01=0 n02=1 \
$Z $ArGuMeNtS | \
$Z $AW ' { print $1 "\n" $1 } ' \
$Z > $LiStEPoInTs$COORD_Y
$Z $xrv/neutre$X ne=$_____NPoints \
$Z fichier=$_____PROUGE \
$Z exemplaires=2 \
$Z > $LiStEPoInTs$ROUGE
$Z $xrv/neutre$X ne=$_____NPoints \
$Z fichier=$_____PVERTE \
$Z exemplaires=2 \
$Z > $LiStEPoInTs$VERTE
$Z $xrv/neutre$X ne=$_____NPoints \
$Z fichier=$_____PBLEUE \
$Z exemplaires=2 \
$Z > $LiStEPoInTs$BLEUE
$Z $xrv/neutre$X ne=$_____NPoints \
$Z fichier=$_____PRayon \
$Z exemplaires=2 \
$Z > $LiStEPoInTs$RAYON
$Z alias GaxesRVBr ' \\
$Z echo "$_____AROUGE""\n""$_____AROUGE""\n""$_____AROUGE""\n""$_____AROUGE" \\
$Z >> $LiStEPoInTs$ROUGE ; \\
$Z echo "$_____AVERTE""\n""$_____AVERTE""\n""$_____AVERTE""\n""$_____AVERTE" \\
$Z >> $LiStEPoInTs$VERTE ; \\
$Z echo "$_____ABLEUE""\n""$_____ABLEUE""\n""$_____ABLEUE""\n""$_____ABLEUE" \\
$Z >> $LiStEPoInTs$BLEUE ; \\
$Z echo "$_____ARayon""\n""$_____ARayon""\n""$_____ARayon""\n""$_____ARayon" \\
$Z >> $LiStEPoInTs$RAYON \\
$Z '
$Z set MiNiMuM_X=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs$COORD_X minimum_seul=VRAI`
$Z set MaXiMuM_X=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs$COORD_X maximum_seul=VRAI`
$Z set MiNiMuM_Y=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs$COORD_Y minimum_seul=VRAI`
$Z set MaXiMuM_Y=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs$COORD_Y maximum_seul=VRAI`
$Z set MaXiMuM_Y=`$xcg/MIN2.01$X a=$MaXiMuM_Y b=3.22`
$Z # La correction de '$MaXiMuM_Y' est destinee a faire apparaitre la fleche de l'axe 'OZ' #
$Z # en bas de l'image... #
$Z echo "$MiNiMuM_X""\n""$MaXiMuM_X" \
$Z >> $LiStEPoInTs$COORD_X
$Z echo "$MiNiMuM_Y""\n""$MiNiMuM_Y" \
$Z >> $LiStEPoInTs$COORD_Y
$Z echo "$MiNiMuM_X""\n""$MiNiMuM_X" \
$Z >> $LiStEPoInTs$COORD_X
$Z echo "$MiNiMuM_Y""\n""$MaXiMuM_Y" \
$Z >> $LiStEPoInTs$COORD_Y
$Z GaxesRVBr
$Z set Delta_1=0.100
$Z set Delta_2=0.050
$Z # Definition des fleches d'orientation des axes 'OX' et 'OZ'... #
$Z echo "$MaXiMuM_X""\n"`calcul $MaXiMuM_X-$Delta_1` \
$Z >> $LiStEPoInTs$COORD_X
$Z echo "$MiNiMuM_Y""\n"`calcul $MiNiMuM_Y-$Delta_2` \
$Z >> $LiStEPoInTs$COORD_Y
$Z GaxesRVBr
$Z echo "$MaXiMuM_X""\n"`calcul $MaXiMuM_X-$Delta_1` \
$Z >> $LiStEPoInTs$COORD_X
$Z echo "$MiNiMuM_Y""\n"`calcul $MiNiMuM_Y+$Delta_2` \
$Z >> $LiStEPoInTs$COORD_Y
$Z GaxesRVBr
$Z echo "$MiNiMuM_X""\n"`calcul $MiNiMuM_X-$Delta_2` \
$Z >> $LiStEPoInTs$COORD_X
$Z echo "$MaXiMuM_Y""\n"`calcul $MaXiMuM_Y-$Delta_1` \
$Z >> $LiStEPoInTs$COORD_Y
$Z GaxesRVBr
$Z echo "$MiNiMuM_X""\n"`calcul $MiNiMuM_X+$Delta_2` \
$Z >> $LiStEPoInTs$COORD_X
$Z echo "$MaXiMuM_Y""\n"`calcul $MaXiMuM_Y-$Delta_1` \
$Z >> $LiStEPoInTs$COORD_Y
$Z GaxesRVBr
$Z set AXYZ_BXYZ="AXYZ=1 BXYZ=0"
$Z set NPoInTsX=`$CA $LiStEPoInTs$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $LiStEPoInTs$COORD_Y | $WCl`
$Z set NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`
$Z $xrv/particule.10$X \
$Z np=1 \
$Z iterations=$NPoInTs \
$Z $AXYZ_BXYZ \
$Z LISTE_X=$LiStEPoInTs$COORD_X \
$Z LISTE_Y=$LiStEPoInTs$COORD_Y \
$Z LISTE_Z=$_____CoordonneeZ \
$Z LISTE_RAYON=$LiStEPoInTs$RAYON \
$Z LISTE_ROUGE=$LiStEPoInTs$ROUGE \
$Z LISTE_VERTE=$LiStEPoInTs$VERTE \
$Z LISTE_BLEUE=$LiStEPoInTs$BLEUE \
$Z ZOOM=$_____Zoom \
$Z TRANSLATION_OX=$_____TranslationX \
$Z TRANSLATION_OY=$_____TranslationY \
$Z isoles=FAUX chainer=FAUX ajuster_points=VRAI equidistance=VRAI \
$Z Lz=100 \
$Z editer_extrema_hors=FAUX \
$Z $_____ParticuleParaC \
$Z chiffres=0 \
$Z R=$_____ImagesR \
$Z $formatI
$Z FilSTmpE LiStEPoInTs
$Z execRVB $xci/Sx$X \
$Z A=$_____ImagesR%s \
$Z R=$_____ImagesR%s \
$Z $formatI
$Z # La symetrie par rapport a 'OX' a ete introduite le 20190508095835 car, en effet, il est #
$Z # plus logique de montrer une parabole qui "descend"... #
$Z set PaRaMeTrEs1="$K_VIDE"
$Z set PaRaMeTrEs1="$PaRaMeTrEs1"" taille=3"
$Z set PaRaMeTrEs1="$PaRaMeTrEs1"" centrer=FAUX"
$Z set PaRaMeTrEs1="$PaRaMeTrEs1"" anti_aliasing=VRAI"
$Z set MeSsAgE_T="X=0.750 Y=0.91"
$Z set MeSsAgE_Z="X=0.155 Y=0.04"
$Z execRVB "$xci/message$X \
$Z A=$_____ImagesR%s \
$Z message="T" \
$Z $PaRaMeTrEs1 \
$Z $MeSsAgE_T \
$Z $formatI | \
$Z $xci/message$X \
$Z message="Z" \
$Z $PaRaMeTrEs1 \
$Z $MeSsAgE_Z \
$Z R=$_____ImagesR%s \
$Z $formatI"