/*************************************************************************************************************************************/
/* */
/* D I S T A N C E U N I V E R S E L L E E N T R E D E U X L I S T E S D E P O I N T S : */
/* */
/* */
/* Author of '$xrv/UdisF3D.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20130331092234). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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_R_ \
FU
#define PONDERATION_AI \
FZERO
#define PONDERATION_AS \
FZERO
#define PONDERATION_AC \
FZERO
#define PONDERATION_AM \
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"
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define X1_IMPLICITE \
FZERO
#define Y1_IMPLICITE \
FZERO
#define Z1_IMPLICITE \
FZERO
#define X2_IMPLICITE \
FZERO
#define Y2_IMPLICITE \
FZERO
#define Z2_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier_LISTE_X1,liste_initiale_des_X1);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Y1,liste_initiale_des_Y1);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Z1,liste_initiale_des_Z1);
gGENERATION_D_UN_FICHIER(fichier_LISTE_X2,liste_initiale_des_X2);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Y2,liste_initiale_des_Y2);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Z2,liste_initiale_des_Z2);
/* Definition en memoire des fichiers de coordonnees cartesiennes. */
#define ELEMENT_DU_FICHIER_LISTE_X1(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_X1,index)
#define ELEMENT_DU_FICHIER_LISTE_Y1(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_Y1,index)
#define ELEMENT_DU_FICHIER_LISTE_Z1(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_Z1,index)
#define ELEMENT_DU_FICHIER_LISTE_X2(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_X2,index)
#define ELEMENT_DU_FICHIER_LISTE_Y2(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_Y2,index)
#define ELEMENT_DU_FICHIER_LISTE_Z2(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_Z2,index)
/* Acces a un element courant des fichiers de coordonnees cartesiennes. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I S T A N C E U N I V E R S E L L E E N T R E D E U X L I S T E S D E P O I N T S : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
DEFV(Float,INIT(Ponderation_R_,PONDERATION_R_));
DEFV(Float,INIT(Ponderation_AI,PONDERATION_AI));
DEFV(Float,INIT(Ponderation_AS,PONDERATION_AS));
DEFV(Float,INIT(Ponderation_AC,PONDERATION_AC));
DEFV(Float,INIT(Ponderation_AM,PONDERATION_AM));
/* Ponderation de selection des differentes distances... */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
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_X1="
,fichier_LISTE_X1
,liste_initiale_des_X1
,X1_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_Y1="
,fichier_LISTE_Y1
,liste_initiale_des_Y1
,Y1_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_Z1="
,fichier_LISTE_Z1
,liste_initiale_des_Z1
,Z1_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_X2="
,fichier_LISTE_X2
,liste_initiale_des_X2
,X2_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_Y2="
,fichier_LISTE_Y2
,liste_initiale_des_Y2
,Y2_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_Z2="
,fichier_LISTE_Z2
,liste_initiale_des_Z2
,Z2_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_F("pR=",Ponderation_R_);
GET_ARGUMENT_F("pAI=",Ponderation_AI);
GET_ARGUMENT_F("pAS=",Ponderation_AS);
GET_ARGUMENT_F("pAC=",Ponderation_AC);
GET_ARGUMENT_F("pAM=",Ponderation_AM);
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 20211005105303... */
)
);
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(coordonnee_X1,ELEMENT_DU_FICHIER_LISTE_X1(index)));
DEFV(Float,INIT(coordonnee_Y1,ELEMENT_DU_FICHIER_LISTE_Y1(index)));
DEFV(Float,INIT(coordonnee_Z1,ELEMENT_DU_FICHIER_LISTE_Z1(index)));
/* Recuperation des coordonnees {X1,Y1,Z1} courantes dans les fichiers. */
DEFV(Float,INIT(coordonnee_X2,ELEMENT_DU_FICHIER_LISTE_X2(index)));
DEFV(Float,INIT(coordonnee_Y2,ELEMENT_DU_FICHIER_LISTE_Y2(index)));
DEFV(Float,INIT(coordonnee_Z2,ELEMENT_DU_FICHIER_LISTE_Z2(index)));
/* Recuperation des coordonnees {X2,Y2,Z2} courantes dans les fichiers. */
)
,UdisF3D(coordonnee_X1,coordonnee_Y1,coordonnee_Z1
,coordonnee_X2,coordonnee_Y2,coordonnee_Z2
,Ponderation_R_
,Ponderation_AI
,Ponderation_AS
,Ponderation_AC
,Ponderation_AM
)
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Distance universelle... */
lGENERATION_D_UN_FICHIER(liste_initiale_des_Z2,Z2_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_Y2,Y2_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_X2,X2_IMPLICITE);
/* Introduit le 20150701091038 (avec beaucoup de retard...). */
lGENERATION_D_UN_FICHIER(liste_initiale_des_Z1,Z1_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_Y1,Y1_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_X1,X1_IMPLICITE);
RETU_Commande;
Eblock
ECommande