FIBS数列与连分式的推理

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)