/*************************************************************************************************************************************/
/* */
/* C A L C U L D E P O L Y N O M E S A Q U A T R E V A R I A B L E S */
/* A L ' A I D E D E Q U A T R E F I C H I E R S N U M E R I Q U E S : */
/* */
/* */
/* Author of '$xrv/Poly_4_01.11$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20071030094110). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 : */
/* */
/*************************************************************************************************************************************/
#define PRAGMA_CPP_____AUTORISER_LE_GooF
#define PRAGMA_CPP_____SI_LE_GooF_EST_ACTIVABLE_ALORS_FAIRE_DE_L_ARITHMETIQUE_ETENDUE_DES_NOMBRES_FLOTTANTS
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 20060214133051... */
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define VALEUR_1_IMPLICITE \
FZERO
#define VALEUR_2_IMPLICITE \
FZERO
#define VALEUR_3_IMPLICITE \
FZERO
#define VALEUR_4_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier1_des_valeurs,liste1_des_valeurs);
gGENERATION_D_UN_FICHIER(fichier2_des_valeurs,liste2_des_valeurs);
gGENERATION_D_UN_FICHIER(fichier3_des_valeurs,liste3_des_valeurs);
gGENERATION_D_UN_FICHIER(fichier4_des_valeurs,liste4_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)
#define ELEMENT_DU_FICHIER3(index) \
gELEMENT_DU_FICHIER(liste3_des_valeurs,index)
#define ELEMENT_DU_FICHIER4(index) \
gELEMENT_DU_FICHIER(liste4_des_valeurs,index)
/* Acces a un element courant des fichiers. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S P O L Y N O M E S : */
/* */
/*************************************************************************************************************************************/
#define COEFFICIENT_1111 \
FZERO
#define COEFFICIENT_1110 \
FZERO
#define COEFFICIENT_1101 \
FZERO
#define COEFFICIENT_1100 \
FZERO
#define COEFFICIENT_1011 \
FZERO
#define COEFFICIENT_1010 \
FZERO
#define COEFFICIENT_1001 \
FZERO
#define COEFFICIENT_1000 \
FU
#define COEFFICIENT_0111 \
FZERO
#define COEFFICIENT_0110 \
FZERO
#define COEFFICIENT_0101 \
FZERO
#define COEFFICIENT_0100 \
FU
#define COEFFICIENT_0011 \
FZERO
#define COEFFICIENT_0010 \
FU
#define COEFFICIENT_0001 \
FU
#define COEFFICIENT_0000 \
FZERO
DEFV(Float,INIT(coefficient_1111,COEFFICIENT_1111));
DEFV(Float,INIT(coefficient_1110,COEFFICIENT_1110));
DEFV(Float,INIT(coefficient_1101,COEFFICIENT_1101));
DEFV(Float,INIT(coefficient_1100,COEFFICIENT_1100));
DEFV(Float,INIT(coefficient_1011,COEFFICIENT_1011));
DEFV(Float,INIT(coefficient_1010,COEFFICIENT_1010));
DEFV(Float,INIT(coefficient_1001,COEFFICIENT_1001));
DEFV(Float,INIT(coefficient_1000,COEFFICIENT_1000));
DEFV(Float,INIT(coefficient_0111,COEFFICIENT_0111));
DEFV(Float,INIT(coefficient_0110,COEFFICIENT_0110));
DEFV(Float,INIT(coefficient_0101,COEFFICIENT_0101));
DEFV(Float,INIT(coefficient_0100,COEFFICIENT_0100));
DEFV(Float,INIT(coefficient_0011,COEFFICIENT_0011));
DEFV(Float,INIT(coefficient_0010,COEFFICIENT_0010));
DEFV(Float,INIT(coefficient_0001,COEFFICIENT_0001));
DEFV(Float,INIT(coefficient_0000,COEFFICIENT_0000));
/* Les valeurs par defaut permettent de calculer la somme des quatre fichiers Arguments. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C A L C U L D E P O L Y N O M E S A Q U A T R E V A R I A B L E S */
/* A L ' A I D E D E Q U A T R E F I C H I E R S N U M E R I Q U E S : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#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("fichier1=""F1="
,fichier1_des_valeurs
,liste1_des_valeurs
,VALEUR_1_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("fichier2=""F2="
,fichier2_des_valeurs
,liste2_des_valeurs
,VALEUR_2_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("fichier3=""F3="
,fichier3_des_valeurs
,liste3_des_valeurs
,VALEUR_3_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("fichier4=""F4="
,fichier4_des_valeurs
,liste4_des_valeurs
,VALEUR_4_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_F("a1111=""A1111=",coefficient_1111);
GET_ARGUMENT_F("a1110=""A1110=",coefficient_0111);
GET_ARGUMENT_F("a1101=""A1101=",coefficient_1011);
GET_ARGUMENT_F("a1100=""A1100=",coefficient_0011);
GET_ARGUMENT_F("a1011=""A1011=",coefficient_1101);
GET_ARGUMENT_F("a1010=""A1010=",coefficient_0101);
GET_ARGUMENT_F("a1001=""A1001=",coefficient_1001);
GET_ARGUMENT_F("a1000=""A1000=",coefficient_0001);
GET_ARGUMENT_F("a0111=""A0111=",coefficient_1110);
GET_ARGUMENT_F("a0110=""A0110=",coefficient_0110);
GET_ARGUMENT_F("a0101=""A0101=",coefficient_1010);
GET_ARGUMENT_F("a0100=""A0100=",coefficient_0010);
GET_ARGUMENT_F("a0011=""A0011=",coefficient_1100);
GET_ARGUMENT_F("a0010=""A0010=",coefficient_0100);
GET_ARGUMENT_F("a0001=""A0001=",coefficient_1000);
GET_ARGUMENT_F("a0000=""A0000=",coefficient_0000);
/* On notera le 20071104120109 que dans 'coefficient_TZYX', les indices 'T', 'Z', 'Y' */
/* et 'X' ('v $ximd/operator.1$FON HORNER_4_01') designent respectivement 'valeur4_courante' */
/* 'valeur3_courante', 'valeur2_courante' et 'valeur1_courante' : */
/* */
/* coefficient_TZYX */
/* */
/* ^^^^ */
/* |||| */
/* ||| --- valeur1_courante */
/* ||| */
/* || ---- valeur2_courante */
/* || */
/* | ----- valeur3_courante */
/* | */
/* ------ valeur4_courante */
/* */
/* ces conventions etant inversees pour les parametres (afin d'en faciliter l'usage), soit : */
/* */
/* aXYZT (=AXYZT) */
/* */
/* ^^^^ */
/* |||| */
/* ||| --- valeur4_courante */
/* ||| */
/* || ---- valeur3_courante */
/* || */
/* | ----- valeur2_courante */
/* | */
/* ------ valeur1_courante */
/* */
/* ce que l'on ecrira symboliquement "A1234"... */
/* */
/* Cela peut se retrouver facilement avec : */
/* */
/* set PoLy="$xrv/Poly_4_01.11$X ne=1" */
/* */
/* eval "$PoLy a1000=1 a0100=0 a0010=0 a0001=0 F1=1 F2=2 F3=3 F4=4" ==> 1 */
/* eval "$PoLy a1000=0 a0100=1 a0010=0 a0001=0 F1=1 F2=2 F3=3 F4=4" ==> 2 */
/* eval "$PoLy a1000=0 a0100=0 a0010=1 a0001=0 F1=1 F2=2 F3=3 F4=4" ==> 3 */
/* eval "$PoLy a1000=0 a0100=0 a0010=0 a0001=1 F1=1 F2=2 F3=3 F4=4" ==> 4 */
/* */
/* ou les fichiers {F1,F2,F3,F4} ont respectivement comme valeur {1,2,3,4}... */
/* */
/* On notera que jusqu'a cette date (le 20071104120109), ces conventions etaient inversees, */
/* et l'on trouvait ainsi : */
/* */
/* aTZYX (=ATZYX) */
/* */
/* Mais cette nouvelle convention d'ecriture des parametres est plus logique et de plus */
/* compatible avec celle de 'v $xci/poly_2_04$K aXY'... */
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 20211005104733... */
)
);
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(valeur1_courante,ELEMENT_DU_FICHIER1(index)));
DEFV(Float,INIT(valeur2_courante,ELEMENT_DU_FICHIER2(index)));
DEFV(Float,INIT(valeur3_courante,ELEMENT_DU_FICHIER3(index)));
DEFV(Float,INIT(valeur4_courante,ELEMENT_DU_FICHIER4(index)));
/* Recuperation des valeurs courantes dans les fichiers. */
)
,USe_GooF(HORNER_4_01(valeur1_courante,valeur2_courante,valeur3_courante,valeur4_courante
,coefficient_1111
,coefficient_1110
,coefficient_1101
,coefficient_1100
,coefficient_1011
,coefficient_1010
,coefficient_1001
,coefficient_1000
,coefficient_0111
,coefficient_0110
,coefficient_0101
,coefficient_0100
,coefficient_0011
,coefficient_0010
,coefficient_0001
,coefficient_0000
)
)
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Combinaison des quatre fichiers arguments. */
lGENERATION_D_UN_FICHIER(liste4_des_valeurs,VALEUR_4_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste3_des_valeurs,VALEUR_3_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste2_des_valeurs,VALEUR_2_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste1_des_valeurs,VALEUR_1_IMPLICITE);
RETU_Commande;
Eblock
ECommande