by kadtexas » 25 Apr 2021, 11:19
Voici mon petit programme:
- Code: Select all
Define LibPub fx(fonc,a,b,n)=
Prgm
:Local n,h,un,vn,f,h,i
: expr("f(x):="&string(fonc))
: h:=((b-a)/(n))
:Un:=h*∑(f(a+(i-1)*h),i,1,n)
:Vn:=h*∑(f(a+i*h),i,1,n)
:Disp Un," ",Vn
:EndPrgm
Il marche.
Les suites Un et Vn encadrent l'aire entre la courbe de f les droites x=a, x=b, Un<Vn
On découpe [a;b] en n parties égales.
Par exemple pour f(x)=ln(x) sur [2;20],n=50, f et croissante , (Un) est croissante et (Vn) est croissante car elles mesurent la somme des aires des rectangles.
Dans la correction l'auteur écrit: (Un) est croissante et (Vn) est décroissante.
Pour moi (Vn) est croissante. A moins qu'il voulait dire autre chose.