/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P O U R   T E S T E R   'v $xci/accumule.01$K facteur_d_attenuation '  :                                                   */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/facteur.01$c' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  "INCLUDES.01.I"
                                        /* Introduit le 20051116100903...                                                            */

#define   PREMIERE  1
#define   DERNIERE  10

extern    double    pow();

main()
     {
     int       numero_d_image,premiere_image=PREMIERE,derniere_image=DERNIERE;
     double    facteur_d_attenuation,facteur_lineaire,facteur_non_lineaire;

     facteur_d_attenuation=pow(1.0/((double)BLANC),1.0/((double)(derniere_image-premiere_image+1)));
     printf("\n facteur = %f",facteur_d_attenuation);

     for       (numero_d_image=premiere_image ; numero_d_image<=derniere_image ; numero_d_image++)
               {
               facteur_lineaire=((double)(numero_d_image-premiere_image+1))/((double)(derniere_image-premiere_image+1));
               facteur_non_lineaire=pow(facteur_d_attenuation,((double)(derniere_image-numero_d_image)));
               printf("\n image = %d   lineaire = %f (%03d)     non lineaire = %f (%03d)"
                     ,numero_d_image
                     ,facteur_lineaire,((int)(facteur_lineaire*BLANC))
                     ,facteur_non_lineaire,((int)(BLANC*facteur_non_lineaire))
                      );
               }
     }