/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E S   O M B R E S   P O R T E E S  :                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/OmbresPortees.01$c' :                                                                                      */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20220523092705).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  <stdio.h>

extern    double    exp();

#define   FACTEUR                                                                                                                       \
                    1

#define   RAYON_OBSTACLE_0                                                                                                              \
                    0.1
#define   RAYON_OBSTACLE_N                                                                                                              \
                    2.0
#define   RAYON_OBSTACLE_pas                                                                                                            \
                    0.10

#define   RAYON_PARTICULE                                                                                                               \
                    1

void      main()
          {
          double    facteur=FACTEUR;
          double    Robstacle;
          double    Rparticule=RAYON_PARTICULE;

          for       (Robstacle=RAYON_OBSTACLE_0 ; Robstacle<=RAYON_OBSTACLE_N ; Robstacle=Robstacle+RAYON_OBSTACLE_0)
                    {
                    double    attenuation;

                    attenuation = exp(-(facteur*(Robstacle/Rparticule)));
                                        /* Ceci est destine a tester la formule 'v $xrv/champs_5.12$I 20220522135138'...             */

                    printf("Robstacle=%f     Rparticule=%f     attenuation=%f\n",Robstacle,Rparticule,attenuation);
                    }
          }