/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N D E T Y P E " HORNER_4_02(...) ' D E Q U A T R E I M A G E S F L O T T A N T E S : */
/* */
/* */
/* Author of '$xci/combHorner.04$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20190628115413). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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
#include image_image_IMAGESF_EXT
#include image_image_PENT_IMAGE_EXT
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define NORMALISER \
FAUX \
/* Faut-il normaliser dans [0,1] ('VRAI') ou laisser tel quel ('FAUX'). Cette possibilite */ \
/* a ete introduite le 20190629090641... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#define imageA1 \
IFmageA1
#define imageA2 \
IFmageA2
#define imageA3 \
IFmageA3
#define imageA4 \
IFmageA4
#define imageR \
IFmageR
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N D E T Y P E " HORNER_4_02(...) ' D E Q U A T R E I M A G E S F L O T T A N T E S : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA1),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA2),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA3),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA4),NOM_PIPE));
DEFV(Logical,INIT(normaliser,NORMALISER));
/* Faut-il normaliser dans [0,1] ('VRAI') ou laisser tel quel ('FAUX'). Cette possibilite */
/* a ete introduite le 20190629090641... */
/*..............................................................................................................................*/
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(GET_ARGUMENT_C("imageA1=""A1=",nom_imageA1);
GET_ARGUMENT_C("imageA2=""A2=",nom_imageA2);
GET_ARGUMENT_C("imageA3=""A3=",nom_imageA3);
GET_ARGUMENT_C("imageA4=""A4=",nom_imageA4);
GET_ARGUMENT_C("imageR=""R=",nom_imageR);
GET_ARGUMENT_F("a0000=",IFcombinaison_hornerienne_var4_degre2____a0000);
GET_ARGUMENT_F("a0001=",IFcombinaison_hornerienne_var4_degre2____a0001);
GET_ARGUMENT_F("a0002=",IFcombinaison_hornerienne_var4_degre2____a0002);
GET_ARGUMENT_F("a0010=",IFcombinaison_hornerienne_var4_degre2____a0010);
GET_ARGUMENT_F("a0011=",IFcombinaison_hornerienne_var4_degre2____a0011);
GET_ARGUMENT_F("a0012=",IFcombinaison_hornerienne_var4_degre2____a0012);
GET_ARGUMENT_F("a0020=",IFcombinaison_hornerienne_var4_degre2____a0020);
GET_ARGUMENT_F("a0021=",IFcombinaison_hornerienne_var4_degre2____a0021);
GET_ARGUMENT_F("a0022=",IFcombinaison_hornerienne_var4_degre2____a0022);
GET_ARGUMENT_F("a0100=",IFcombinaison_hornerienne_var4_degre2____a0100);
GET_ARGUMENT_F("a0101=",IFcombinaison_hornerienne_var4_degre2____a0101);
GET_ARGUMENT_F("a0102=",IFcombinaison_hornerienne_var4_degre2____a0102);
GET_ARGUMENT_F("a0110=",IFcombinaison_hornerienne_var4_degre2____a0110);
GET_ARGUMENT_F("a0111=",IFcombinaison_hornerienne_var4_degre2____a0111);
GET_ARGUMENT_F("a0112=",IFcombinaison_hornerienne_var4_degre2____a0112);
GET_ARGUMENT_F("a0120=",IFcombinaison_hornerienne_var4_degre2____a0120);
GET_ARGUMENT_F("a0121=",IFcombinaison_hornerienne_var4_degre2____a0121);
GET_ARGUMENT_F("a0122=",IFcombinaison_hornerienne_var4_degre2____a0122);
GET_ARGUMENT_F("a0200=",IFcombinaison_hornerienne_var4_degre2____a0200);
GET_ARGUMENT_F("a0201=",IFcombinaison_hornerienne_var4_degre2____a0201);
GET_ARGUMENT_F("a0202=",IFcombinaison_hornerienne_var4_degre2____a0202);
GET_ARGUMENT_F("a0210=",IFcombinaison_hornerienne_var4_degre2____a0210);
GET_ARGUMENT_F("a0211=",IFcombinaison_hornerienne_var4_degre2____a0211);
GET_ARGUMENT_F("a0212=",IFcombinaison_hornerienne_var4_degre2____a0212);
GET_ARGUMENT_F("a0220=",IFcombinaison_hornerienne_var4_degre2____a0220);
GET_ARGUMENT_F("a0221=",IFcombinaison_hornerienne_var4_degre2____a0221);
GET_ARGUMENT_F("a0222=",IFcombinaison_hornerienne_var4_degre2____a0222);
GET_ARGUMENT_F("a1000=",IFcombinaison_hornerienne_var4_degre2____a1000);
GET_ARGUMENT_F("a1001=",IFcombinaison_hornerienne_var4_degre2____a1001);
GET_ARGUMENT_F("a1002=",IFcombinaison_hornerienne_var4_degre2____a1002);
GET_ARGUMENT_F("a1010=",IFcombinaison_hornerienne_var4_degre2____a1010);
GET_ARGUMENT_F("a1011=",IFcombinaison_hornerienne_var4_degre2____a1011);
GET_ARGUMENT_F("a1012=",IFcombinaison_hornerienne_var4_degre2____a1012);
GET_ARGUMENT_F("a1020=",IFcombinaison_hornerienne_var4_degre2____a1020);
GET_ARGUMENT_F("a1021=",IFcombinaison_hornerienne_var4_degre2____a1021);
GET_ARGUMENT_F("a1022=",IFcombinaison_hornerienne_var4_degre2____a1022);
GET_ARGUMENT_F("a1100=",IFcombinaison_hornerienne_var4_degre2____a1100);
GET_ARGUMENT_F("a1101=",IFcombinaison_hornerienne_var4_degre2____a1101);
GET_ARGUMENT_F("a1102=",IFcombinaison_hornerienne_var4_degre2____a1102);
GET_ARGUMENT_F("a1110=",IFcombinaison_hornerienne_var4_degre2____a1110);
GET_ARGUMENT_F("a1111=",IFcombinaison_hornerienne_var4_degre2____a1111);
GET_ARGUMENT_F("a1112=",IFcombinaison_hornerienne_var4_degre2____a1112);
GET_ARGUMENT_F("a1120=",IFcombinaison_hornerienne_var4_degre2____a1120);
GET_ARGUMENT_F("a1121=",IFcombinaison_hornerienne_var4_degre2____a1121);
GET_ARGUMENT_F("a1122=",IFcombinaison_hornerienne_var4_degre2____a1122);
GET_ARGUMENT_F("a1200=",IFcombinaison_hornerienne_var4_degre2____a1200);
GET_ARGUMENT_F("a1201=",IFcombinaison_hornerienne_var4_degre2____a1201);
GET_ARGUMENT_F("a1202=",IFcombinaison_hornerienne_var4_degre2____a1202);
GET_ARGUMENT_F("a1210=",IFcombinaison_hornerienne_var4_degre2____a1210);
GET_ARGUMENT_F("a1211=",IFcombinaison_hornerienne_var4_degre2____a1211);
GET_ARGUMENT_F("a1212=",IFcombinaison_hornerienne_var4_degre2____a1212);
GET_ARGUMENT_F("a1220=",IFcombinaison_hornerienne_var4_degre2____a1220);
GET_ARGUMENT_F("a1221=",IFcombinaison_hornerienne_var4_degre2____a1221);
GET_ARGUMENT_F("a1222=",IFcombinaison_hornerienne_var4_degre2____a1222);
GET_ARGUMENT_F("a2000=",IFcombinaison_hornerienne_var4_degre2____a2000);
GET_ARGUMENT_F("a2001=",IFcombinaison_hornerienne_var4_degre2____a2001);
GET_ARGUMENT_F("a2002=",IFcombinaison_hornerienne_var4_degre2____a2002);
GET_ARGUMENT_F("a2010=",IFcombinaison_hornerienne_var4_degre2____a2010);
GET_ARGUMENT_F("a2011=",IFcombinaison_hornerienne_var4_degre2____a2011);
GET_ARGUMENT_F("a2012=",IFcombinaison_hornerienne_var4_degre2____a2012);
GET_ARGUMENT_F("a2020=",IFcombinaison_hornerienne_var4_degre2____a2020);
GET_ARGUMENT_F("a2021=",IFcombinaison_hornerienne_var4_degre2____a2021);
GET_ARGUMENT_F("a2022=",IFcombinaison_hornerienne_var4_degre2____a2022);
GET_ARGUMENT_F("a2100=",IFcombinaison_hornerienne_var4_degre2____a2100);
GET_ARGUMENT_F("a2101=",IFcombinaison_hornerienne_var4_degre2____a2101);
GET_ARGUMENT_F("a2102=",IFcombinaison_hornerienne_var4_degre2____a2102);
GET_ARGUMENT_F("a2110=",IFcombinaison_hornerienne_var4_degre2____a2110);
GET_ARGUMENT_F("a2111=",IFcombinaison_hornerienne_var4_degre2____a2111);
GET_ARGUMENT_F("a2112=",IFcombinaison_hornerienne_var4_degre2____a2112);
GET_ARGUMENT_F("a2120=",IFcombinaison_hornerienne_var4_degre2____a2120);
GET_ARGUMENT_F("a2121=",IFcombinaison_hornerienne_var4_degre2____a2121);
GET_ARGUMENT_F("a2122=",IFcombinaison_hornerienne_var4_degre2____a2122);
GET_ARGUMENT_F("a2200=",IFcombinaison_hornerienne_var4_degre2____a2200);
GET_ARGUMENT_F("a2201=",IFcombinaison_hornerienne_var4_degre2____a2201);
GET_ARGUMENT_F("a2202=",IFcombinaison_hornerienne_var4_degre2____a2202);
GET_ARGUMENT_F("a2210=",IFcombinaison_hornerienne_var4_degre2____a2210);
GET_ARGUMENT_F("a2211=",IFcombinaison_hornerienne_var4_degre2____a2211);
GET_ARGUMENT_F("a2212=",IFcombinaison_hornerienne_var4_degre2____a2212);
GET_ARGUMENT_F("a2220=",IFcombinaison_hornerienne_var4_degre2____a2220);
GET_ARGUMENT_F("a2221=",IFcombinaison_hornerienne_var4_degre2____a2221);
GET_ARGUMENT_F("a2222=",IFcombinaison_hornerienne_var4_degre2____a2222);
GET_ARGUMENT_L("normaliser=",normaliser);
GET_ARGUMENT_F("extremite=""e=",IFnormalisation_____niveau_extremite_de_normalisation);
GET_ARGUMENT_F("origine=""o=",IFnormalisation_____niveau_origine___de_normalisation);
GET_ARGUMENT_L("zero=",IFnormalisation_____conserver_le_zero);
/* Parametres introduits le 20190629090641... */
)
);
CALi(IFinitialisation(imageR,FZERO));
/* Initialisation de l'image Resultat. */
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA1,nom_imageA1))))
Bblock
/* Chargement de la premiere image Argument. */
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA2,nom_imageA2))))
Bblock
/* Chargement de la deuxieme image Argument. */
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA3,nom_imageA3))))
Bblock
/* Chargement de la troisieme image Argument. */
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA4,nom_imageA4))))
Bblock
/* Chargement de la quatrieme image Argument. */
CALS(IFcombinaison_hornerienne_var4_degre2(imageR,imageA1,imageA2,imageA3,imageA4));
/* Et combinaison 'HORNER_4_02(...)' des quatre images Arguments... */
Test(IL_FAUT(normaliser))
/* Test introduit le 20190629090641... */
Bblock
BDEFV(imageF,imageR_normalisee);
CALS(IFnormalisation_automatique(imageR_normalisee,imageR));
CALS(IFmove(imageR,imageR_normalisee));
EDEFV(imageF,imageR_normalisee);
Eblock
ATes
Bblock
Eblock
ETes
CALi(IupdateF_image(nom_imageR,imageR));
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
RETU_Commande;
Eblock
ECommande
Copyright © Jean-François COLONNA, 2019-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2019-2024.