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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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  :                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   ADAPTER_LE_SIGNE_DE_LA_CONSTANTE_DE_TRANSLATION                                                                               \
                    FAUX                                                                                                                \
                                        /* Doit-on doit-on donner le signe de 'valeur_courante' a 'constante_de_translation'         */ \
                                        /* (introduit le 20180529100706 pour 'v $xiird/.NETW.11.1.$U adapter_signe_translation'.     */ \
                                        /* Cela permet, par exemple, de passer automatiquement de valeurs dans [-1,+1] a des         */ \
                                        /* valeurs dans [-1,-1/2]U[+1/2,+1].                                                         */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D U   F I C H I E R  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrv/ARITHMET.1d.I"
                                        /* Passage a l'allocation dynamique le 20060214133309...                                     */
#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.                                                    */

#define   VALEUR_IMPLICITE_A                                                                                                            \
                    FU
#define   VALEUR_IMPLICITE_B                                                                                                            \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_valeurs_A,liste_des_valeurs_A);
gGENERATION_D_UN_FICHIER(fichier_des_valeurs_B,liste_des_valeurs_B);
                                        /* Definition en memoire des fichiers 'A' et 'B'.                                            */

#define   ELEMENT_DU_FICHIER_A(index)                                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_valeurs_A,index)
#define   ELEMENT_DU_FICHIER_B(index)                                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_valeurs_B,index)
                                        /* Acces a un element courant des fichiers 'A' et 'B'.                                       */

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

     DEFV(Logical,INIT(adapter_le_signe_de_la_constante_de_translation,ADAPTER_LE_SIGNE_DE_LA_CONSTANTE_DE_TRANSLATION));
                                        /* Doit-on doit-on donner le signe de 'valeur_courante' a 'constante_de_translation'         */
                                        /* (introduit le 20180529100706 pour 'v $xiird/.NETW.11.1.$u adapter_signe_translation').    */
                                        /* Cela permet, par exemple, de passer automatiquement de valeurs dans [-1,+1] a des         */
                                        /* valeurs dans [-1,-1/2]U[+1/2,+1].                                                         */
     /*..............................................................................................................................*/
#include  xrv/champs_5.1A.I"
                                        /* Ceci fut introduit le 20070103170337...                                                   */

     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="
                                                 ,fichier_des_valeurs
                                                 ,liste_des_valeurs
                                                 ,VALEUR_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         PROKESF_ARGUMENT_FICHIER("fichierA="
                                                 ,fichier_des_valeurs_A
                                                 ,liste_des_valeurs_A
                                                 ,VALEUR_IMPLICITE_A
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );
                         PROKESF_ARGUMENT_FICHIER("fichierB="
                                                 ,fichier_des_valeurs_B
                                                 ,liste_des_valeurs_B
                                                 ,VALEUR_IMPLICITE_B
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         GET_ARGUMENT_L("adapter_signe_translation=""ast=",adapter_le_signe_de_la_constante_de_translation);

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
                                        /* Cette procedure fut introduite le 20070103170337...                                       */

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
                                        /* Cette procedure fut introduite le 20061226190303...                                       */

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
                                        /* Cette procedure fut introduite le 20211005104033...                                       */
                         )
                    );

     gOPERATION_SUR_LES_FICHIERS(BLOC(
                                      DEFV(Float,INIT(valeur_courante,ELEMENT_DU_FICHIER(index)));
                                      DEFV(Float,INIT(facteur_d_homothetie,ELEMENT_DU_FICHIER_A(index)));
                                      DEFV(Float,INIT(constante_de_translation,ELEMENT_DU_FICHIER_B(index)));
                                        /* Recuperation des valeurs courantes dans les trois fichiers.                               */
                                      )
                                ,AXPB(facteur_d_homothetie
                                     ,valeur_courante
                                     ,COND(IL_NE_FAUT_PAS(adapter_le_signe_de_la_constante_de_translation)
                                          ,NEUT(constante_de_translation)
                                          ,MEME_SIGNE_QUE(valeur_courante,constante_de_translation)
                                           )
                                      )
                                ,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
                                ,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
                                 );
                                        /* Mise a l'echelle du fichier argument.                                                     */

     lGENERATION_D_UN_FICHIER(liste_des_valeurs_B,VALEUR_IMPLICITE_B);
     lGENERATION_D_UN_FICHIER(liste_des_valeurs_A,VALEUR_IMPLICITE_A);
     lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande