12 lines
270 B
Text
12 lines
270 B
Text
' Fibonacci sequence - Binet's Formula - 31/07/2018
|
|
n = 69
|
|
sq5=Math.SquareRoot(5)
|
|
phi1=(1+sq5)/2
|
|
phi2=(1-sq5)/2
|
|
phi1n=phi1
|
|
phi2n=phi2
|
|
For i = 2 To n
|
|
phi1n=phi1n*phi1
|
|
phi2n=phi2n*phi2
|
|
TextWindow.Write(Math.Floor((phi1n-phi2n)/sq5)+" ")
|
|
EndFor
|