#######################################################################################################################################
#                                                                                                                                     #
#         R E G R O U P E M E N T   D E   Q U A T R E   L I G N E S   D E   C O T E   E N   V R A I E S   C O U L E U R S  :          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.COT2.82.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  if                  ($?Premiere == $NEXIST) then
$Z                                      SET                 Premiere=1
$Z                  else
$Z                  endif

$Z                  if                  ($?Derniere == $NEXIST) then
$Z                                      SET                 Derniere=128
$Z                  else
$Z                  endif

$Z                  @         Nimages   = $Derniere - $Premiere
$Z                  @         Nimages   = $Nimages + 1

$Z                  Pal

$c                  #include  <stdio.h>
$c
$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c                            int       p0=1;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      int       p=p0;
$c
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA1.%04d$ROUGE
$c                                                             R=$xTV/COT2.%04d$ROUGE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA1.%04d$VERTE
$c                                                             R=$xTV/COT2.%04d$VERTE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA1.%04d$BLEUE
$c                                                             R=$xTV/COT2.%04d$BLEUE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      p = p+1;
$c
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA2.%04d$ROUGE
$c                                                             R=$xTV/COT2.%04d$ROUGE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA2.%04d$VERTE
$c                                                             R=$xTV/COT2.%04d$VERTE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA2.%04d$BLEUE
$c                                                             R=$xTV/COT2.%04d$BLEUE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      p = p+1;
$c
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA3.%04d$ROUGE
$c                                                             R=$xTV/COT2.%04d$ROUGE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA3.%04d$VERTE
$c                                                             R=$xTV/COT2.%04d$VERTE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA3.%04d$BLEUE
$c                                                             R=$xTV/COT2.%04d$BLEUE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      p = p+1;
$c
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA4.%04d$ROUGE
$c                                                             R=$xTV/COT2.%04d$ROUGE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA4.%04d$VERTE
$c                                                             R=$xTV/COT2.%04d$VERTE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA4.%04d$BLEUE
$c                                                             R=$xTV/COT2.%04d$BLEUE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      p = p+1;
$c
$c                                      printf("$xci/reduction_04$Z
$c                                                             $xTV/COT2.
$c                                                             $xTV/COT2
$c                                                             %d %d\n"
$c                                            ,p0,p-1
$c                                             );
$c
$c                                      printf("$xci/neutre$X
$c                                                             A=$xTV/COT2$R04$ROUGE
$c                                                             R=$_____images.%04d$ROUGE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                             A=$xTV/COT2$R04$VERTE
$c                                                             R=$_____images.%04d$VERTE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                             A=$xTV/COT2$R04$BLEUE
$c                                                             R=$_____images.%04d$BLEUE
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      }
$c                            }



Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.