ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 10 Mar 2004 11:36 Sujet du message: Re: affichage de 2 courbes |
|
|
Ecrire une procedure equida(f,a,b,n) qui trace sur le meme graphe(sur un intervalle [a,b]) la fonction d'interpolation de lagrange P de f telle que
P(xi)=f(xi) ou xi=a+(b-a)i/n avec i allant de 0..n (points equidistants)
Code:
> equida:=proc(f,a,b,n)
> local X,Y,P;
> X:=[seq(evalf(a+(b-a)*i/n),i=0..n)]:
> Y:=[seq(evalf(f(a+(b-a)*i/n)),i=0..n)]:
> P:=CurveFitting[PolynomialInterpolation](X,Y,x,form=Lagrange):
> plot({f(x),P},x=a..b)
> end proc:
> equida(x->sin(x),-3.14,3.14,4);
A plus tard |
|