#######################################################################################################################################
# #
# V I S U A L I S A T I O N D E S C O R R E L A T I O N S D A N S L E S M E S U R E S : #
# #
# #
# Author of '$xiirC/.OBJC.CORRELATIONS.11.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20140218182204). #
# #
#######################################################################################################################################
$Z SETParam _____Logarithme $NEXIST
$Z setParam _____Zoom 1
$Z if ($_____Logarithme == $EXIST) then
$Z SET LoGaRiThMe="$xrv/LOGX.01$X"
$Z else
$Z SET LoGaRiThMe="$xrv/neutre$X"
$Z endif
$Z source $xrC/Definitions.01$vv$Y
$Z FilSTmpB FPoInTs
$Z set N_N=$GRIS_0
$Z set N_B=$GRIS_8
$Z set Lindex=(1 2 3 4 5 6 7)
$Z set LCDCs=(00 01 02 03 04 05 06)
$Z set L_RoUgE=($N_N $N_B $N_B $N_N $N_N $N_B $N_B)
$Z set L_VeRtE=($N_N $N_N $N_N $N_B $N_B $N_B $N_B)
$Z set L_BlEuE=($N_B $N_N $N_B $N_N $N_B $N_N $N_B)
$Z set RaYoN=0.005
$Z set L_RaYoN=($RaYoN $RaYoN $RaYoN $RaYoN $RaYoN $RaYoN $RaYoN)
$Z set NPoInTs_=`ls $xrC/ObjetComplexe.*$vv$T | $WCl`
$Z FilSTmpB FPoInTs_EfFeCtIf
$Z foreach index ($Lindex)
$Z set CDC=$LCDCs[$index]
$Z $CA $xrC/ObjetComplexe.*$vv$T | \
$Z $GRE "$CDC""\.\.*:" | \
$Z $GRE "NombreDInstructionsDeDeCompression" | \
$Z $AW ' { print $3 } ' | \
$Z $SE -e "s/^\.\.*//" | \
$Z $LoGaRiThMe ne=0 fichier== \
$Z >>! $FPoInTs_EfFeCtIf.Ir
$Z $CA $xrC/ObjetComplexe.*$vv$T | \
$Z $GRE "$CDC""\.\.*:" | \
$Z $GRE "NombreDDonneesLuesDeDeCompression" | \
$Z $AW ' { print $3 } ' | \
$Z $SE -e "s/^\.\.*//" | \
$Z $LoGaRiThMe ne=0 fichier== \
$Z >>! $FPoInTs_EfFeCtIf.Dr
$Z $CA $xrC/ObjetComplexe.*$vv$T | \
$Z $GRE "$CDC""\.\.*:" | \
$Z $GRE "NombreDDonneesEcritesDeDeCompression" | \
$Z $AW ' { print $3 } ' | \
$Z $SE -e "s/^\.\.*//" | \
$Z $LoGaRiThMe ne=0 fichier== \
$Z >>! $FPoInTs_EfFeCtIf.Dw
$Z $xci/valeurs_inte$X \
$Z p=1 d=$NPoInTs_ \
$Z vD=$L_RoUgE[$index] vA=$L_RoUgE[$index] \
$Z lineaire=VRAI entiers=VRAI epsilon=0.1 \
$Z >>! $FPoInTs$ROUGE
$Z $xci/valeurs_inte$X \
$Z p=1 d=$NPoInTs_ \
$Z vD=$L_VeRtE[$index] vA=$L_VeRtE[$index] \
$Z lineaire=VRAI entiers=VRAI epsilon=0.1 \
$Z >>! $FPoInTs$VERTE
$Z $xci/valeurs_inte$X \
$Z p=1 d=$NPoInTs_ \
$Z vD=$L_BlEuE[$index] vA=$L_BlEuE[$index] \
$Z lineaire=VRAI entiers=VRAI epsilon=0.1 \
$Z >>! $FPoInTs$BLEUE
$Z $xci/valeurs_inte$X \
$Z p=1 d=$NPoInTs_ \
$Z vD=$L_RaYoN[$index] vA=$L_RaYoN[$index] \
$Z lineaire=VRAI entiers=FAUX \
$Z >>! $FPoInTs$RAYON
$Z end
$Z set MiNiMuM_Ir=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs_EfFeCtIf.Ir minimum_seul=VRAI`
$Z set MaXiMuM_Ir=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs_EfFeCtIf.Ir maximum_seul=VRAI`
$Z set MiNiMuM_Dr=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs_EfFeCtIf.Dr minimum_seul=VRAI`
$Z set MaXiMuM_Dr=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs_EfFeCtIf.Dr maximum_seul=VRAI`
$Z set MiNiMuM_Dw=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs_EfFeCtIf.Dw minimum_seul=VRAI`
$Z set MaXiMuM_Dw=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs_EfFeCtIf.Dw maximum_seul=VRAI`
$Z if ($_____Logarithme == $EXIST) then
$Z else
$Z echo "Ir E [$MiNiMuM_Ir,$MaXiMuM_Ir]"
$Z echo "Dr E [$MiNiMuM_Dr,$MaXiMuM_Dr]"
$Z echo "Dw E [$MiNiMuM_Dw,$MaXiMuM_Dw]"
$Z endif
$Z set MiNiMuM=`$xcg/MIN3.01$X a=$MiNiMuM_Ir b=$MiNiMuM_Dr c=$MiNiMuM_Dw signe="$K_VIDE"`
$Z set MaXiMuM=`$xcg/MAX3.01$X a=$MaXiMuM_Ir b=$MaXiMuM_Dr c=$MaXiMuM_Dw signe="$K_VIDE"`
$Z $CA $FPoInTs_EfFeCtIf.Ir | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z forcer_extrema=VRAI minimum_force=$MiNiMuM maximum_force=$MaXiMuM \
$Z >>! $FPoInTs.Ir
$Z $CA $FPoInTs_EfFeCtIf.Dr | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z forcer_extrema=VRAI minimum_force=$MiNiMuM maximum_force=$MaXiMuM \
$Z >>! $FPoInTs.Dr
$Z $CA $FPoInTs_EfFeCtIf.Dw | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z forcer_extrema=VRAI minimum_force=$MiNiMuM maximum_force=$MaXiMuM \
$Z >>! $FPoInTs.Dw
$Z FilSTmpE FPoInTs_EfFeCtIf
$Z set NPoInTsX=`$CA $FPoInTs.Ir | $WCl`
$Z set NPoInTsY=`$CA $FPoInTs.Dr | $WCl`
$Z set NPoInTsZ=`$CA $FPoInTs.Dw | $WCl`
$Z set NPoInTs1=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ signe="$K_VIDE"`
$Z set NPoInTs=$NPoInTs1
$Z set PaRaMeTrEs="$K_VIDE"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_Z=0.4"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_ROUGE=$FPoInTs$ROUGE"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_VERTE=$FPoInTs$VERTE"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_BLEUE=$FPoInTs$BLEUE"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_RAYON=$FPoInTs$RAYON"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" ZOOM=$_____Zoom"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" Lz=1000"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" chiffres=0"
$Z set NPoInTs2=800
$Z @ NPoInTs = $NPoInTs1 + $NPoInTs2
$Z set XYZ0=0
$Z set XYZ1=1
$Z $xci/valeurs_inte$X \
$Z p=1 d=$NPoInTs2 \
$Z vD=$XYZ0 vA=$XYZ1 \
$Z lineaire=VRAI entiers=FAUX \
$Z >>! $FPoInTs.Ir
$Z $xci/valeurs_inte$X \
$Z p=1 d=$NPoInTs2 \
$Z vD=$XYZ0 vA=$XYZ1 \
$Z lineaire=VRAI entiers=FAUX \
$Z >>! $FPoInTs.Dr
$Z $xci/valeurs_inte$X \
$Z p=1 d=$NPoInTs2 \
$Z vD=$XYZ0 vA=$XYZ1 \
$Z lineaire=VRAI entiers=FAUX \
$Z >>! $FPoInTs.Dw
$Z set DiAgOnAlE=$GRIS_4
$Z $xci/valeurs_inte$X \
$Z p=1 d=$NPoInTs2 \
$Z vD=$DiAgOnAlE vA=$DiAgOnAlE \
$Z lineaire=VRAI entiers=VRAI epsilon=0.1 \
$Z >>! $FPoInTs$ROUGE
$Z $xci/valeurs_inte$X \
$Z p=1 d=$NPoInTs2 \
$Z vD=$DiAgOnAlE vA=$DiAgOnAlE \
$Z lineaire=VRAI entiers=VRAI epsilon=0.1 \
$Z >>! $FPoInTs$VERTE
$Z $xci/valeurs_inte$X \
$Z p=1 d=$NPoInTs2 \
$Z vD=$DiAgOnAlE vA=$DiAgOnAlE \
$Z lineaire=VRAI entiers=VRAI epsilon=0.1 \
$Z >>! $FPoInTs$BLEUE
$Z set RaYoN=`calcul $RaYoN/1.4`
$Z $xci/valeurs_inte$X \
$Z p=1 d=$NPoInTs2 \
$Z vD=$RaYoN vA=$RaYoN \
$Z lineaire=VRAI entiers=FAUX \
$Z >>! $FPoInTs$RAYON
$Z $xrv/particule.10$X \
$Z npoints=$NPoInTs \
$Z $PaRaMeTrEs \
$Z LISTE_X=$FPoInTs.Dr \
$Z LISTE_Y=$FPoInTs.Ir \
$Z R=$_____imageR.Ir_Dr \
$Z $formatI
$Z $xrv/particule.10$X \
$Z npoints=$NPoInTs \
$Z $PaRaMeTrEs \
$Z LISTE_X=$FPoInTs.Dw \
$Z LISTE_Y=$FPoInTs.Ir \
$Z R=$_____imageR.Ir_Dw \
$Z $formatI
$Z $xrv/particule.10$X \
$Z npoints=$NPoInTs \
$Z $PaRaMeTrEs \
$Z LISTE_X=$FPoInTs.Dr \
$Z LISTE_Y=$FPoInTs.Dw \
$Z R=$_____imageR.Dw_Dr \
$Z $formatI
$Z $xrv/particule.10$X \
$Z npoints=$NPoInTs \
$Z $PaRaMeTrEs \
$Z LISTE_X=$FPoInTs.Dr \
$Z LISTE_Y=$FPoInTs.Ir \
$Z LISTE_Z=$FPoInTs.Dw \
$Z R=$_____imageR.Ir_Dr_Dw \
$Z $formatI
$Z FilSTmpE FPoInTs