Function: math-eval-continued-fraction

math-eval-continued-fraction is a byte-compiled function defined in calc-frac.el.gz.

Signature

(math-eval-continued-fraction CF)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-frac.el.gz
(defun math-eval-continued-fraction (cf)
  (let ((n (car cf))
	(d 1)
	temp)
    (while (setq cf (cdr cf))
      (setq temp (math-add (math-mul (car cf) n) d)
	    d n
	    n temp))
    (math-div n d)))