Forum TI-Planet.org

Bonjour !
Certain d'entre vous doivent connaitre la suite de Fibonacci, médiatiser par le Da Vinci Code. Cette suite a 2 particularité :
- Chacun terme s'obtient par l'addition des 2 précedant
- Le coefficient 2 nombres consécutifs (n+1/n) s' approche de plus en plus du nombre d'or .
On a donc : Un = 1+1+2+3+5+8+13+21 ....

Et ma prof de math m'a "Chargé" de faire le programme qui correspond c'est a dire qu'a chaque fois kon appusi sur entréé le nouveau terme de la suit apparait

Ayant des capacités plus que limité en programmation, un petit algorithme de votre part serait le bienvenu ... Pourant ce n'est pas dur mais .. je bloke
merci

Merci. Je vais tester ca.
J'approfite d'ailleur pour poser un ptite question :
Je viens de passer de Ti 83 + a Ti 89 Tita (avant hier) et dans un programme sur Ti 89 Tita ont est obligé d'annoncer les variable local forcément ?

Code: Select all

 Local x,y,z,x0,y0

J'ai fait un peu plus court

Code: Select all

fibo(a,b,n)
Prgm
Pause a
Pause b
While n2
a+b-b
b-a-a
Pause b
n-1-n
EndWhile
EndPrgm

a est u0
b est u1
n est le nombre de termes que tu veux

j'ai carrément plus court !! allez je suis sympa, je vous donne la formule :

On a la formule suivante qui donne directement le nième nombre de Fibonacci sans connaître les précédents.


(oh ! le nombre d'or !!)


Remarque : le terme est plus petit que 1 donc la partie de la formule tend vers zéro quand n devient grand.
Par conséquent, pour connaître Fn quand n est grand, il suffit de prendre la partie entière de

Code: Select all

Func (n)
local n
1/V5(((1+V5)/2)^n)-((1+V5)/2)^n)n
EndFunc


(où V= racine et = stock)

Ainsi, je l'ai fait en fonction (et non en programme : Prgm:EndPrgm, ce qui permet de l'inclure dans des calcules, mais si vous voulez mettre ça en Prgm, enlevez les Func:EndFunc et remplacez par Prgm:EndPrgm).

Comme vous vous en appercevrez en réalisant ce programme (qui comprends 2 lignes grand maximum), ce programme donne des nombres à virgule...

Si cela vous énèvre, demandez à votre machine une approximation :

Code: Select all

Func (n)
local n
approx(1/V5(((1+V5)/2)^n)-((1+V5)/2)^n))n
EndFunc


thanks:

je vais peut etre posser une question conne mais c'est koi le nobe d'or

kool mais c est quoi sa particuliarite et il consiste en quoi?

PO sa dechire.ET apres il y en a qui disse que les math sa sert a rien

merci mic

Et ce n'est pas tout: il définit la position du nombril dans le corps humain (si, si), l'écartement entre les nervures des feuilles de végétaux, et on dit que les bâtiments qui ne présentent pas au moins une fois cette proportion durent moins longtemps.

quand j'aurais le temps, je vous ferai le schéma du rectangle parfait

Mais c'est impressionnant tout ça...dites.Mais moi j'aimerais poser une question sur l'inclusion des fonctions.Comment l'appelera t'on dans un autre prgm une fois définie?