FIBS数列与连分式的推理
a(n)=a(n-1)+a(n-2)
所以有
a(n)/a(n-1)={a(n-1)+a(n-2)}/a(n-1)
Go
a(n)/a(n-1)=1+a(n-2)/a(n-1)
Go
a(n)/a(n-1)=1+1/{a(n-1)/a(n-2)}
Go
a(n)/a(n-1)=1+1/{{a(n-2)+a(n-3)}/a(n-2)}
...
从上可以发现两者的关系,目前写程序验证:
(defun fibs (n)
(if (or (eq n 1) (eq n 2) )
1.0
(+ (fibs (1- n) )
(fibs (1- (1- n))))))
(defun conti (n)
(if (> n 2)
(+ 1
(/ 1.0
(conti (1- n))))
(/ 1.0 1.0)))
(defun test (n)
(if (> n 0)
(progn
(print (/ (fibs n) (fibs (1- n) )))
(print 'compare)
(print (conti n))
(test (- n 1)))
(print 'over)))
(test 25)