procédure maple polynome d'interpolation Lagrange

[invite8acae2c9]

Bonsoir à tous!!voici une autre partie de mon projet Maple qui me pose problème!!
je vous mets ci-joint l'énoncé ainsi que les questions qui me sont demandées!!

pour la question à faire à l'écrit, c'est bon je l'ai!
j'ai aussi réussi à faire ma procédure subdiv,que voici:

Subdiv := proc (f, a, b, n)
local i, x, l, m;
x[0] := a;
x[1] := (b-a)/n;
for i from 2 to n do x[i] := i*x[1] end do;
m := [seq(x[k], k = 0 .. n)];
l := [seq(f(x[k]), k = 0 .. n)];
return (m, l) end proc

c'est pour la question d'après que ca coince, la question 9!!!
voila ce que j'avais commencé de faire mais ca ne fonctionne pas,et je pense qu'il faut en plus utiliser la question d'avant,ce que je ne fais pas ici.....

PolyLag:=proc(l,a,b,n)
local i,k,x,L,P,s;
L[k](x):=[seq((prod(x-x[i])/((x[k]-x[i]))*(prod(x-x[i])/((x[k]-x[i])))];
for k from 0 to n do s:=[seq(l*L[k](x))] od;
for k from 0 to n do P:=sum(s) od; end;

avez-vous une idée????

merci d'avance
tmac2113
-----