Mathc initiation/Fichiers h : x 18a4

Installer ce fichier dans votre répertoire de travail.

	`x_horner.h` utilitaire

 /* ---------------------------------- */
/* save as x_horner.h                  */
/* ---------------------------------- */
double compute_horner(
double   x,
double *Pa,
double *Pt,
double *Pqr,
double *Pq
)
{
int  c;

 Pqr[1]=Pa[1];

for (c=1; c<(Pa[0]-1); c++)
{
   Pt[c+1] = Pqr[c]*x;
  Pqr[c+1] =  Pt[c+1]+Pa[c+1];
   Pq[c]   = Pqr[c];
}

 return ( Pqr[c] );
}
/* ----------------------------------------------------- */
void p_horner(
double *Pa,
double *Pt,
double *Pqr
)
{
   int c;

printf("   ");
for (c=1; c<Pa[0]; c++) printf("%+7.2f   ", Pa[c] );
printf("\n");

printf("   ");
for (c=1; c<Pt[0]; c++) printf("%+7.2f   ", Pt[c] );
printf("\n");

printf("   ");
for (c=1; c<Pa[0]; c++) printf("----------" );
printf("\n");

printf("   ");
for (c=1; c<Pqr[0]; c++) printf("%+7.2f   ", Pqr[c] );
printf("\n\n");
}

/* ---------------------------------- */
/* ---------------------------------- */

Le premier utilise l'algorithme de Horner.

Le deuxième affiche le tableau des résultats obtenue par la deuxième fonction.