Function: math-div-float

math-div-float is a byte-compiled function defined in calc.el.gz.

Signature

(math-div-float A B)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc.el.gz
(defun math-div-float (a b)   ; [F F F]
  (let ((ldiff (max (- (1+ calc-internal-prec)
		       (- (math-numdigs (nth 1 a)) (math-numdigs (nth 1 b))))
		    0)))
    (math-make-float (math-quotient (math-scale-int (nth 1 a) ldiff) (nth 1 b))
		     (- (- (nth 2 a) (nth 2 b)) ldiff))))