/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C A L C U L   D E S   P R E M I E R E S   D E C I M A L E S   B A S E   2   D E   ' pi '  :                                */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Nota sur la duree d'execution :                                                                                            */
/*                                                                                                                                   */
/*                  CMAP28 -ex "porte-de-choisy"- :                                                                                  */
/*                                                                                                                                   */
/*                                      xxxx                xxxx                          '$xrp/DecimalesBinairesPi_1000000'         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*                  LACT1A :                                                                                                         */
/*                                                                                                                                   */
/*                                      20240615082842      00:03:12                      '$xrp/DecimalesBinairesPi_20000'           */
/*                                      20240615185051      00:18:31                      '$xrp/DecimalesBinairesPi_40000'           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtb/DecimalesBinaires_pi.01' :                                                                                 */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20240615080356).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
scale = 20000;
scale = 40000;
scale = 1000000;
                                        /* Nombre de decimales binaires.                                                             */
obase = 2;
                                        /* Et donc en base 2...                                                                      */

16*a(1/5)-4*a(1/239);
                                        /* Calcul de 'pi' a l'aide de la formule :                                                   */
                                        /*                                                                                           */
                                        /*                                 1               1                                         */
                                        /*                  pi = 16.arctg(---) - 4.arctg(-----)                                      */
                                        /*                                 5              239                                        */
                                        /*                                                                                           */
                                        /* ce qui demande evidemment la librairie "--mathlib".                                       */

quit;