32 lines
480 B
Plaintext
32 lines
480 B
Plaintext
FOR i = 0 TO 15
|
|
PRINT fibR(i),fibI(i),fibN(i)
|
|
NEXT i
|
|
|
|
/* Recursive Method */
|
|
DEF fibR(n)
|
|
IF n <= 1 THEN
|
|
fibR = n
|
|
ELSE
|
|
fibR = fibR(n-1) + fibR(n-2)
|
|
ENDIF
|
|
END DEF
|
|
|
|
/* Iterative Method */
|
|
DEF fibI(n)
|
|
a = 0
|
|
b = 1
|
|
FOR i = 1 TO n
|
|
temp = a + b
|
|
a = b
|
|
b = temp
|
|
NEXT i
|
|
fibI = a
|
|
END DEF
|
|
|
|
/* N-th Term Method */
|
|
DEF fibN(n)
|
|
uphi = .5 + SQR(5)/2
|
|
lphi = .5 - SQR(5)/2
|
|
fibN = (uphi^n-lphi^n)/SQR(5)
|
|
END DEF
|