/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C O N V E R S I O N   C A R T E S I E N N E --> P O L A I R E   D E S   C O O R D O N N E E S  :                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/XY_RT.01$K' :                                                                                              */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 19990408092646).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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_____OX                                                                                                                \
                    FU
#define   TRANSLATION_OX                                                                                                                \
                    FZERO

#define   FACTEUR_____OY                                                                                                                \
                    FU
#define   TRANSLATION_OY                                                                                                                \
                    FZERO
                                        /* Facteur et translation des {X,Y}s introduits le 20220620172316...                         */

#define   PONDERATION_RHO__IMPLICITE                                                                                                    \
                    FZERO
#define   PONDERATION_THETA_IMPLICITE                                                                                                   \
                    FZERO
                                        /* Ponderation de selection des coordonnees apres transformation.                            */
                                        /*                                                                                           */
                                        /* Le 20030703105924, le parametre 'PONDERATION_RHO_IMPLICITE' est passe de la valeur        */
                                        /* 'FU' a 'FZERO' par symetrie avec les autres programmes...                                 */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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"
                                        /* Passage a l'allocation dynamique le 20060214185338...                                     */
#include  xrv/ARITHMET.21.I"
#include  xrv/champs_5.41.I"

#define   X_IMPLICITE                                                                                                                   \
                    FZERO
#define   Y_IMPLICITE                                                                                                                   \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_LISTE_X,liste_initiale_des_X);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Y,liste_initiale_des_Y);
                                        /* Definition en memoire des fichiers de coordonnees cartesiennes.                           */

#define   ELEMENT_DU_FICHIER_LISTE_X(index)                                                                                             \
                    gELEMENT_DU_FICHIER(liste_initiale_des_X,index)
#define   ELEMENT_DU_FICHIER_LISTE_Y(index)                                                                                             \
                    gELEMENT_DU_FICHIER(liste_initiale_des_Y,index)
                                        /* Acces a un element courant des fichiers de coordonnees cartesiennes.                      */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C O N V E R S I O N   C A R T E S I E N N E - P O L A I R E   D E S   C O O R D O N N E E S  :                             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#include  xrv/ARITHMET.22.I"
#include  xci/valeurs.03.I"

     DEFV(Float,INIT(facteur_____OX,FACTEUR_____OX));
     DEFV(Float,INIT(translation_OX,TRANSLATION_OX));

     DEFV(Float,INIT(facteur_____OY,FACTEUR_____OY));
     DEFV(Float,INIT(translation_OY,TRANSLATION_OY));
                                        /* Facteur et translation des {X,Y}s introduits le 20220620172325...                         */

     DEFV(Float,INIT(ponderation_RHO_,PONDERATION_RHO__IMPLICITE));
     DEFV(Float,INIT(ponderation_THETA,PONDERATION_THETA_IMPLICITE));
                                        /* Ponderation de selection des coordonnees apres transformation.                            */
     /*..............................................................................................................................*/
#include  xrv/champs_5.1A.I"
                                        /* Ceci fut introduit le 20070103173119...                                                   */

     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("LISTE_X="
                                                 ,fichier_LISTE_X
                                                 ,liste_initiale_des_X
                                                 ,X_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );
                         PROKESF_ARGUMENT_FICHIER("LISTE_Y="
                                                 ,fichier_LISTE_Y
                                                 ,liste_initiale_des_Y
                                                 ,Y_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         GET_ARGUMENT_F("ax=""AX=""aX=",facteur_____OX);
                         GET_ARGUMENT_F("bx=""BX=""bX=",translation_OX);

                         GET_ARGUMENT_F("ay=""AY=""aY=",facteur_____OY);
                         GET_ARGUMENT_F("by=""BY=""bY=",translation_OY);
                                        /* Facteur et translation des {X,Y}s introduits le 20220620172325...                         */

                         GET_ARGUMENT_F("pRHO=""Pond1=",ponderation_RHO_);
                         GET_ARGUMENT_F("pTHETA=""Pond2=",ponderation_THETA);

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

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

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

     gOPERATION_SUR_LES_FICHIERS(BLOC(
                                      DEFV(Float,INIT(coordonnee_X,ELEMENT_DU_FICHIER_LISTE_X(index)));
                                      DEFV(Float,INIT(coordonnee_Y,ELEMENT_DU_FICHIER_LISTE_Y(index)));
                                        /* Recuperation des coordonnees {X,Y} courantes dans les fichiers.                           */

                                      EGAL(coordonnee_X,AXPB(facteur_____OX,coordonnee_X,translation_OX));
                                      EGAL(coordonnee_Y,AXPB(facteur_____OY,coordonnee_Y,translation_OY));
                                        /* Facteur et translation des {X,Y}s introduits le 20220620172325...                         */
                                      )
                                ,LIZ2(ponderation_RHO_,Rho_2D(coordonnee_X,coordonnee_Y)
                                     ,ponderation_THETA,Theta_2D(coordonnee_X,coordonnee_Y)
                                      )
                                ,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
                                ,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
                                 );
                                        /* Conversion cartesienne-polaire.                                                           */

     lGENERATION_D_UN_FICHIER(liste_initiale_des_Y,Y_IMPLICITE);
     lGENERATION_D_UN_FICHIER(liste_initiale_des_X,X_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande