/*************************************************************************************************************************************/
/* */
/* S O M M E T E N S O R I E L L E D E D E U X F I C H I E R S N U M E R I Q U E S : */
/* */
/* */
/* Author of '$xrv/ADD2Tenso.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20081110102500). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 20060214132914... */
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define VALEUR_1_IMPLICITE \
FZERO
#define VALEUR_2_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier1_des_valeurs,liste1_des_valeurs);
gGENERATION_D_UN_FICHIER(fichier2_des_valeurs,liste2_des_valeurs);
/* Definition en memoire des fichiers. */
#define ELEMENT_DU_FICHIER1(index) \
gELEMENT_DU_FICHIER(liste1_des_valeurs,index)
#define ELEMENT_DU_FICHIER2(index) \
gELEMENT_DU_FICHIER(liste2_des_valeurs,index)
/* Acces a un element courant des fichiers. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S O M M E T E N S O R I E L L E D E D E U X F I C H I E R S N U M E R I Q U E S : */
/* */
/*************************************************************************************************************************************/
#define SOMME_MAXIMALE_DES_INDEX \
INFINI
DEFV(Local,DEFV(Int,INIT(somme_maximale_des_index,SOMME_MAXIMALE_DES_INDEX)));
/* Introduit le 20161019143351 afin de pouvoir traiter qu'uniquement la moitie */
/* triangulaire du carre forme par 'fichier1_des_valeurs*fichier2_des_valeurs'... */
#define PARAMETRE_A \
FU
#define PARAMETRE_B \
FU
#define PARAMETRE_C \
FZERO
#define PARAMETRE_D \
FZERO
DEFV(Local,DEFV(Float,INIT(parametre_A,PARAMETRE_A)));
DEFV(Local,DEFV(Float,INIT(parametre_B,PARAMETRE_B)));
DEFV(Local,DEFV(Float,INIT(parametre_C,PARAMETRE_C)));
DEFV(Local,DEFV(Float,INIT(parametre_D,PARAMETRE_D)));
/* Parametres {A,B,C} de la combinaison lineaire introduit le 20161019094212, les valeurs */
/* par defaut garantissant la compatibilite anterieure... */
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
/* Ceci fut introduit le 20070103170140... */
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("fichier1="
,fichier1_des_valeurs
,liste1_des_valeurs
,VALEUR_1_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("fichier2="
,fichier2_des_valeurs
,liste2_des_valeurs
,VALEUR_2_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
/* Cette procedure fut introduite le 20070103170140... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
/* Cette procedure fut introduite le 20061226190230... */
GET_ARGUMENT_I("somme_maximale_index=""smi=",somme_maximale_des_index);
/* Introduit le 20161019143351... */
GET_ARGUMENT_F("alpha=""a=",parametre_A);
GET_ARGUMENT_F("beta=""b=",parametre_B);
GET_ARGUMENT_F("gamma=""c=",parametre_C);
GET_ARGUMENT_F("delta=""d=",parametre_D);
/* Arguments introduits le 20161019094212, puis completes le 20161019143351 avec 'D'... */
)
);
begin_nouveau_block
Bblock
DEFV(Int,INIT(index_1,UNDEF));
DEFV(Int,INIT(index_2,UNDEF));
/* Index de parcours des deux fichiers... */
DoIn(index_1,PREMIER_ELEMENT_D_UN_FICHIER,DERNIER_ELEMENT_D_UN_FICHIER,I)
Bblock
DoIn(index_2,PREMIER_ELEMENT_D_UN_FICHIER,DERNIER_ELEMENT_D_UN_FICHIER,I)
Bblock
Test(IFLE(ADD2(SOUS(index_1,PREMIER_ELEMENT_D_UN_FICHIER)
,SOUS(index_2,PREMIER_ELEMENT_D_UN_FICHIER)
)
,somme_maximale_des_index
)
)
Bblock
DEFV(Float,INIT(valeur1_courante,ELEMENT_DU_FICHIER1(index_1)));
DEFV(Float,INIT(valeur2_courante,ELEMENT_DU_FICHIER2(index_2)));
/* Recuperation des valeurs courantes dans les fichiers. */
EDITION_DANS_gOPERATION_SUR_LES_FICHIERS_AVEC_SAUT_DE_LIGNE(LIN3(parametre_A
,valeur1_courante
,parametre_B
,valeur2_courante
,parametre_C
,MUL2(valeur1_courante,valeur2_courante)
,parametre_D
)
);
/* Introduit sous cette forme le 20160804094159. Le 20161019094212 le 'ADD2(...)' a ete */
/* remplace par un 'LIN2(...)' pour plus de generalite. Le 20161019143351, a ete introduit */
/* le produit avec 'MUL2(...)' pour encore plus de generalite... */
Eblock
ATes
Bblock
Eblock
ETes
Eblock
EDoI
Eblock
EDoI
Eblock
end_nouveau_block
lGENERATION_D_UN_FICHIER(liste2_des_valeurs,VALEUR_2_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste1_des_valeurs,VALEUR_1_IMPLICITE);
RETU_Commande;
Eblock
ECommande