/*************************************************************************************************************************************/
/* */
/* L O G A R I T H M E N E P E R I E N D ' U N F I C H I E R N U M E R I Q U E : */
/* */
/* */
/* Author of '$xrv/LOGX.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 19990204102006). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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_D_HOMOTHETIE \
FU
#define CONSTANTE_DE_TRANSLATION \
FZERO
/* Parametres de la mise a l'echelle des elements du fichier Argument. Ceci est destine */
/* principalement a eliminer les logarithmes negatifs en utilisant, par exemple, une */
/* translation de 1. */
#define PRENDRE_A_PRIORI_LES_VALEURS_ABSOLUES \
FAUX \
/* Doit-on prendre a priori les valeurs absolue ('VRAI') ou conserver les valeurs meme */ \
/* negatives ? Ceci fut introduit le 20121022101136... */
#define AUTORISER_LES_VALEURS_NEGATIVES \
FAUX \
/* Doit-on autoriser les valeurs negatives ('VRAI') -en prenant leur valeur absolue et en */ \
/* modifiant le signe du logarithme en fonction de celui de son argument- ou pas ('FAUX') ? */ \
/* Ceci fut introduit le 20121019101247... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D U F I C H I E R : */
/* */
/*************************************************************************************************************************************/
#include xrv/ARITHMET.1d.I"
/* Passage a l'allocation dynamique le 20060214175508... */
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define VALEUR_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier_des_valeurs,liste_des_valeurs);
/* Definition en memoire du fichier. */
#define ELEMENT_DU_FICHIER(index) \
gELEMENT_DU_FICHIER(liste_des_valeurs,index) \
/* Acces a un element courant du fichier. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* L O G A R I T H M E N E P E R I E N D ' U N F I C H I E R N U M E R I Q U E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
DEFV(Float,INIT(facteur_d_homothetie,FACTEUR_D_HOMOTHETIE));
DEFV(Float,INIT(constante_de_translation,CONSTANTE_DE_TRANSLATION));
/* Parametres de la mise a l'echelle des elements du fichier Argument. Ceci est destine */
/* principalement a eliminer les logarithmes negatifs en utilisant, par exemple, une */
/* translation de 1. */
DEFV(Logical,INIT(prendre_a_priori_les_valeurs_absolues,PRENDRE_A_PRIORI_LES_VALEURS_ABSOLUES));
/* Doit-on prendre a priori les valeurs absolue ('VRAI') ou conserver les valeurs meme */
/* negatives ? Ceci fut introduit le 20121022101136... */
DEFV(Logical,INIT(autoriser_les_valeurs_negatives,AUTORISER_LES_VALEURS_NEGATIVES));
/* Doit on autoriser les valeurs negatives ('VRAI') -en prenant leur valeur absolue et en */
/* modifiant le signe du logarithme en fonction de celui de son argument- ou pas ('FAUX') ? */
/* Ceci fut introduit le 20121019101247... */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
/* Ceci fut introduit le 20070103172022... */
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("fichier="
,fichier_des_valeurs
,liste_des_valeurs
,VALEUR_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_F("homothetie=""a=""facteur=""f=",facteur_d_homothetie);
GET_ARGUMENT_F("translation=""b=""translateur=""t=",constante_de_translation);
GET_ARGUMENT_L("valeurs_absolues=""va=",prendre_a_priori_les_valeurs_absolues);
/* Arguments introduits le 20121022101136... */
GET_ARGUMENT_L("valeurs_negatives=""vn=",autoriser_les_valeurs_negatives);
GET_ARGUMENT_N("valeurs_positives=""vp=",autoriser_les_valeurs_negatives);
/* Arguments introduite le 20121019101247... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
/* Cette procedure fut introduite le 20070103172022... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
/* Cette procedure fut introduite le 20061226191812... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
/* Cette procedure fut introduite le 20211005104442... */
)
);
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(valeur_courante,ELEMENT_DU_FICHIER(index)));
/* Recuperation de la valeur courante dans le fichier. */
DEFV(Float,INIT(valeur_courante_transformee,FLOT__UNDEF));
EGAL(valeur_courante_transformee
,AXPB(facteur_d_homothetie,valeur_courante,constante_de_translation)
);
/* Et transformation lineaire de la valeur courante dans le fichier (introduite sous cette */
/* forme le 20121019100918...). */
Test(IL_FAUT(prendre_a_priori_les_valeurs_absolues))
/* Test introduit le 20121022101136... */
Bblock
EGAL(valeur_courante_transformee,ABSO(valeur_courante_transformee));
Eblock
ATes
Bblock
Eblock
ETes
Test(IFET(IZLE(valeur_courante_transformee)
,IL_NE_FAUT_PAS(autoriser_les_valeurs_negatives)
)
)
/* Test introduit le 20121019101247... */
Bblock
EGAL(valeur_courante_transformee,FU);
PRINT_ERREUR("une valeur negative ou nulle a ete rencontree apres transformation");
CAL1(Prer3("(il s'agit de %f d'index %d, la valeur 'apres transformation' %f est forcee)\n"
,valeur_courante
,index
,valeur_courante_transformee
)
);
Eblock
ATes
Bblock
Eblock
ETes
)
,LOGXfs(valeur_courante_transformee,autoriser_les_valeurs_negatives)
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Logarithme neperien du fichier argument. */
lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);
RETU_Commande;
Eblock
ECommande