Simple Fibonacci genertor

[e2e4au]

; Fibonacci number generator, first 50 only

#include <array.au3>

Dim $fib1 = 1, $fib2 = 2, $fib3, $results[51], $temp

$results[1] = $fib1

$results[2] = $fib2

For $temp = 3 To 50

$fib3 = $fib1 + $fib2

$results[$temp] = $fib3

swap($fib1, $fib2, $fib3)

Next

_ArrayDisplay($results, "50 Fibonacci Numbers")

Func swap(ByRef $a, ByRef $b, ByRef $c)

$a = $b

$b = $c

EndFunc ;==>swap

[peethebee]

Nice script.

Keep it up!

peethebee

[erifash]

I have made something like that before, using an algorithm like this:

$a = 1
$b = 1
While 1
    $c = $a + $b
    $b = $c + $a
    $a = $b + $c
Wend

1 + 1 = 2
2 + 1 = 3
3 + 2 = 5
5 + 3 = 8
8 + 5 = 13
...

Very nice work though! I never thought about using arrays...

[BillLuvsU]

I really don't want to seem rude but what exactly is the fibboncci (did I spell that right?) sequence good for ? I have heard about it several times but am not sure what it couldbe used for. Any idea or explanation will be appreciated, ty .

[Celeri]

I really don't want to seem rude but what exactly is the fibboncci (did I spell that right?) sequence good for ? I have heard about it several times but am not sure what it couldbe used for. Any idea or explanation will be appreciated, ty .

<{POST_SNAPBACK}>

No, excellent question...

I've seen this in fractint (program to make fractal imagery) but I still don't know exactly what it is for ...

Hey anyone enough to make a fractal generator in AutoIt3? That WOULD be cool! Oh it needs to spin in 3d too (just kidding)

[Celeri]

Ok here's something like 200 pages worth of information on Fibonacci numbers ...

Fibonacci Numbers and the Golden Section

Can you believe it all started with someone observing rabbits?

And here's that program I lost so much time on trying different formulas and combinations ... WELCOME to the Fractint WWW pages

Really an awesome program. Look ma, no drugs

[eliasn]

thx, small change for n fibonacci:

Fibonacci(14,1)

Func Fibonacci($limit=50,$display=0)
   Dim $fib1 = 1, $fib2 = 2, $fib3, $results[$limit], $temp
   $results[0] = $fib1
   $results[1] = $fib2
   For $temp = 2 To $limit-1
      $fib3 = $fib1 + $fib2
      $results[$temp] = $fib3
      swap($fib1, $fib2, $fib3)
   Next
   If $display == 1 Then
      _ArrayDisplay($results, $limit & " Fibonacci Numbers")
   EndIf
   Return $results
EndFunc

Func swap(ByRef $a, ByRef $b, ByRef $c)
   $a = $b
   $b = $c
EndFunc ;==>swap

[Musashi]

This could probably be the new forum record for necroposting.

14 Years und 4 Month - Respect 😀!

[JLogan3o13]

FYI necro-posting, while against forum etiquette, is really not report-worthy. A gentle statement for new folks is enough.