Suite de Fibonacci

→ **MyCalcs** profile · by **Misterbob666** » 04 Mar 2005, 20:10

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

→ **MyCalcs** profile · by **Misterbob666** » 04 Mar 2005, 21:51

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

→ **MyCalcs** profile · by **bobti89** » 05 Mar 2005, 20:43

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

→ **MyCalcs** profile · by **lancelot** » 20 Mar 2005, 07:57

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:

→ **MyCalcs** profile · by **arnaud_c3** » 11 Mar 2007, 20:58

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

→ **MyCalcs** profile · by **arnaud_c3** » 12 Mar 2007, 19:45

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

→ **MyCalcs** profile · by **arnaud_c3** » 12 Mar 2007, 22:22

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

merci mic

→ **MyCalcs** profile · by **Maréchal FlaK** » 13 Mar 2007, 18:07

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.

→ **MyCalcs** profile · by **Ver2guerre** » 14 Mar 2007, 10:25

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

→ **MyCalcs** profile · by **godbod** » 14 Mar 2007, 16:13

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?