/*************************************************************************************************************************************/
/* */
/* A C C U M U L A T I O N P R O G R E S S I V E , E L E M E N T A P R E S E L E M E N T , */
/* D E S E L E M E N T S D ' U N F I C H I E R N U M E R I Q U E : */
/* */
/* */
/* ATTENTION : */
/* */
/* Le 20131213104458, je note que contrairement */
/* a une idee naive, l'ordre des elements accumules */
/* est on ne peut plus important. Ainsi, par exemple : */
/* */
/* +1 ==> +1 */
/* +1 ==> +2 */
/* -1 ==> +1 */
/* -1 ==> +0 */
/* -1 ==> -1 */
/* -1 ==> -2 */
/* -1 ==> -3 */
/* -1 ==> -4 */
/* | */
/* ------> minimum=-4 */
/* maximum=+2 */
/* */
/* qui atteint donc des valeurs positives, alors que : */
/* */
/* -1 ==> -1 */
/* -1 ==> -2 */
/* -1 ==> -3 */
/* -1 ==> -4 */
/* -1 ==> -5 */
/* -1 ==> -6 */
/* +1 ==> -5 */
/* +1 ==> -4 */
/* | */
/* ------> minimum=-6 */
/* maximum=-1 */
/* */
/* qui n'a que des valeurs negatives... */
/* */
/* Cela fut note lors de la realisation des */
/* images telle 'v $xiirv/PIPO.51.21'... */
/* */
/* */
/* Author of '$xrv/accumule.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20010606094645). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 EDITER_LE_CUMUL_INITIAL \
FAUX \
/* Faut-il ('VRAI') ou pas ('FAUX') editer le cumul initial ? Ceci a ete introduit le */ \
/* 20100107155536 pour etre utilise dans 'v $xiirv/.PRIM.81.5.$U cumul_initial'. */
#define TRANSLATER_LE_CUMUL_COURANT \
FAUX \
/* Faut-il ('VRAI') ou pas ('FAUX') translater le cumul courant ? Ceci a ete introduit le */ \
/* 20041010090724 pour etre utilise dans 'v $xiirv/.BROW.11.1.$U translater'. */
#define INDEX_DE_TRANSLATION_DU_CUMUL_COURANT \
PREMIER_ELEMENT_D_UN_FICHIER \
/* Si 'IL_FAUT(translater_le_cumul_courant)' donne l'index de l'element dans le fichier */ \
/* qui definit la translation. La valeur par defaut permet de generer une liste de valeur */ \
/* dont la premiere est l'"origine"... */
#define SEUIL_DE_REINITIALISATION_DU_CUMUL_COURANT \
F_INFINI \
/* Seuil au dela duquel le cumul est reinitialise. Ceci a ete introduit le 20020709154458 */ \
/* et pour disposer du comportement anterieur, il suffit de conserver cette valeur infinie. */ \
/* Ce dispositif a ete introduit pour faciliter le decoupage d'un fichier numerique en */ \
/* paquets de tailles variables, mais de cumuls donnes (a epsilon pres...). */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 20060214185443... */
#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 CUMUL_COURANT_EFFECTIF \
COND(IL_NE_FAUT_PAS(translater_le_cumul_courant) \
,cumul_courant \
,SOUS(cumul_courant,ELEMENT_DU_FICHIER(index_de_translation_du_cumul_courant)) \
) \
/* Valeur de 'cumul_courant' a editer effectivement (introduit le 20100107155536). */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* A C C U M U L A T I O N P R O G R E S S I V E , E L E M E N T A P R E S E L E M E N T , */
/* D E S E L E M E N T S 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(Logical,INIT(editer_le_cumul_initial,EDITER_LE_CUMUL_INITIAL));
/* Faut-il ('VRAI') ou pas ('FAUX') editer le cumul initial ? Ceci a ete introduit le */
/* 20100107155536 pour etre utilise dans 'v $xiirv/.PRIM.81.5.$U cumul_initial'. */
DEFV(Logical,INIT(translater_le_cumul_courant,TRANSLATER_LE_CUMUL_COURANT));
/* Faut-il ('VRAI') ou pas ('FAUX') translater le cumul courant ? Ceci a ete introduit le */
/* 20041010090724 pour etre utilise dans 'v $xiirv/.BROW.11.1.$U translater'. */
DEFV(Int,INIT(index_de_translation_du_cumul_courant,INDEX_DE_TRANSLATION_DU_CUMUL_COURANT));
/* Si 'IL_FAUT(translater_le_cumul_courant)' donne l'index de l'element dans le fichier */
/* qui definit la translation. La valeur par defaut permet de generer une liste de valeur */
/* dont la premiere est l'"origine"... */
DEFV(Float,INIT(seuil_de_reinitialisation_du_cumul_courant,SEUIL_DE_REINITIALISATION_DU_CUMUL_COURANT));
/* Seuil au dela duquel le cumul est reinitialise. Ceci a ete introduit le 20020709154458 */
/* et pour disposer du comportement anterieur, il suffit de conserver cette valeur infinie. */
/* Ce dispositif a ete introduit pour faciliter le decoupage d'un fichier numerique en */
/* paquets de tailles variables, mais de cumuls donnes (a epsilon pres...). */
DEFV(Float,INIT(cumul_courant,FZERO));
/* Donne pour chaque element du fichier, le cumul de tous les elements du fichier, y */
/* compris l'element courant. */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
/* Ceci fut introduit le 20070103173134... */
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_L("cumul_initial=""ci=",editer_le_cumul_initial);
/* Argument introduit le 20100107155536... */
GET_ARGUMENT_L("translater=",translater_le_cumul_courant);
GET_ARGUMENT_I("it=""index_translation=""index=",index_de_translation_du_cumul_courant);
GET_ARGUMENT_F("seuil=",seuil_de_reinitialisation_du_cumul_courant);
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
/* Cette procedure fut introduite le 20070103173134... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
/* Cette procedure fut introduite le 20061226192427... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
/* Cette procedure fut introduite le 20211005105354... */
)
);
Test(IL_FAUT(editer_le_cumul_initial))
Bblock
EDITION_DANS_gOPERATION_SUR_LES_FICHIERS_AVEC_SAUT_DE_LIGNE(CUMUL_COURANT_EFFECTIF);
/* Introduit sous cette forme le 20160804094546... */
Eblock
ATes
Bblock
Eblock
ETes
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(valeur_courante,ELEMENT_DU_FICHIER(index)));
/* Recuperation de la valeur courante dans le fichier. */
Test(IFGT(cumul_courant,seuil_de_reinitialisation_du_cumul_courant))
Bblock
EGAL(cumul_courant,FZERO);
/* Lorsque le cumul courant depasse le seuil, il est reinitialise... */
Eblock
ATes
Bblock
Eblock
ETes
INCR(cumul_courant,valeur_courante);
/* Cumul courant... */
)
,CUMUL_COURANT_EFFECTIF
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Cumul courant du fichier argument. */
lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);
RETU_Commande;
Eblock
ECommande