13 lines
286 B
Text
13 lines
286 B
Text
sub fibonacciB(n)
|
|
local sq5, phi1, phi2, dn1, dn2, k
|
|
|
|
sq5 = sqrt(5)
|
|
phi1 = (1 + sq5) / 2
|
|
phi2 = (1 - sq5) / 2
|
|
dn1 = phi1: dn2 = phi2
|
|
for k = 0 to n
|
|
dn1 = dn1 * phi1
|
|
dn2 = dn2 * phi2
|
|
print int(((dn1 - dn2) / sq5) + .5);
|
|
next k
|
|
end sub
|