Lines Matching defs:digit
961 (defvar calc-digit-map
990 (define-key calc-digit-map x 'calcDigit-backspace)
1064 ("calc-aent" calc-alg-digit-entry calc-alg-entry
1079 math-negp math-posp math-pow math-read-radix-digit math-reject-arg
2091 (defvar calc-digit-value)
2097 (calc-alg-digit-entry)
2100 (let* ((calc-digit-value nil)
2109 "Calc: " "" calc-digit-map)))
2111 "digit entry in kbd macro"))
2116 (read-from-minibuffer "Calc: " "" calc-digit-map))
2118 (or calc-digit-value (setq calc-digit-value (math-read-number buf)))
2119 (if (stringp calc-digit-value)
2120 (calc-alg-entry calc-digit-value)
2121 (if calc-digit-value
2123 calc-digit-value))))))
2138 (setq calc-digit-value (save-excursion
2141 (if (and (null calc-digit-value) (> (calc-minibuffer-size) 0))
2238 (let ((dig (math-read-radix-digit
2251 (calc-digit-dots))
2292 ;;; Each digit N is in the range 0 ... 999.
2361 ;;; L Normalized bignum digit list (without "bigpos" or "bigneg" symbol)
2635 (math-mul-bignum-digit a (if (= n 2) 100 10) 0)
2661 (cdr (math-mul-bignum-digit a (if (= n 2) 10 100) 0))
2674 (math-mul-bignum-digit (cdr a) 10 0)
2676 (math-mul-bignum-digit (cdr a) 100 0)
2886 (math-mul-bignum-digit (cdr a) (nth 1 b) 0))
2887 (math-mul-bignum-digit (cdr b) (nth 1 a) 0))))))
2916 ;;; Multiply digit lists A and B. [L L L; l l l]
2923 (math-mul-bignum-digit a (car b) 0)))
2942 ;;; Multiply digit list A by digit D. [L L D D; l l D D]
2943 (defun math-mul-bignum-digit (a d c)
2968 (let ((res (math-div-bignum-digit (cdr a) b)))
2990 (car (math-div-bignum-digit (cdr a) b)))))
2996 (res (math-div-bignum-big (math-mul-bignum-digit (cdr a) d 0)
2997 (math-mul-bignum-digit (cdr b) d 0)
3003 ;;; Divide a bignum digit list by another. [l.l l L]
3010 (res (math-div-bignum-big (math-mul-bignum-digit a d 0)
3011 (math-mul-bignum-digit b d 0)
3016 (car (math-div-bignum-digit (cdr res) d)))))
3017 (let ((res (math-div-bignum-digit a (car b))))
3020 ;;; Divide a bignum digit list by a digit. [l.D l D]
3021 (defun math-div-bignum-digit (a b)
3023 (let* ((res (math-div-bignum-digit (cdr a) b))
3044 (math-div-bignum-try a b (math-mul-bignum-digit b guess 0) guess)))