/*************************************************************************************************************************************/
/* */
/* C O N V E R S I O N S P H E R I Q U E - C A R T E S I E N N E D E S C O O R D O N N E E S : */
/* */
/* */
/* Definitions : */
/* */
/* Les arguments devront etre definis */
/* selon : */
/* */
/* rho */
/* theta E [0,PI] */
/* phi E [0,2.PI] */
/* */
/* */
/* Author of '$xrv/RPT_XYZ.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1998??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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_OX_IMPLICITE \
FZERO
#define PONDERATION_OY_IMPLICITE \
FZERO
#define PONDERATION_OZ_IMPLICITE \
FZERO
/* Ponderation de selection des coordonnees 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"
/* Passage a l'allocation dynamique le 20060214181527... */
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define RHO_IMPLICITE \
FZERO
#define PHI_IMPLICITE \
FZERO
#define THETA_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier_LISTE_RHO,liste_initiale_des_RHO);
gGENERATION_D_UN_FICHIER(fichier_LISTE_PHI,liste_initiale_des_PHI);
gGENERATION_D_UN_FICHIER(fichier_LISTE_THETA,liste_initiale_des_THETA);
/* Definition en memoire des fichiers de coordonnees spheriques. */
#define ELEMENT_DU_FICHIER_LISTE_RHO(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_RHO,index)
#define ELEMENT_DU_FICHIER_LISTE_PHI(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_PHI,index)
#define ELEMENT_DU_FICHIER_LISTE_THETA(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_THETA,index)
/* Acces a un element courant des fichiers de coordonnees spheriques. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O N V E R S I O N S P H E R I Q U E - C A R T E S I E N N 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(ponderation_OX,PONDERATION_OX_IMPLICITE));
DEFV(Float,INIT(ponderation_OY,PONDERATION_OY_IMPLICITE));
DEFV(Float,INIT(ponderation_OZ,PONDERATION_OZ_IMPLICITE));
/* Ponderation de selection des coordonnees apres transformation. */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
/* Ceci fut introduit le 20070103172637... */
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_RHO="
,fichier_LISTE_RHO
,liste_initiale_des_RHO
,RHO_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_PHI="
,fichier_LISTE_PHI
,liste_initiale_des_PHI
,PHI_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_THETA="
,fichier_LISTE_THETA
,liste_initiale_des_THETA
,THETA_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_F("px=""pX=""Pond1=",ponderation_OX);
/* A ne pas confondre avec 'v $xig/fonct$vv$DEF ENTREE_ARGUMENT_pasX'... */
GET_ARGUMENT_F("py=""pY=""Pond2=",ponderation_OY);
/* A ne pas confondre avec 'v $xig/fonct$vv$DEF ENTREE_ARGUMENT_pasY'... */
GET_ARGUMENT_F("pz=""pZ=""Pond3=",ponderation_OZ);
/* A ne pas confondre avec 'v $xig/fonct$vv$DEF ENTREE_ARGUMENT_pasZ'... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
/* Cette procedure fut introduite le 20070103172637... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
/* Cette procedure fut introduite le 20061226192210... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
/* Cette procedure fut introduite le 20211005104838... */
)
);
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(coordonnee_RHO,ELEMENT_DU_FICHIER_LISTE_RHO(index)));
DEFV(Float,INIT(coordonnee_PHI,ELEMENT_DU_FICHIER_LISTE_PHI(index)));
DEFV(Float,INIT(coordonnee_THETA,ELEMENT_DU_FICHIER_LISTE_THETA(index)));
/* Recuperation des coordonnees {Rho,Phi,Theta} courantes dans les fichiers. */
)
,LIZ3(ponderation_OX,Xcartesienne_3D(coordonnee_RHO,coordonnee_PHI,coordonnee_THETA)
,ponderation_OY,Ycartesienne_3D(coordonnee_RHO,coordonnee_PHI,coordonnee_THETA)
,ponderation_OZ,Zcartesienne_3D(coordonnee_RHO,coordonnee_PHI,coordonnee_THETA)
)
/* Calcul pondere des trois coordonnees : */
/* */
/* X = coordonnee_RHO*cos(coordonnee_PHI)*sin(coordonnee_THETA) */
/* Y = coordonnee_RHO*sin(coordonnee_PHI)*sin(coordonnee_THETA) */
/* Z = coordonnee_RHO*cos(coordonnee_THETA) */
/* */
/* (verification faite le 20241007105935 via le '$c' de ce '$K'...). */
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Conversion spherique-cartesienne. */
/* */
/* On notera le 20110320114216 que si : */
/* */
/* coordonnee_THETA = pi/2 */
/* */
/* pour tout {coordonnee_RHO,coordonnee_PHI}, alors on se retrouve dans le cas */
/* bidimensionnel avec : */
/* */
/* Z = 0 */
/* */
/* et donc en coordonnees polaires {RHO,PHI}... */
lGENERATION_D_UN_FICHIER(liste_initiale_des_THETA,THETA_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_PHI,PHI_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_RHO,RHO_IMPLICITE);
RETU_Commande;
Eblock
ECommande