/*************************************************************************************************************************************/
/* */
/* C A L C U L D E L A S O M M E E T D E L A D I F F E R E N C E */
/* D E D E U X F I C H I E R S E T I N V E R S E M E N T : */
/* */
/* */
/* Author of '$xrv/SommeDifference.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20151213110251). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 PROCESSUS_DIRECT \
VRAI \
/* Selection entre le processus direct : */ \
/* */ \
/* {X,Y} --> {X+Y,X-Y} */ \
/* */ \
/* ou inverse : */ \
/* */ \
/* {X+Y,X-Y} --> {X,Y} */ \
/* */
#define PONDERATION_X_PLUS__Y_IMPLICITE \
FZERO
#define PONDERATION_X_MOINS_Y_IMPLICITE \
FZERO
#define PONDERATION_X_IMPLICITE \
FZERO
#define PONDERATION_Y_IMPLICITE \
FZERO
/* Ponderation de selection des sorties... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 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 deux 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 deux fichiers. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C A L C U L D E L A S O M M E E T D E L A D I F F E R E N C E */
/* D E D E U X F I C H I E R S E T I N V E R S E M E N T : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
DEFV(Logical,INIT(processus_direct,PROCESSUS_DIRECT));
/* Selection entre le processus direct : */
/* */
/* {X,Y} --> {X+Y,X-Y} */
/* */
/* ou inverse : */
/* */
/* {X+Y,X-Y} --> {X,Y} */
/* */
DEFV(Float,INIT(ponderation_X_plus__Y_implicite,PONDERATION_X_PLUS__Y_IMPLICITE));
DEFV(Float,INIT(ponderation_X_moins_Y_implicite,PONDERATION_X_MOINS_Y_IMPLICITE));
DEFV(Float,INIT(ponderation_X_implicite,PONDERATION_X_IMPLICITE));
DEFV(Float,INIT(ponderation_Y_implicite,PONDERATION_Y_IMPLICITE));
/* Ponderation de selection des sorties... */
/*..............................................................................................................................*/
#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("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
);
GET_ARGUMENT_L("direct=",processus_direct);
GET_ARGUMENT_N("inverse=",processus_direct);
GET_ARGUMENT_F("pXpY=""pxpy=",ponderation_X_plus__Y_implicite);
GET_ARGUMENT_F("pXmY=""pxmy=",ponderation_X_moins_Y_implicite);
GET_ARGUMENT_F("pX=""px=",ponderation_X_implicite);
/* A ne pas confondre avec 'v $xig/fonct$vv$DEF ENTREE_ARGUMENT_pasX'... */
GET_ARGUMENT_F("pY=""py=",ponderation_Y_implicite);
/* A ne pas confondre avec 'v $xig/fonct$vv$DEF ENTREE_ARGUMENT_pasY'... */
GET_ARGUMENTS2_F("p1=",ponderation_X_implicite,ponderation_X_plus__Y_implicite);
GET_ARGUMENTS2_F("p2=",ponderation_Y_implicite,ponderation_X_moins_Y_implicite);
/* Arguments introduits le 20151215112540 pour simplifier les choses et eviter des */
/* erreurs d'utilisation (entre les processus directs et indirects...). */
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 20211005105124... */
)
);
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(valeur1_courante,ELEMENT_DU_FICHIER1(index)));
DEFV(Float,INIT(valeur2_courante,ELEMENT_DU_FICHIER2(index)));
/* Recuperation des valeurs courantes dans les deux fichiers. */
DEFV(Float,INIT(valeur_a_editer,FLOT__UNDEF));
/* Valeur a editer... */
Test(IL_FAUT(processus_direct))
Bblock
EGAL(valeur_a_editer
,LIZ2(ponderation_X_plus__Y_implicite,ADD2(valeur1_courante,valeur2_courante)
,ponderation_X_moins_Y_implicite,SOUS(valeur1_courante,valeur2_courante)
)
);
Eblock
ATes
Bblock
EGAL(valeur_a_editer
,LIZ2(ponderation_X_implicite,MOIT(ADD2(valeur1_courante,valeur2_courante))
,ponderation_Y_implicite,MOIT(SOUS(valeur1_courante,valeur2_courante))
)
);
Eblock
ETes
)
,valeur_a_editer
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Somme/Difference et inverse des deux fichiers... */
lGENERATION_D_UN_FICHIER(liste2_des_valeurs,VALEUR_2_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste1_des_valeurs,VALEUR_1_IMPLICITE);
RETU_Commande;
Eblock
ECommande