programme ti-82 pour calculs d'aires

[invite56f88dc9]

bonjour
actuellement en maths on fait les calculs d'aires et on utilise pour la 1ère fois en maths mpsi la calculette. Malheuresement, j'ai une ti-82 et la prof nous a demandé de rentrer des programmes pour approximer les aires pour le contrôle(elle a donné des programmes pour ti-89).
pourriez vous me donner les programmes pour ti-82 pour calculer les aires avec la méthode des rectangles inférieurs , des rectangles supérieurs, méthode de Simpson,méthode de Lagrange et méthode de Newton (éventuellement des liens)
Svp c'est urgent, car le contrôle est bientôt.Merci

-----

[invitec68df109]

Je penses que tu peux les recopier presque intégralement, c'est certain que tu va devoir traficotter les interfaces "menu" pour des input mais le gros des algos devrait être copiable tel-quel.

[invite56f88dc9]

dans le truc de la prof, il y a des commandes du type Newton(), local,Lagrange(),Newton(), ClrIO et EndFor par contre j'ai End et For( que je ne peux implémenter sur ma ti-82 . D'ailleurs voici les algo pour la ti-89.Pouvez vous me les mettre compatible pour la ti-82. Merci.(Mon DS est pour Jeudi aprem)
Pour la méthode de rectangles inférieures, supérieurs des trapèzes et Simpson voici les algo pour la ti89 :
Intregral()
Prgm
Clr IO
Local a,b,n,i
Prompt a
Prompt b
Prompt n
(b-a)/n->p
0->s1
For i,0,n-1
s1+f(a+i*p)->s1
EndFor
Disp"rect inf",s1*p
0->s2
For i,1,n
s2+f(a+i*p)->s2
EndFor
Disp"rect sup",s2*p
(s1+s2)*(p/2)->s3
Disp"trapèzes",s3
f(a)+f(b)->s4
For i,1,n-1,2
s4+4*f(a+i*p)->s4
EndFor
For i,2,n-2,2
s4+2*f(a+i*p)->s4
EndFor
Disp"Simpson",s4*(p/3)
EndPrgm

Pour Lagrange c'est:

Lagrange()
Prgm
ClrIO
Local a,b,c,i,u,y
Prompt a
Prompt b
a->x
d(f(x),x,2)->y
If y*f(a)>0 then
a->c
b->u
Else
b->c
a->u
EndIf
Disp "c=",c
For i,1,50
u-f(u)*(u-c)/(f(u)-f(c))->u
Disp u
Pause
EndFor
EndPrgm

Pour la méthode de Newton c'est :

Newton()
Prgm
ClrIO
Local a,b,c,i,u,y
Prompt a
Prompt b
a->x
d(f(x),x,2)->y
If y*f(a)>0 then
a->c
Else
b->c
EndIf
Disp "c*",c
c->u
For i,1,50
u-f(u)/d(f(u),u)->u
Disp u
Pause
EndFor
EndPrgm


Merci de m'aider en sachant que je ne sais pas programmer.
(Je trouve inutile d'investire temporairement dans une calculatrice à 200€ pour l'utiliser 2 ou 3 jours c'est pourquoi je demande des algo ti 82 ))

[invitec68df109]

Intregral :
Clrhome
input a
input b
input n
(b-a)/n->p
0->s1
For i,0,n-1
s1+f(a+i*p)->s1
EndFor
Disp"rect inf",s1*p
0->s2
For i,1,n
s2+f(a+i*p)->s2
EndFor
Disp"rect sup",s2*p
(s1+s2)*(p/2)->s3
Disp"trapèzes",s3
f(a)+f(b)->s4
For i,1,n-1,2
s4+4*f(a+i*p)->s4
EndFor
For i,2,n-2,2
s4+2*f(a+i*p)->s4
EndFor
Disp"Simpson",s4*(p/3)


Lagrange:

Clrhome
input a
input b
a->x
d(f(x),x,2)->y
If y*f(a)>0 then
a->c
b->u
Else
b->c
a->u
EndIf
Disp "c=",c
For i,1,50
u-f(u)*(u-c)/(f(u)-f(c))->u
Disp u
Pause
EndFor



Newton:
clrhome
input a
input b
a->x
d(f(x),x,2)->y
If y*f(a)>0 then
a->c
Else
b->c
EndIf
Disp "c*",c
c->u
For i,1,50
u-f(u)/d(f(u),u)->u
Disp u
Pause
EndFor

[A voir en vidéo sur Futura]

[invitec68df109]

J'ai relu plus en profondeur les programmes et jtu ne peux pas les transférer, les fonctions de dérivation ne sont pas inclues dans la TI82. Tu devra donc soit calculer tes dérivées à la main ou investir ...

[invite56f88dc9]

Merci pour les réponses.
Je calculerais les dérivées à la main.
@+ et encore merci