Forum : exercices :
Officiel de la Taupe 185b

 Cliquez pour afficher

L'existence de ces coefficients est assurée ?

 Cliquez pour afficher

L'existence (et l'unicité) est assurée (il y a du cours en Spé sur le polynôme d'interpolation de Lagrange)

 Cliquez pour afficher

Bizarre par contre :

Je définis mon P ainsi P:=x->sum(a[k]*x^k,k=0..6);

et P(0) renvoit 0

 Cliquez pour afficher

Le 0^0 doit lui poser un souci, car P:=x->a[0]+sum(a[k]*x^k,k=1..6); donne bien P(0)=a[0]

En ce qui concerne les représentations graphiques, que j'avais snobées :

 Cliquez pour afficher

J'oublai la commande utilisée :

solve({seq(f(i/6)=P(i/6),i=0..6)},[seq(a[j],j=0..6)]);

 Cliquez pour afficher

Une copie des procédures Maple, que j'ai écrites

> n:=6;

                                n := 6  (réponse de Maple)

> P:=sum(a[k]*x^k,k=0..n);

                             2         3         4         5
  P := a[0] + a[1] x + a[2] x  + a[3] x  + a[4] x  + a[5] x+ a[6] x

> sols:=solve({seq(subs(x=i/n,P)=abs(2*i/n-1),i=0..n)});

  sols := {a[0] = 1, a[1] = -47/5, a[2] = 479/5, a[6] = 1296/5, a[5] = -3888/5, a[4] = 864, a[3] = -432}

> assign(sols);

> plot([P,abs(2*x-1)],x=0..1,numpoints=2000);


Et la représentation graphique, que je n'ai pas su cacher