Function: math-scale-right

math-scale-right is a byte-compiled function defined in calc.el.gz.

Signature

(math-scale-right A N)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc.el.gz
(defun math-scale-right (a n)   ; [i i S]
  (if (= n 0)
      a
    (if (<= a 0)
	(if (= a 0)
	    0
	  (- (math-scale-right (- a) n)))
      (if (> n 0)
          (/ a (expt 10 n))
        a))))