Quelltext der Seite TI-Basic: Programme und Tutorials: Fibonacci

{{Navigation_hoch_buch|
hochtext="Programme und Tutorials" |
hochlink=TI-Basic: Programme und Tutorials}}
<div style="border: 1px solid #aaa; padding: 8px; margin-top:10px; margin-bottom: 10px;">
{|
|-
|style="font-weight: bold;"|Erstellt von:
|[[Benutzer:Kai_Burghardt|Kai Burghardt]]
|[[Benutzer Diskussion:Peter Riedel|Peter Riedel]]
|-
|style="font-weight: bold;"|Schwierigkeitsgrad:
|Anfänger
|-
|style="font-weight: bold;"|Modell:
|TI-82, Voyage 200
|-
|}
</div>
=TI-82=
==Programm==
Ein Progrämmlein, welches mal eben die Fibonacci-Folge in eine Liste ausspuckt.

Erst einmal der wichtigste Teil:
 PROGRAM:NFIBBO
 : L1(X-1) + L1(X-2) -> L1(X)
 : X+1 -> X
 : While X /= 100
 : prgmNFIBBO

Dazu ist dementsprechend eine kleine Vorarbeit nötig:
 PROGRAM:AFIBBO
 : 4 -> X
 : {0,1,1} -> L1
 : prgmNFIBBO

==Erläuterung==
Mensch ruft AFIBBO auf. Dann definieren wir X als aktuelles Listenelementsvariable, die mal eben berechnet werden soll.
Die eigentliche Berechnung ist abgspaltet, um - wie Du hoffentlich bemerkt hast - eine ganz einfach Schleife zu bauen. Beim TI-82 ist die Listenelementszahl auf 99 begrenzt.<Br />
Nach etwa einer Minute steht alles in der Liste eins.
=Voyage 200=
{{W|Fibonacci-Folge|Fibonacci-Folge}}
==Programm==
 :fibonaci()
 :Prgm
 :0->f1
 :1->f2
 :Disp f1,f2
 :While true
 :  f1+f2->tmp
 :  f2->f1
 :  tmp->f2
 :  Disp f2
 :EndWhile
 :EndPrgm
==Erläuterung==
f1 wird mit 0 und f2 mit 1 initialisiert und ausgegeben. In der While-Schleife wird die neue Fibonacci-Zahl f1+f2 in tmp gespeichert, damit f1 und f2 die neuen Werte für die Ausgabe und Weiterberechnung erhalten. Es werden unendliche viele Fibonacci-Zahlen berechnet. Es sei denn, man ersetzt true mit einer Bedingung wie z.B. f2<100, um die Ausgabe durch eine Obergrenze zu beschränken. Man kann auch zwischen jeder Ausgabe das Programm mit Pause anhalten.
==Rekursion==
<math>\operatorname{fibonacci}\;(0,1,c)</math> für <math>c\in\N=\{0;1;2;\ldots;\infty\}</math> berechnet die <math>c+1</math>-te Fibonacci-Zahl.
:<math>
\operatorname{fibonacci}\;(a,b,c)=
\begin{cases}
a,&\mbox{wenn }c=0\\
\operatorname{fibonacci}\;(b,a+b,c-1),&\mbox{wenn }c\geq1
\end{cases}
</math>
===Funktion===
 :fibonaci(a,b,c)
 :Func
 :If c=0 Then
 :  Return a
 :Else
 :  Return fibonaci(b,a+b,c-1)
 :EndIf
 :EndFunc
:<math>