/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T R A N S F O R M A T I O N   T R I G O N O M E T R I Q U E   D E   D E U X   F I C H I E R S   N U M E R I Q U E S  :     */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Definition :                                                                                                               */
/*                                                                                                                                   */
/*                    Cette commande transforme le fichier argument                                                                  */
/*                  a l'aide de la transformation suivante :                                                                         */
/*                                                                                                                                   */
/*                                         h.theta                                                                                   */
/*                                      R.e       .[alpha.cos(theta) + beta.sin(theta) + gamma] + T                                  */
/*                                                                                                                                   */
/*                  ou 'theta' represente la valeur courante. Elle                                                                   */
/*                  est tres inspiree de 'v $xci/valeurs_trig$K'.                                                                    */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Nota :                                                                                                                     */
/*                                                                                                                                   */
/*                    Ce programme est derive de 'v $xrv/CERCLE.01$K'                                                                */
/*                  que je n'ai pas voulu modifier afin de ne pas avoir                                                              */
/*                  de problemes de compatibilite anterieure...                                                                      */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/CERCLE.02$K' :                                                                                             */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20191002140303).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   FACTEUR_DE_L_EXPOSANT                                                                                                         \
                    FZERO                                                                                                               \
                                        /* Definition du facteur multiplicatif de l'exposant de l'exponentielle.                     */
#define   ALPHA                                                                                                                         \
                    FU
#define   BETA                                                                                                                          \
                    FZERO
#define   GAMMA                                                                                                                         \
                    FZERO
                                        /* Definition des coefficients 'a', 'b' et 'c' de la forme 'LIN2(...)' a calculer...         */

#define   TRANSLATION_ABSOLUE                                                                                                           \
                    FZERO                                                                                                               \
                                        /* Translation absolue 'T'.                                                                  */

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

#define   RHO__IMPLICITE                                                                                                                \
                    FU
#define   THETA_IMPLICITE                                                                                                               \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_rho_,liste_rho_);
gGENERATION_D_UN_FICHIER(fichier_theta,liste_theta);
                                        /* Definition en memoire des fichiers.                                                       */

#define   ELEMENT_DU_FICHIER_RHO_(index)                                                                                                \
                    gELEMENT_DU_FICHIER(liste_rho_,index)
#define   ELEMENT_DU_FICHIER_THETA(index)                                                                                               \
                    gELEMENT_DU_FICHIER(liste_theta,index)
                                        /* Acces a un element courant des fichiers.                                                  */

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

     DEFV(Float,INIT(facteur_de_l_exposant,FACTEUR_DE_L_EXPOSANT));
                                        /* Definition du facteur multiplicatif de l'exposant de l'exponentielle.                     */
     DEFV(Float,INIT(alpha,ALPHA));
     DEFV(Float,INIT(beta,BETA));
     DEFV(Float,INIT(gamma,GAMMA));
                                        /* Definition des coefficients 'a', 'b' et 'c' de la forme 'LIN2(...)' a calculer...         */
     DEFV(Float,INIT(translation_absolue,TRANSLATION_ABSOLUE));
                                        /* Translation absolue 'T'.                                                                  */
     /*..............................................................................................................................*/
#include  xrv/champs_5.1A.I"

     iGENERATION_D_UN_FICHIER(liste_rho_,RHO__IMPLICITE);
     iGENERATION_D_UN_FICHIER(liste_theta,THETA_IMPLICITE);

     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("rho="
                                                 ,fichier_rho_
                                                 ,liste_rho_
                                                 ,RHO__IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );
                         PROKESF_ARGUMENT_FICHIER("theta="
                                                 ,fichier_theta
                                                 ,liste_theta
                                                 ,THETA_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         GET_ARGUMENT_F("h=""facteur=",facteur_de_l_exposant);
                         GET_ARGUMENT_F("alpha=""a=",alpha);
                         GET_ARGUMENT_F("beta=""b=",beta);
                         GET_ARGUMENT_F("gamma=""c=",gamma);
                         GET_ARGUMENT_F("translation=""T=",translation_absolue);

                         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;
                                        /* Cette procedure fut introduite le 20211005104105...                                       */
                         )
                    );

     gOPERATION_SUR_LES_FICHIERS(BLOC(
                                      DEFV(Float,INIT(rho__courant,ELEMENT_DU_FICHIER_RHO_(index)));
                                      DEFV(Float,INIT(theta_courant,ELEMENT_DU_FICHIER_THETA(index)));
                                        /* Recuperation des valeurs courantes dans les fichiers.                                     */
                                      )
                                ,ADD2(MUL3(rho__courant
                                          ,EXPB(MUL2(facteur_de_l_exposant,theta_courant))
                                          ,LIN2(alpha,COSX(theta_courant)
                                               ,beta,SINX(theta_courant)
                                               ,gamma
                                                )
                                           )
                                     ,translation_absolue
                                      )
                                ,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_theta,THETA_IMPLICITE);
     lGENERATION_D_UN_FICHIER(liste_rho_,RHO__IMPLICITE);

     RETU_Commande;
     Eblock
ECommande