#######################################################################################################################################
# #
# V I S U A L I S A T I O N T R I D I M E N S I O N N E L L E #
# D E L A F O N C T I O N ' zeta ' D E R I E M A N N : #
# #
# #
# Author of '$xiirc/.ZETA.41.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20120124074220). #
# #
#######################################################################################################################################
$Z setParam _____ChainerP `GetParam $xrv/store_image$X chainer_points`
$Z # Parametre introduit le 20120124090336... #
$Z setParam _____TesterHors FAUX
$Z # Parametre introduit le 20120124090336... #
$Z $CA \
$Z $FCoOrDoOnNeEs | \
$Z $AW \
$Z ' { print $1 } ' | \
$Z $SOR \
$Z -u \
$Z > $FCoOrDoOnNeEs.ArgX
$Z $CA \
$Z $FCoOrDoOnNeEs | \
$Z $AW \
$Z ' { print $3 } ' \
$Z > $FCoOrDoOnNeEs.FoncX
$Z $CA \
$Z $FCoOrDoOnNeEs | \
$Z $AW \
$Z ' { print $4 } ' \
$Z > $FCoOrDoOnNeEs.FoncY
$Z set MiNiMuMX=`$xrv/extrema.01$X ne=0 fichier=$FCoOrDoOnNeEs.FoncX ms=VRAI`
$Z set MaXiMuMX=`$xrv/extrema.01$X ne=0 fichier=$FCoOrDoOnNeEs.FoncX Ms=VRAI`
$Z set MiNiMuMY=`$xrv/extrema.01$X ne=0 fichier=$FCoOrDoOnNeEs.FoncY ms=VRAI`
$Z set MaXiMuMY=`$xrv/extrema.01$X ne=0 fichier=$FCoOrDoOnNeEs.FoncY Ms=VRAI`
$Z set MiNiMuM=`$xcg/MIN2.01$X a=$MiNiMuMX b=$MiNiMuMY`
$Z set MaXiMuM=`$xcg/MAX2.01$X a=$MaXiMuMX b=$MaXiMuMY`
$Z set LiStE_ArgX=`$CA $FCoOrDoOnNeEs.ArgX`
$Z setenv _____ImageT1 $xTV/ZETA.41
$Z SET cPremiere=1
$Z SET cDerniere=$cPremiere
$Z foreach ArGuMeNtX ($LiStE_ArgX)
$Z $DELETE $FCoOrDoOnNeEs.FoncX
$Z $CA \
$Z $FCoOrDoOnNeEs | \
$Z $GRE \
$Z "^$ArGuMeNtX " | \
$Z $AW \
$Z ' { print $3 } ' | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z forcer=VRAI \
$Z minimum_force=$MiNiMuM \
$Z maximum_force=$MaXiMuM \
$Z > $FCoOrDoOnNeEs.FoncX
$Z $DELETE $FCoOrDoOnNeEs.FoncY
$Z $CA \
$Z $FCoOrDoOnNeEs | \
$Z $GRE \
$Z "^$ArGuMeNtX " | \
$Z $AW \
$Z ' { print $4 } ' | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z forcer=VRAI \
$Z minimum_force=$MiNiMuM \
$Z maximum_force=$MaXiMuM \
$Z > $FCoOrDoOnNeEs.FoncY
$Z set AImAgE="A=$_____ImageT1. p=$cDerniere d=$cDerniere"
$Z set NImAgE=`$xci/nombres$X $AImAgE`
$Z $xrv/store_image$X \
$Z ne=0 \
$Z LISTE_X=$FCoOrDoOnNeEs.FoncX \
$Z LISTE_Y=$FCoOrDoOnNeEs.FoncY \
$Z LISTE_Z=0 \
$Z LISTE_NIVEAU=1 \
$Z chainer_points=$_____ChainerP \
$Z tester_hors_bornes_naturelles=$_____TesterHors \
$Z R=$NImAgE \
$Z $formatI
$Z # L'argument "chainer_points=" a ete introduit le 20120124090336... #
$Z
$Z @ cDerniere = $cDerniere + 1
$Z end
$Z
$Z @ cDerniere = $cDerniere - 1
$Z @ Nimages = $cDerniere - $cPremiere
$Z @ Nimages = $Nimages + 1