/*************************************************************************************************************************************/
/* */
/* 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 N O M B R E S H Y P E R - C O M P L E X E S : */
/* */
/* */
/* Author of '$xrv/RIJK_RTPA.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20061209113138). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 PONDERATION_RHO___IMPLICITE \
FZERO
#define PONDERATION_THETA__IMPLICITE \
FZERO
#define PONDERATION_PHI___IMPLICITE \
FZERO
#define PONDERATION_ALPHA_IMPLICITE \
FZERO
/* Ponderation de selection des composantes apres transformation. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 R_IMPLICITE \
FZERO
#define I_IMPLICITE \
FZERO
#define J_IMPLICITE \
FZERO
#define K_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier_LISTE_R,liste_initiale_des_R);
gGENERATION_D_UN_FICHIER(fichier_LISTE_I,liste_initiale_des_I);
gGENERATION_D_UN_FICHIER(fichier_LISTE_J,liste_initiale_des_J);
gGENERATION_D_UN_FICHIER(fichier_LISTE_K,liste_initiale_des_K);
/* Definition en memoire des fichiers de composantes cartesiennes. */
#define ELEMENT_DU_FICHIER_LISTE_R(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_R,index)
#define ELEMENT_DU_FICHIER_LISTE_I(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_I,index)
#define ELEMENT_DU_FICHIER_LISTE_J(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_J,index)
#define ELEMENT_DU_FICHIER_LISTE_K(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_K,index)
/* Acces a un element courant des fichiers de composantes 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 N O M B R E S H Y P E R - C O M P L E X E S : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
DEFV(Float,INIT(ponderation_RHO__,PONDERATION_RHO___IMPLICITE));
DEFV(Float,INIT(ponderation_THETA_,PONDERATION_THETA__IMPLICITE));
DEFV(Float,INIT(ponderation_PHI__,PONDERATION_PHI___IMPLICITE));
DEFV(Float,INIT(ponderation_ALPHA,PONDERATION_ALPHA_IMPLICITE));
/* Ponderation de selection des composantes apres transformation. */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
/* Ceci fut introduit le 20070103172543... */
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_R="
,fichier_LISTE_R
,liste_initiale_des_R
,R_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_I="
,fichier_LISTE_I
,liste_initiale_des_I
,I_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_J="
,fichier_LISTE_J
,liste_initiale_des_J
,J_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_K="
,fichier_LISTE_K
,liste_initiale_des_K
,K_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_F("pRHO=""Pond1=",ponderation_RHO__);
GET_ARGUMENT_F("pTHETA=""Pond2=",ponderation_THETA_);
GET_ARGUMENT_F("pPHI=""Pond3=",ponderation_PHI__);
GET_ARGUMENT_F("pALPHA=""Pond4=",ponderation_ALPHA);
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
/* Cette procedure fut introduite le 20070103172543... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
/* Cette procedure fut introduite le 20061226193829... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
/* Cette procedure fut introduite le 20211005104810... */
)
);
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(composante_R,ELEMENT_DU_FICHIER_LISTE_R(index)));
DEFV(Float,INIT(composante_I,ELEMENT_DU_FICHIER_LISTE_I(index)));
DEFV(Float,INIT(composante_J,ELEMENT_DU_FICHIER_LISTE_J(index)));
DEFV(Float,INIT(composante_K,ELEMENT_DU_FICHIER_LISTE_K(index)));
/* Recuperation des composantes {R,I,J,K} courantes dans les fichiers. */
DEFV(hyper_complexe,nombre_RIJK);
FHCinitialisation(nombre_RIJK
,composante_R
,composante_I
,composante_J
,composante_K
);
/* Nombre hyper-complexe de manoeuvre. */
)
,LIZ4(ponderation_RHO__,FHCmodule(nombre_RIJK)
,ponderation_THETA_,FHCargumentT_2PI(nombre_RIJK)
,ponderation_PHI__,FHCargumentP_2PI(nombre_RIJK)
,ponderation_ALPHA,FHCargumentA_2PI(nombre_RIJK)
)
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Conversion cartesienne-hyper-spherique. */
lGENERATION_D_UN_FICHIER(liste_initiale_des_K,K_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_J,J_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_I,I_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_R,R_IMPLICITE);
RETU_Commande;
Eblock
ECommande