Lines Matching defs:digits
65 (defconst decimal-digits 6
66 "Number of decimal digits expected to be accurate.")
68 (defconst expt-digits 2
69 "Maximum permitted digits in a scientific notation exponent.")
109 (defvar powers-of-10 (make-vector (1+ decimal-digits) _f1))
117 (defconst all-decimal-digs-minval (aref powers-of-10 (1- decimal-digits)))
118 (defconst highest-power-of-10 (aref powers-of-10 decimal-digits))
338 power (+ power decimal-digits)))
345 power (- power decimal-digits)))
365 (cond ((>= power (1- decimal-digits))
367 (let ((zeroes (- power decimal-digits)))
393 ;; digits of the exponent.
397 by either E or e. Only the six most significant digits of the integer
398 and fractional parts are used; only the first two digits of the exponent
413 (setq power (- (length int-subst) decimal-digits))
420 ; if more than 6 digits, round off
421 (if (> (length digit-string) decimal-digits)
422 (setq round-up (>= (aref digit-string decimal-digits) ?5)
423 digit-string (substring digit-string 0 decimal-digits))
424 (setq power (+ power (- decimal-digits (length digit-string)))))
439 (min expt-digits (length expt-subst))))
446 (setq chunks (/ expt decimal-digits)
447 tens (% expt decimal-digits))