/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E   L A   T A N G E N T E   H Y P E R B O L I Q U E  :                                                         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/TANH.01$c' :                                                                                               */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20220509124259).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  <stdio.h>

extern    double    tanh();

#define   FDU                                                                                                                           \
                    0.5

#define   ANGLE_0                                                                                                                       \
                    0.0
#define   ANGLE_N                                                                                                                       \
                    1.0
#define   ANGLE_pas                                                                                                                     \
                    0.02

#define   FACTEUR                                                                                                                       \
                    100
#define   MINIMUM_TANH                                                                                                                  \
                    0.5
#define   MAXIMUM_TANH                                                                                                                  \
                    1.0

main()
          {
          int       niveau;
          double    angle;

          double    seuil=0.1;
          double    facteur=FACTEUR;
          double    minimum_TANH=MINIMUM_TANH,maximum_TANH=MAXIMUM_TANH;

          for       (angle=ANGLE_0 ; angle<=ANGLE_N ; angle=angle+ANGLE_pas)
                    {
                    double    ombre;
                    double    tangente;

                    tangente = (FDU*tanh(facteur*(angle-seuil)))+FDU;
                    ombre = ((maximum_TANH-minimum_TANH)*tangente)+minimum_TANH;

                    printf("angle=%f     tangente=%f     ombre=%f\n",angle,tangente,ombre);
                    }
          }