> | Exercice 6 |
> | restart:Digits:=30:N:=100: |
Grace à l'inégalité de Taylor-Lagrange
> | abs(f(1) -Sum(Diff(f(0),t$k)/(k!),k=0..'N'))<=sup(abs(Diff(f(t),t$(k+1))))/((n+1)!); |
On etudie donc la suite de Taylor (Taylor_n) associée à la fonction t->4/(1+t^2)
> | Taylor[n]:=4*Sum((-1)^k/(2*k+1),k=0..n)=Taylor[n-1]+4*(-1)^n/(2*n+1); |
> | Taylor:=proc(N) options remember;
local S; if N=0 then S:=4; else S:=4*(-1)^N/(2*N+1)+Taylor(N-1); fi; S; end: |
> |
> | for i from 0 to N do 4*Sum((-1)^k/(2*k+1),k=0..i)=evalf(Taylor(i)), erreur=evalf(abs(Taylor(i)-Pi)); od; |
> |
> |