支点(连分式实践)

(setq   small  37)

(setq  big  99)

 

(defun  calc  (a  b)

(if  (eq  a  1)

       (cons  b nil)

(cons  (/  (-  b  (mod  b  a ) )

            a)

       (calc   (mod  b a )  a ))))

 

(defun  recalc  (lst)

(if  (eq  (cdr lst ) nil)

    (/ 1.0  (car lst))

(/  1.0  

    (+   (car  lst)

         (recalc (cdr lst))))))

 

(/  (* small 1.0)  big)

(recalc (calc  small  big))

 

 

(setq   small  13)

(setq  big  30)

(/  (* small 1.0)  big)

(recalc (calc  small  big))

 

 

 

(setq   small  7)

(setq  big  9)

(/  (* small 1.0)  big)

(recalc (calc  small  big))

 

(setq   small  17)

(setq  big  45)

(/  (* small 1.0)  big)

(recalc (calc  small  big))