/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E   ' HORNER_3_03(...) '  :                                                                                    */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/HORNER_3_03.01$c' :                                                                                        */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20171027162514).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  <stdio.h>

#define   coefficientA Acoupe_quelconque_____a001
#define   coefficientB Acoupe_quelconque_____a010
#define   coefficientC Acoupe_quelconque_____a100
#define   coefficientD Acoupe_quelconque_____a000

main()
          {
          double    Acoupe_quelconque_____a333=0;
          double    Acoupe_quelconque_____a332=0;
          double    Acoupe_quelconque_____a331=0;
          double    Acoupe_quelconque_____a330=0;
          double    Acoupe_quelconque_____a323=0;
          double    Acoupe_quelconque_____a322=0;
          double    Acoupe_quelconque_____a321=0;
          double    Acoupe_quelconque_____a320=0;
          double    Acoupe_quelconque_____a313=0;
          double    Acoupe_quelconque_____a312=0;
          double    Acoupe_quelconque_____a311=0;
          double    Acoupe_quelconque_____a310=0;
          double    Acoupe_quelconque_____a303=0;
          double    Acoupe_quelconque_____a302=0;
          double    Acoupe_quelconque_____a301=0;
          double    Acoupe_quelconque_____a300=0;
          double    Acoupe_quelconque_____a233=0;
          double    Acoupe_quelconque_____a232=0;
          double    Acoupe_quelconque_____a231=0;
          double    Acoupe_quelconque_____a230=0;
          double    Acoupe_quelconque_____a223=0;
          double    Acoupe_quelconque_____a222=0;
          double    Acoupe_quelconque_____a221=0;
          double    Acoupe_quelconque_____a220=0;
          double    Acoupe_quelconque_____a213=0;
          double    Acoupe_quelconque_____a212=0;
          double    Acoupe_quelconque_____a211=0;
          double    Acoupe_quelconque_____a210=0;
          double    Acoupe_quelconque_____a203=0;
          double    Acoupe_quelconque_____a202=0;
          double    Acoupe_quelconque_____a201=0;
          double    Acoupe_quelconque_____a200=0;
          double    Acoupe_quelconque_____a133=0;
          double    Acoupe_quelconque_____a132=0;
          double    Acoupe_quelconque_____a131=0;
          double    Acoupe_quelconque_____a130=0;
          double    Acoupe_quelconque_____a123=0;
          double    Acoupe_quelconque_____a122=0;
          double    Acoupe_quelconque_____a121=0;
          double    Acoupe_quelconque_____a120=0;
          double    Acoupe_quelconque_____a113=0;
          double    Acoupe_quelconque_____a112=0;
          double    Acoupe_quelconque_____a111=0;
          double    Acoupe_quelconque_____a110=0;
          double    Acoupe_quelconque_____a103=0;
          double    Acoupe_quelconque_____a102=0;
          double    Acoupe_quelconque_____a101=0;
          double    Acoupe_quelconque_____a033=0;
          double    Acoupe_quelconque_____a032=0;
          double    Acoupe_quelconque_____a031=0;
          double    Acoupe_quelconque_____a030=0;
          double    Acoupe_quelconque_____a023=0;
          double    Acoupe_quelconque_____a022=0;
          double    Acoupe_quelconque_____a021=0;
          double    Acoupe_quelconque_____a020=0;
          double    Acoupe_quelconque_____a013=0;
          double    Acoupe_quelconque_____a012=0;
          double    Acoupe_quelconque_____a011=0;
          double    Acoupe_quelconque_____a003=0;
          double    Acoupe_quelconque_____a002=0;

          double    Acoupe_quelconque_____a100=2.0;
          double    Acoupe_quelconque_____a010=-2.0;
          double    Acoupe_quelconque_____a001=2.0;
          double    Acoupe_quelconque_____a000=-1.0;

          double    Xf=100;
          double    Yf=20000;
          double    Zf=4000000;

          double    LIN3;
          double    HORNER_3_03;

          Acoupe_quelconque_____a100=2.0;
          Acoupe_quelconque_____a010=-2.0;
          Acoupe_quelconque_____a001=2.0;
          Acoupe_quelconque_____a000=-1.0;

          LIN3=(((((coefficientA) * (Xf)))+ (((((coefficientB)* (Yf)))+ (((((coefficientC)* (Zf))) + (coefficientD)))))));

          HORNER_3_03=((((((((((((((((((((((((((((((((((((((((Acoupe_quelconque_____a333))
          *(Xf)))
          +(Acoupe_quelconque_____a332)))*(Xf)))+(Acoupe_quelconque_____a331)))
          *(Xf)))+(Acoupe_quelconque_____a330))))*(Yf)))+((((((((((((((Acoupe_quelconque_____a323))
          *(Xf)))+(Acoupe_quelconque_____a322)))*(Xf)))+(Acoupe_quelconque_____a321)))
          *(Xf)))+(Acoupe_quelconque_____a320)))))*(Yf)))
          +((((((((((((((Acoupe_quelconque_____a313))*(Xf)))+(Acoupe_quelconque_____a312)))
          *(Xf)))+(Acoupe_quelconque_____a311)))*(Xf)))
          +(Acoupe_quelconque_____a310)))))*(Yf)))+((((((((((((((Acoupe_quelconque_____a303))
          *(Xf)))+(Acoupe_quelconque_____a302)))*(Xf)))
          +(Acoupe_quelconque_____a301)))*(Xf)))+(Acoupe_quelconque_____a300))))))
          *(Zf)))+(((((((((((((((((((((((((((Acoupe_quelconque_____a233))
          *(Xf)))+(Acoupe_quelconque_____a232)))*(Xf)))+(Acoupe_quelconque_____a231)))
          *(Xf)))+(Acoupe_quelconque_____a230))))*(Yf)))
          +((((((((((((((Acoupe_quelconque_____a223))
          *(Xf)))+(Acoupe_quelconque_____a222)))*(Xf)))+(Acoupe_quelconque_____a221)))
          *(Xf)))+(Acoupe_quelconque_____a220)))))*(Yf)))
          +((((((((((((((Acoupe_quelconque_____a213))*(Xf)))+(Acoupe_quelconque_____a212)))
          *(Xf)))+(Acoupe_quelconque_____a211)))*(Xf)))
          +(Acoupe_quelconque_____a210)))))*(Yf)))+((((((((((((((Acoupe_quelconque_____a203))
          *(Xf)))+(Acoupe_quelconque_____a202)))*(Xf)))
          +(Acoupe_quelconque_____a201)))*(Xf)))+(Acoupe_quelconque_____a200)))))))
          *(Zf)))+(((((((((((((((((((((((((((Acoupe_quelconque_____a133))
          *(Xf)))+(Acoupe_quelconque_____a132)))*(Xf)))+(Acoupe_quelconque_____a131)))
          *(Xf)))+(Acoupe_quelconque_____a130))))*(Yf)))
          +((((((((((((((Acoupe_quelconque_____a123))
          *(Xf)))+(Acoupe_quelconque_____a122)))*(Xf)))+(Acoupe_quelconque_____a121)))
          *(Xf)))+(Acoupe_quelconque_____a120)))))*(Yf)))
          +((((((((((((((Acoupe_quelconque_____a113))*(Xf)))+(Acoupe_quelconque_____a112)))
          *(Xf)))+(Acoupe_quelconque_____a111)))*(Xf)))
          +(Acoupe_quelconque_____a110)))))*(Yf)))+((((((((((((((Acoupe_quelconque_____a103))
          *(Xf)))+(Acoupe_quelconque_____a102)))*(Xf)))
          +(Acoupe_quelconque_____a101)))*(Xf)))+(Acoupe_quelconque_____a100)))))))
          *(Zf)))+(((((((((((((((((((((((((((Acoupe_quelconque_____a033))
          *(Xf)))+(Acoupe_quelconque_____a032)))*(Xf)))+(Acoupe_quelconque_____a031)))
          *(Xf)))+(Acoupe_quelconque_____a030))))*(Yf)))
          +((((((((((((((Acoupe_quelconque_____a023))
          *(Xf)))+(Acoupe_quelconque_____a022)))*(Xf)))+(Acoupe_quelconque_____a021)))
          *(Xf)))+(Acoupe_quelconque_____a020)))))*(Yf)))
          +((((((((((((((Acoupe_quelconque_____a013))*(Xf)))+(Acoupe_quelconque_____a012)))
          *(Xf)))+(Acoupe_quelconque_____a011)))*(Xf)))
          +(Acoupe_quelconque_____a010)))))*(Yf)))+((((((((((((((Acoupe_quelconque_____a003))
          *(Xf)))+(Acoupe_quelconque_____a002)))*(Xf)))
          +(Acoupe_quelconque_____a001)))*(Xf)))+(Acoupe_quelconque_____a000)))))));

          printf("HORNER_3_03=%f\n",HORNER_3_03);
          printf("LIN3.......=%f\n",LIN3);
                                        /* Avec les valeurs par defaut, ces deux resultats doivent etre egaux...                     */
          }



Copyright © Jean-François Colonna, 2021-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2021-2021.