/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E T U D E   D E   L A   S U I T E   D E   S Y R A C U S E  :                                                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrk/Syracuse.11.3$I' :                                                                                         */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20130115141203).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E T U D E   D E   L A   S U I T E   D E   S Y R A C U S E  :                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
     DEFV(Int,INIT(nombre_maximal_d_iterations,NOMBRE_MAXIMAL_D_ITERATIONS));

     DEFV(Int,INIT(pas_inter_nombres,PAS_INTER_NOMBRES));
                                        /* Parametre introduit le 20170913104343...                                                  */
     DEFV(Int,INIT(premier_nombre_entier,PREMIER_NOMBRE_ENTIER));

     DEFV(Int,INIT(valeur_d_arret,VALEUR_D_ARRET));
     DEFV(Int,INIT(rang_initial_d_apparition_de_la_valeur_d_arret,RANG_INITIAL_D_APPARITION_DE_LA_VALEUR_D_ARRET));

     DEFV(Int,INIT(diviseur,DIVISEUR));
     DEFV(Int,INIT(alpha___,ALPHA___));
     DEFV(Int,INIT(beta____,BETA____));
                                        /* Parametres definissant par defaut la suite de Syracuse...                                 */

     DEFV(Int,INIT(homothetie__U0,HOMOTHETIE__U0));
     DEFV(Int,INIT(translation_U0,TRANSLATION_U0));
                                        /* Definition de la transformation de 'U(0)' (introduite le 20130115175859)...               */
                                        /*                                                                                           */
                                        /* On notera que partir des nombres pairs {H=2, T=0} laisse la figure invariante, ce qui     */
                                        /* est logique puisque la procedure commence par diviser par 2 et que l'on retombe ainsi     */
                                        /* sur le cas {H=1, T=0}. Par contre partir des nombres impairs {H=2, T=1} donne evidemment  */
                                        /* quelque chose de different...                                                             */

     DEFV(Logical,INIT(visualiser_a_l_aide_du_rang_dans_la_suite,VISUALISER_A_L_AIDE_DU_RANG_DANS_LA_SUITE));
                                        /* Faut-il visualiser a l'aide du rang 'n' des suites 'U(n)' ('VRAI') ou bien a l'aide       */
                                        /* de 'U(0)' ('FAUX') ? Ceci fut introduit le 20130115101940...                              */
     DEFV(genere_p,INIT(niveau_de_marquage_courant_fonction_de_U0,NOIR_PLANCHER));
                                        /* Niveau de marquage courant a l'aide de l'element 'U(0)'...                                */

     DEFV(Logical,INIT(visualiser_la_parite_des_elements_de_la_suite,VISUALISER_LA_PARITE_DES_ELEMENTS_DE_LA_SUITE));
     DEFV(genere_p,INIT(niveau_de_la_parite___paire,NIVEAU_DE_LA_PARITE___PAIRE));
     DEFV(genere_p,INIT(niveau_de_la_parite_impaire,NIVEAU_DE_LA_PARITE_IMPAIRE));
                                        /* Faut-il visualiser la valeur des elements U(n) de la suite ('FAUX') ou bien leur parite   */
                                        /* ('VRAI') ? Cela fut introduit le 20190418105243...                                        */

     DEFV(Logical,INIT(editer_les_suites,EDITER_LES_SUITES));
                                        /* Parametre controlant l'eventuel edition des suites 'U(n)'...                              */