2. De rij van Fibonacci

Function Fibo(Number)
    Dim Phi
    Phi = (5 ^ (1 / 2) + 1) / 2
    Fibo = (Phi ^ Number - (-Phi) ^ (-Number)) / (5 ^ (1 / 2))
End Function

Function Fibo2(Number)
    If Number > 2 Then
        Fibo2 = Fibo2(Number - 1) + Fibo2(Number - 2)
    Else
        Fibo2 = 1
    End If
End Function

---

1	1	1
2	1	1
3	2	2
4	3	3
5	5	5
6	8	8
7	13	13
8	21	21
9	34	34
10	55	55
11	89	89
12	144	144
13	233	233
14	377	377
15	610	610
16	987	987
17	1597	1597
18	2584	2584
19	4181	4181
20	6765	6765
21	10946	10946
22	17711	17711
23	28657	28657
24	46368	46368
25	75025	75025

De tweede kolom is fibo(...) en de tweede kolom is fibo2(...). Zoek de verschillen!

• Zie ook 8.2 van de Reader van Analyse plus

©2004-2024 W.v.Ravenstein