/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C A L C U L   D E   P O L Y N O M E S   A   U N E   V A R I A B L E                                                        */
/*        A   L ' A I D E   D ' U N   F I C H I E R   N U M E R I Q U E  :                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/Poly_1_09.11$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20230525112357).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E R F A C E   ' listG '  :                                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        :Debut_listG:                                                                                                              */
/*        :Fin_listG:                                                                                                                */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D I R E C T I V E S   S P E C I F I Q U E S   D E   C O M P I L A T I O N  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   PRAGMA_CPP_____AUTORISER_LE_GooF
#define   PRAGMA_CPP_____SI_LE_GooF_EST_ACTIVABLE_ALORS_FAIRE_DE_L_ARITHMETIQUE_ETENDUE_DES_NOMBRES_FLOTTANTS

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I C H I E R S   D ' I N C L U D E S  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  INCLUDES_BASE

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        V A L E U R S   I M P L I C I T E S   D E S   P A R A M E T R E S  :                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E S   F I C H I E R S  :                                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrv/ARITHMET.1d.I"
#include  xrv/ARITHMET.21.I"
#include  xrv/champs_5.41.I"

#define   VALEUR_IMPLICITE                                                                                                              \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_valeurs,liste_des_valeurs);
                                        /* Definition en memoire du fichier.                                                         */

#define   ELEMENT_DU_FICHIER(index)                                                                                                     \
                    gELEMENT_DU_FICHIER(liste_des_valeurs,index)
                                        /* Acces a un element courant du fichier.                                                    */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E S   P O L Y N O M E S  :                                                                         */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#define   COEFFICIENT_00                                                                                                                \
                    FZERO
#define   COEFFICIENT_01                                                                                                                \
                    FU
#define   COEFFICIENT_02                                                                                                                \
                    FZERO
#define   COEFFICIENT_03                                                                                                                \
                    FZERO
#define   COEFFICIENT_04                                                                                                                \
                    FZERO
#define   COEFFICIENT_05                                                                                                                \
                    FZERO
#define   COEFFICIENT_06                                                                                                                \
                    FZERO
#define   COEFFICIENT_07                                                                                                                \
                    FZERO
#define   COEFFICIENT_08                                                                                                                \
                    FZERO
#define   COEFFICIENT_09                                                                                                                \
                    FZERO

DEFV(Float,INIT(coefficient_00,COEFFICIENT_00));
DEFV(Float,INIT(coefficient_01,COEFFICIENT_01));
DEFV(Float,INIT(coefficient_02,COEFFICIENT_02));
DEFV(Float,INIT(coefficient_03,COEFFICIENT_03));
DEFV(Float,INIT(coefficient_04,COEFFICIENT_04));
DEFV(Float,INIT(coefficient_05,COEFFICIENT_05));
DEFV(Float,INIT(coefficient_06,COEFFICIENT_06));
DEFV(Float,INIT(coefficient_07,COEFFICIENT_07));
DEFV(Float,INIT(coefficient_08,COEFFICIENT_08));
DEFV(Float,INIT(coefficient_09,COEFFICIENT_09));
                                        /* Les valeurs par defaut permettent de restituer le fichier Argument.                       */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C A L C U L   D E   P O L Y N O M E S   A   U N E   V A R I A B L E                                                        */
/*        A   L ' A I D E   D ' U N   F I C H I E R   N U M E R I Q U E  :                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#include  xrv/ARITHMET.22.I"
#include  xci/valeurs.03.I"
     /*..............................................................................................................................*/
#include  xrv/champs_5.1A.I"

     GET_ARGUMENTS_(nombre_d_arguments
                   ,BLOC(PROCESS_ARGUMENT_I("nombre_elements=""ne=",nombre_d_elements
                                           ,BLOC(VIDE;)
                                           ,BLOC(Bblock
                                                 PRINT_AVERTISSEMENT("'ne=' doit etre defini avant toute entree de fichiers");
                                                 Eblock
                                                 )
                                            );

                         PROCESS_ARGUMENTS_DE_DEFINITION_DES_FICHIERS_01;

                         PROKESF_ARGUMENT_FICHIER("fichier=""F="
                                                 ,fichier_des_valeurs
                                                 ,liste_des_valeurs
                                                 ,VALEUR_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         GET_ARGUMENT_F("a00=""A00=",coefficient_00);
                         GET_ARGUMENT_F("a01=""A01=",coefficient_01);
                         GET_ARGUMENT_F("a02=""A02=",coefficient_02);
                         GET_ARGUMENT_F("a03=""A03=",coefficient_03);
                         GET_ARGUMENT_F("a04=""A04=",coefficient_04);
                         GET_ARGUMENT_F("a05=""A05=",coefficient_05);
                         GET_ARGUMENT_F("a06=""A06=",coefficient_06);
                         GET_ARGUMENT_F("a07=""A07=",coefficient_07);
                         GET_ARGUMENT_F("a08=""A08=",coefficient_08);
                         GET_ARGUMENT_F("a09=""A09=",coefficient_09);

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
                         )
                    );

     gOPERATION_SUR_LES_FICHIERS(BLOC(
                                      DEFV(Float,INIT(valeur_courante,ELEMENT_DU_FICHIER(index)));
                                      )
                                ,USe_GooF(HORNER_1_09(valeur_courante
                                                     ,coefficient_09
                                                     ,coefficient_08
                                                     ,coefficient_07
                                                     ,coefficient_06
                                                     ,coefficient_05
                                                     ,coefficient_04
                                                     ,coefficient_03
                                                     ,coefficient_02
                                                     ,coefficient_01
                                                     ,coefficient_00
                                                      )
                                          )
                                ,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
                                ,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
                                 );

     lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande