Function: math-ln-raw-series

math-ln-raw-series is a byte-compiled function defined in calc-math.el.gz.

Signature

(math-ln-raw-series SUM N X XSQR)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-math.el.gz
;;; Compute ln((1+x)/(1-x))
(defun math-ln-raw-series (sum n x xsqr)
  (math-working "log" sum)
  (let* ((nextx (math-mul-float x xsqr))
	 (nextsum (math-add-float sum (math-div-float nextx (math-float n)))))
    (if (math-nearly-equal-float sum nextsum)
	sum
      (math-ln-raw-series nextsum (+ n 2) nextx xsqr))))