Lines Matching +defs:calcFunc +defs:float
41 (append '(calcFunc-and)
49 (append '(calcFunc-or)
57 (append '(calcFunc-xor)
65 (append '(calcFunc-diff)
73 (append '(calcFunc-not)
82 (append '(calcFunc-lsh)
91 (append '(calcFunc-rsh)
100 (append '(calcFunc-ash)
109 (append '(calcFunc-rash)
118 (append '(calcFunc-rot)
126 (append '(calcFunc-clip)
243 (defun calcFunc-and (a b &optional w) ; [I I I] [Public]
245 (calcFunc-and a b (math-trunc w)))
251 (math-binary-modulo-args 'calcFunc-and a b w))
307 (defun calcFunc-or (a b &optional w) ; [I I I] [Public]
309 (calcFunc-or a b (math-trunc w)))
315 (math-binary-modulo-args 'calcFunc-or a b w))
334 (defun calcFunc-xor (a b &optional w) ; [I I I] [Public]
336 (calcFunc-xor a b (math-trunc w)))
342 (math-binary-modulo-args 'calcFunc-xor a b w))
361 (defun calcFunc-diff (a b &optional w) ; [I I I] [Public]
363 (calcFunc-diff a b (math-trunc w)))
369 (math-binary-modulo-args 'calcFunc-diff a b w))
388 (defun calcFunc-not (a &optional w) ; [I I] [Public]
390 (calcFunc-not a (math-trunc w)))
392 (math-binary-modulo-args 'calcFunc-not a nil w))
398 (math-clip (calcFunc-not a (- w)) w))
414 (defun calcFunc-lsh (a &optional n w) ; [I I] [Public]
418 (math-binary-modulo-args 'calcFunc-lsh a n w)
427 (math-clip (calcFunc-lsh a n (- w)) w)
438 (defun calcFunc-rsh (a &optional n w) ; [I I] [Public]
439 (calcFunc-lsh a (math-neg (or n 1)) w))
441 (defun calcFunc-ash (a &optional n w) ; [I I] [Public]
444 (calcFunc-lsh a n w)
448 (math-binary-modulo-args 'calcFunc-ash a n w)
457 (math-clip (calcFunc-ash a n (- w)) w)
461 (sh (calcFunc-lsh a n w)))
467 (math-add (calcFunc-lsh (math-add two-to-n -1)
471 (defun calcFunc-rash (a &optional n w) ; [I I] [Public]
472 (calcFunc-ash a (math-neg (or n 1)) w))
474 (defun calcFunc-rot (a &optional n w) ; [I I] [Public]
478 (math-binary-modulo-args 'calcFunc-rot a n w)
487 (math-clip (calcFunc-rot a n (- w)) w)
492 (calcFunc-rot a (math-mod n w) w))
494 (math-add (calcFunc-lsh a (- n w) w)
495 (calcFunc-lsh a n w)))))))
523 (defalias 'calcFunc-clip 'math-clip)
550 '(10 . (float 332193 -5))
559 (log (calcFunc-log x 2)))
639 (defun math-float-parts (a need-frac) ; returns ( int frac fracdigs )
641 (list (math-scale-rounding (nth 1 a) (nth 2 a)) '(float 0 0) 0)
648 (list (car qr) (math-make-float (cdr qr) (- n)) n)))
650 '(float 0 0) 0)))))
652 (defun math-format-radix-float (a prec)
653 (let ((fmt (car calc-float-format))
654 (figs (nth 1 calc-float-format))
660 (fp (math-float-parts a (> afigs 0)))
666 (math-radix-float-power afigs)))))
679 (setq str (math-group-float str))))
690 (explo -1) (vlo (math-radix-float-power explo))
691 (exphi 1) (vhi (math-radix-float-power exphi))
696 (if (math-lessp-float '(float 1 0) a)
697 (while (not (math-lessp-float a vhi))
700 vhi (math-radix-float-power exphi)))
701 (while (math-lessp-float a vlo)
704 vlo (math-radix-float-power explo))))
707 vmid (math-radix-float-power expmid))
708 (if (math-lessp-float a vmid)
711 (setq a (math-div-float a vlo)))
712 (let* ((sc (math-round (math-mul a (math-radix-float-power
720 (if (and (eq fmt 'float)
748 (setq str (math-group-float str)))
767 '(float 332193 -5))))
774 (defvar math-radix-float-cache-tag nil)
775 (defvar math-radix-float-cache)
777 (defun math-radix-float-power (n)
779 '(float 1 0)
780 (or (and (eq calc-number-radix (car math-radix-float-cache-tag))
781 (<= calc-internal-prec (cdr math-radix-float-cache-tag)))
782 (setq math-radix-float-cache-tag (cons calc-number-radix
784 math-radix-float-cache nil))
786 (or (cdr (assoc n math-radix-float-cache))
787 (cdr (car (setq math-radix-float-cache
791 (cdr math-radix-float-cache-tag)))
793 (math-div-float '(float 1 0)
794 (math-radix-float-power
796 (math-mul-float (math-sqr-float
797 (math-radix-float-power
800 '(float 1 0)
801 (math-float
803 math-radix-float-cache))))))))