/*************************************************************************************************************************************/
/* */
/* C A L C U L D E P O L Y N O M E S A D E U X V A R I A B L E S */
/* A L ' A I D 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/Poly_2_02.11$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20111007114023). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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
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. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S P O L Y N O M E S : */
/* */
/*************************************************************************************************************************************/
#define COEFFICIENT_22 \
FZERO
#define COEFFICIENT_21 \
FZERO
#define COEFFICIENT_20 \
FZERO
#define COEFFICIENT_12 \
FZERO
#define COEFFICIENT_11 \
FZERO
#define COEFFICIENT_10 \
FU
#define COEFFICIENT_02 \
FZERO
#define COEFFICIENT_01 \
FU
#define COEFFICIENT_00 \
FZERO
DEFV(Float,INIT(coefficient_22,COEFFICIENT_22));
DEFV(Float,INIT(coefficient_21,COEFFICIENT_21));
DEFV(Float,INIT(coefficient_20,COEFFICIENT_20));
DEFV(Float,INIT(coefficient_12,COEFFICIENT_12));
DEFV(Float,INIT(coefficient_11,COEFFICIENT_11));
DEFV(Float,INIT(coefficient_10,COEFFICIENT_10));
DEFV(Float,INIT(coefficient_02,COEFFICIENT_02));
DEFV(Float,INIT(coefficient_01,COEFFICIENT_01));
DEFV(Float,INIT(coefficient_00,COEFFICIENT_00));
/* Les valeurs par defaut permettent de calculer la somme des deux fichiers Arguments. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C A L C U L D E P O L Y N O M E S A D E U X V A R I A B L E S */
/* A L ' A I D 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 : */
/* */
/*************************************************************************************************************************************/
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
);
GET_ARGUMENT_F("a22=""A22=",coefficient_22);
GET_ARGUMENT_F("a21=""A21=",coefficient_12);
GET_ARGUMENT_F("a20=""A20=",coefficient_02);
GET_ARGUMENT_F("a12=""A12=",coefficient_21);
GET_ARGUMENT_F("a11=""A11=",coefficient_11);
GET_ARGUMENT_F("a10=""A10=",coefficient_01);
GET_ARGUMENT_F("a02=""A02=",coefficient_20);
GET_ARGUMENT_F("a01=""A01=",coefficient_10);
GET_ARGUMENT_F("a00=""A00=",coefficient_00);
/* On notera que dans 'coefficient_YX', les indices 'Y' et 'X' */
/* ('v $ximd/operator.1$FON HORNER_2_02') designent respectivement 'valeur2_courante' */
/* et 'valeur1_courante' : */
/* */
/* coefficient_YX */
/* */
/* ^^ */
/* || */
/* | --- valeur1_courante */
/* | */
/* ---- valeur2_courante */
/* */
/* ces conventions etant inversees pour les parametres (afin d'en faciliter l'usage), soit : */
/* */
/* aXY (=AXY) */
/* */
/* ^^ */
/* || */
/* | --- valeur2_courante */
/* | */
/* ---- valeur1_courante */
/* */
/* ce que l'on ecrira symboliquement "A12"... */
/* */
/* Cela peut se retrouver facilement avec : */
/* */
/* set PoLy="$xrv/Poly_2_02.11$X ne=1" */
/* */
/* eval "$PoLy a10=1 a01=0 a00=0 F1=1 F2=2" ==> 1 */
/* eval "$PoLy a10=0 a01=1 a00=0 F1=1 F2=2" ==> 2 */
/* */
/* ou les fichiers {F1,F2} ont respectivement comme valeur {1,2}... */
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 20211005104723... */
)
);
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 fichiers. */
)
,USe_GooF(HORNER_2_02(valeur1_courante,valeur2_courante
,coefficient_22
,coefficient_21
,coefficient_20
,coefficient_12
,coefficient_11
,coefficient_10
,coefficient_02
,coefficient_01
,coefficient_00
)
)
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Combinaison des deux fichiers arguments. */
lGENERATION_D_UN_FICHIER(liste2_des_valeurs,VALEUR_2_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste1_des_valeurs,VALEUR_1_IMPLICITE);
RETU_Commande;
Eblock
ECommande