/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        A T T E N U A T I O N   D E S   T R A I N E E S  :                                                                         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/trainees.01$c' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

extern    double    pow();
#define   GENP(x)   ((unsigned char)(x))
#define   BLANC     GENP(255)

main()
     {
     int                 iterer=1;
     double              facteur_d_attenuation_des_trainees=0.9985;
     int                 periode_d_attenuation_des_trainees=1;
     unsigned  char      blanc_1;
     unsigned  char      blanc_0;

     if        (facteur_d_attenuation_des_trainees >= 1.0)
               {
               iterer = 0;
               }
     else
               {
               }

     while     (iterer == 1)
               {
               blanc_1=GENP(pow(facteur_d_attenuation_des_trainees,(double)(periode_d_attenuation_des_trainees+1))*BLANC);
               blanc_0=GENP(pow(facteur_d_attenuation_des_trainees,(double)(periode_d_attenuation_des_trainees+0))*BLANC);
               if        (blanc_1 >= blanc_0)
                         {
                         periode_d_attenuation_des_trainees = periode_d_attenuation_des_trainees+1;
                         }
               else
                         {
                         iterer = 0;
                         }
               }

     printf("\n attenuation = %f",facteur_d_attenuation_des_trainees);
     printf("\n periode     = %d",periode_d_attenuation_des_trainees);
     }