#######################################################################################################################################
# #
# R E C O N S T R U C T I O N D ' U N C H A M P A P A R T I R D ' U N #
# Z O O M S U R L E S E C H E L L E S D E S A T R A N S F O R M E E E N O N D E L E T T E S : #
# #
# #
# Author of '$xivP/disk.000000006/face.2/.MORL.3.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20030512155641). #
# #
#######################################################################################################################################
$Z SETParam Premiere 1
$Z SETParam Derniere 128
$Z setParam _____imageT $xTV/MORLET
$Z # Racine du nom des images Temporaires... #
$Z setParam _____Postfixe $PR
$Z # Postfixe de la composante a conserver (introduit le 20030505122704)... #
$Z $DELETE $xTV/MINIMUM
$Z $DELETE $xTV/MAXIMUM
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/accumule.01$X
$c A=$_____imageA.
$c postfixe=$_____Postfixe
$c standard=FAUX
$c premiere=%d
$c derniere=%d
$c normaliser=FAUX
$c R=$_____imageT.%04d
$c $formatI\n"
$c ,N-(n-N0)
$c ,N
$c ,n
$c );
$c /* Accumulation de plus en plus d'images... */
$c }
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/extrema$X
$c A=$_____imageT.%04d
$c standard=FAUX
$c minimum=VRAI
$c maximum=FAUX
$c $formatI
$c >>&! $xTV/MINIMUM\n"
$c ,n
$c );
#20150224100744____:$c printf("saut #
#20150224100744____:$c >>&! $xTV/MINIMUM\n" #
#20150224100744____:$c ); #
$c printf("$xci/extrema$X
$c A=$_____imageT.%04d
$c standard=FAUX
$c minimum=FAUX
$c maximum=VRAI
$c $formatI
$c >>&! $xTV/MAXIMUM\n"
$c ,n
$c );
#20150224100744____:$c printf("saut #
#20150224100744____:$c >>&! $xTV/MAXIMUM\n" #
#20150224100744____:$c ); #
$c /* Extraction des extrema de chacune des transformees "modifiees"... */
$c }
$c
$c printf("set MinC=`$xrv/extrema.01$X ne=0 fichier=$xTV/MINIMUM | $GRE '^minimum=' | $SE -e 's/^.*=//'`\n");
$c printf("set MaxC=`$xrv/extrema.01$X ne=0 fichier=$xTV/MAXIMUM | $GRE '^maximum=' | $SE -e 's/^.*=//'`\n");
$c /* Extraction des extrema de l'ensemble des transformees. */
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/acces$X
$c A=$_____imageT.%04d
$c standard=FAUX
$c zero=VRAI
$c extrema=FAUX
$c minimum=$MinC
$c maximum=$MaxC
$c tronquer=FAUX
$c R=$_____imagesR.%04d
$c $formatI\n"
$c ,n
$c ,n
$c );
$c /* Et enfin conversion "standard" avec renormalisation globale... */
$c }
$c }
$Z $DELETE $xTV/MINIMUM
$Z $DELETE $xTV/MAXIMUM