/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C A L C U L   D ' U N E   M A R C H E   A L E A T O I R E   S U R   ' P I '  :                                             */
/*        S E L O N   L A   M E T H O D E   D E   B E N O I T   C L O I T R E  :                                                     */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Nota :                                                                                                                     */
/*                                                                                                                                   */
/*                    Ce programme fait suite a l'article                                                                            */
/*                  'v $Dcourrier_in/20131112093204 http...www.lifl.fr..delahaye.PLS436.Delahaye436.zip'                             */
/*                  transmis par Jean-Paul Delahaye...                                                                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/MarchesAleatoires_Pi.01$c' :                                                                               */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20131114092943).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  <stdio.h>

#define   PRECIS    double
#define   FRACT(x)  ((x)-((int)(x)))

#define   PI        3.14159265358979312
#define   A         3
#define   B         1

#define   ITERATION 20

main()
          {
          PRECIS    r=PI;
          PRECIS    a=A;
          PRECIS    b=B;
          int       n;

          for       (n=1 ; n<=ITERATION ; n++)
                    {
                    PRECIS              x;
                    long      int       y;

                    x=r*((a*(PRECIS)n)+b);
                    y=(long int)x;

                    printf("%ld\n",y%2);
                    }
          }



Copyright © Jean-François Colonna, 2021-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2021-2021.