/*************************************************************************************************************************************/
/* */
/* N O R M A L I S A T I O N D E C H A Q U E E L E M E N T D ' U N F I C H I E R N U M E R I Q U E */
/* P A R R A P P O R T A D E U X F I C H I E R S D ' E X T R E M A : */
/* */
/* */
/* Author of '$xrv/normalise.02$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20131203164329). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 NORMALISER \
VRAI \
/* Faut-il normaliser ('VRAI') ou pas ('FAUX') ? */
#define MINIMUM_NOUVEAU \
COORDONNEE_BARYCENTRIQUE_MINIMALE
#define MAXIMUM_NOUVEAU \
COORDONNEE_BARYCENTRIQUE_MAXIMALE
/* Pour definir le facteur d'homothetie et la constante de translation... */
#define IGNORER_L_UNIFORMITE_DU_FICHER \
VRAI
#define VALEUR_A_FORCER_DANS_LE_CAS_DE_L_UNIFORMITE_DU_FICHER \
COORDONNEE_BARYCENTRIQUE_CENTRALE
#define CONSERVER_UNE_VALEUR_PARTICULIERE \
FAUX
#define VALEUR_PARTICULIERE_A_CONSERVER \
FZERO
/* Par symetrie avec 'v $xrv/normalise.01$K CONSERVER_UNE_VALEUR_PARTICULIERE'... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D U F I C H I E R : */
/* */
/*************************************************************************************************************************************/
#include xrv/ARITHMET.1d.I"
#define NOMBRE_DE_DECIMALES \
SEIZE
#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. */
#define VALEUR_MINIMALE_IMPLICITE \
COORDONNEE_BARYCENTRIQUE_MINIMALE
gGENERATION_D_UN_FICHIER(fichier_des_minima,liste_des_minima);
#define VALEUR_MAXIMALE_IMPLICITE \
COORDONNEE_BARYCENTRIQUE_MAXIMALE
gGENERATION_D_UN_FICHIER(fichier_des_maxima,liste_des_maxima);
/* Definition en memoire des fichiers d'extrema. */
#define ELEMENT_DU_FICHIER_DES_MINIMA(index) \
gELEMENT_DU_FICHIER(liste_des_minima,index)
#define ELEMENT_DU_FICHIER_DES_MAXIMA(index) \
gELEMENT_DU_FICHIER(liste_des_maxima,index)
/* Acces a un element courant des fichiers d'extrema. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S E D I T I O N S : */
/* */
/*************************************************************************************************************************************/
#define FORMAT_EFFECTIF_D_EDITION(message) \
Cara(chain_Aconcaten5(message,INTRODUCTION_FORMAT,valeurs_signees,".*",format_d_edition)) \
/* Format effectif de certaines editions... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* N O R M A L I S A T I O N D E C H A Q U E E L E M E N T D ' U N F I C H I E R N U M E R I Q U E */
/* P A R R A P P O R T A D E U X F I C H I E R S D ' E X T R E M A : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(Logical,INIT(normaliser,NORMALISER));
/* Faut-il normaliser ('VRAI') ou pas ('FAUX') ? */
DEFV(Float,INIT(minimum_nouveau,MINIMUM_NOUVEAU));
DEFV(Float,INIT(maximum_nouveau,MAXIMUM_NOUVEAU));
/* Pour definir le l'intervalle de normalisation... */
DEFV(Logical,INIT(ignorer_l_uniformite_du_ficher,IGNORER_L_UNIFORMITE_DU_FICHER));
DEFV(Float,INIT(valeur_a_forcer_dans_le_cas_de_l_uniformite_du_ficher,VALEUR_A_FORCER_DANS_LE_CAS_DE_L_UNIFORMITE_DU_FICHER));
DEFV(Logical,INIT(conserver_une_valeur_particuliere,CONSERVER_UNE_VALEUR_PARTICULIERE));
DEFV(Float,INIT(valeur_particuliere_a_conserver,VALEUR_PARTICULIERE_A_CONSERVER));
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
/*..............................................................................................................................*/
#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("fichier="
,fichier_des_valeurs
,liste_des_valeurs
,VALEUR_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("minima="
,fichier_des_minima
,liste_des_minima
,VALEUR_MINIMALE_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("maxima="
,fichier_des_maxima
,liste_des_maxima
,VALEUR_MAXIMALE_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_L("normaliser=",normaliser);
GET_ARGUMENT_F("minimum=""m=""mR=""origine=",minimum_nouveau);
GET_ARGUMENT_F("maximum=""M=""MR=""extremite=",maximum_nouveau);
/* On notera que l'on ne peut definir "o=" et "e=" car ce dernier l'est deja dans */
/* 'v $xci/valeurs.02$I .entier=..e=.'. */
GET_ARGUMENT_L("ignorer_uniformite=""iu=",ignorer_l_uniformite_du_ficher);
GET_ARGUMENT_F("valeur_uniforme=""vu=",valeur_a_forcer_dans_le_cas_de_l_uniformite_du_ficher);
GET_ARGUMENT_L("conserver_valeur=""cv=",conserver_une_valeur_particuliere);
GET_ARGUMENT_F("valeur_a_conserver=""vac=",valeur_particuliere_a_conserver);
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 20211005105745... */
)
);
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(minimum_courant,ELEMENT_DU_FICHIER_DES_MINIMA(index)));
DEFV(Float,INIT(maximum_courant,ELEMENT_DU_FICHIER_DES_MAXIMA(index)));
/* Recuperation des extrema courants dans les fichiers. */
)
,COND(IL_FAUT(normaliser)
,COND(IFOU(IL_FAUT(ignorer_l_uniformite_du_ficher)
,IFET(IL_NE_FAUT_PAS(ignorer_l_uniformite_du_ficher)
,IFNE(minimum_courant,maximum_courant)
)
)
,COND(IFOU(IL_NE_FAUT_PAS(conserver_une_valeur_particuliere)
,IFET(IL_FAUT(conserver_une_valeur_particuliere)
,IFNE(valeur_courante,valeur_particuliere_a_conserver)
)
)
,HOMZ(valeur_courante
,minimum_courant,maximum_courant
,minimum_nouveau,maximum_nouveau
,minimum_nouveau
)
,valeur_courante
)
,valeur_a_forcer_dans_le_cas_de_l_uniformite_du_ficher
)
,valeur_courante
)
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Normalisation du fichier argument. */
lGENERATION_D_UN_FICHIER(liste_des_maxima,VALEUR_MAXIMALE_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_des_minima,VALEUR_MINIMALE_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);
RETU_Commande;
Eblock
ECommande
Copyright © Jean-François COLONNA, 2019-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2019-2024.