/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E S S I N E R   U N   E L E P H A N T   A V E C   U N   S E U L   P A R A M E T R E  :                                   */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Nota :                                                                                                                     */
/*                                                                                                                                   */
/*                    Cette fonction a ete presentee par Jean-Paul Delahaye                                                          */
/*                  dans sa rubrique "Logique et Calcul" du numero 511 de la                                                         */
/*                  revue "Pour La Science" (mais 2020).                                                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/FonctionStevenPiantadosi.01$vv$c' :                                                                        */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20200502101214).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  "INCLUDES.01.I"

#define   PRECISION                                                                                                                     \
                    2
#define   PARAMETRE                                                                                                                     \
                    0.24468472667347454582
#define   ITERATION                                                                                                                     \
                    10

main()
          {
          int       k=PRECISION;
          double    p=PARAMETRE;
          int       iteration=ITERATION;
          double    x;

          for       (x=0 ; x<iteration ; x++)
                    {
                    double    y=pow(sin(pow(2.0,k*x)*asin(sqrt(p))),2.0);

                    printf("y=f(k=%d,p=%f,x=%f)=%f\n",k,p,x,y);
                    }
          }