/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   D E   ' 1/pi '  :                                            */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Nota sur la duree d'execution :                                                                                            */
/*                                                                                                                                   */
/*                  LACT1A :                                                                                                         */
/*                                                                                                                                   */
/*                                      20240423112711      00:00:33                      '$xrp/Decimales_Base10_UnSurPi_____10000'  */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtb/Decimales_Base10_UnSurPi.01' :                                                                             */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20240423112022).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
scale = 10000;
                                        /* Nombre de decimales.                                                                      */

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

quit;