Lines Matching +defs:calc +defs:collect
0 ;;; calc-arith.el --- arithmetic functions for Calc
30 ;; This file is autoloaded from calc-ext.el.
32 (require 'calc-ext)
33 (require 'calc-macs)
106 (defun calc-min (arg)
108 (calc-slow-wrapper
109 (calc-binary-op "min" 'calcFunc-min arg '(var inf var-inf))))
111 (defun calc-max (arg)
113 (calc-slow-wrapper
114 (calc-binary-op "max" 'calcFunc-max arg '(neg (var inf var-inf)))))
116 (defun calc-abs (arg)
118 (calc-slow-wrapper
119 (calc-unary-op "abs" 'calcFunc-abs arg)))
122 (defun calc-idiv (arg)
124 (calc-slow-wrapper
125 (calc-binary-op "\\" 'calcFunc-idiv arg 1)))
128 (defun calc-floor (arg)
130 (calc-slow-wrapper
131 (if (calc-is-inverse)
132 (if (calc-is-hyperbolic)
133 (calc-unary-op "ceil" 'calcFunc-fceil arg)
134 (calc-unary-op "ceil" 'calcFunc-ceil arg))
135 (if (calc-is-hyperbolic)
136 (calc-unary-op "flor" 'calcFunc-ffloor arg)
137 (calc-unary-op "flor" 'calcFunc-floor arg)))))
139 (defun calc-ceiling (arg)
141 (calc-invert-func)
142 (calc-floor arg))
144 (defun calc-round (arg)
146 (calc-slow-wrapper
147 (if (calc-is-inverse)
148 (if (calc-is-hyperbolic)
149 (calc-unary-op "trnc" 'calcFunc-ftrunc arg)
150 (calc-unary-op "trnc" 'calcFunc-trunc arg))
151 (if (calc-is-hyperbolic)
152 (calc-unary-op "rond" 'calcFunc-fround arg)
153 (calc-unary-op "rond" 'calcFunc-round arg)))))
155 (defun calc-trunc (arg)
157 (calc-invert-func)
158 (calc-round arg))
160 (defun calc-mant-part (arg)
162 (calc-slow-wrapper
163 (calc-unary-op "mant" 'calcFunc-mant arg)))
165 (defun calc-xpon-part (arg)
167 (calc-slow-wrapper
168 (calc-unary-op "xpon" 'calcFunc-xpon arg)))
170 (defun calc-scale-float (arg)
172 (calc-slow-wrapper
173 (calc-binary-op "scal" 'calcFunc-scf arg)))
175 (defun calc-abssqr (arg)
177 (calc-slow-wrapper
178 (calc-unary-op "absq" 'calcFunc-abssqr arg)))
180 (defun calc-sign (arg)
182 (calc-slow-wrapper
183 (calc-unary-op "sign" 'calcFunc-sign arg)))
185 (defun calc-increment (arg)
187 (calc-wrapper
188 (calc-enter-result 1 "incr" (list 'calcFunc-incr (calc-top-n 1) arg))))
190 (defun calc-decrement (arg)
192 (calc-wrapper
193 (calc-enter-result 1 "decr" (list 'calcFunc-decr (calc-top-n 1) arg))))
248 (or (eq math-decls-cache-tag (calc-var-value 'var-Decls))
249 (let ((p (calc-var-value 'var-Decls))
299 (if (if calc-matrix-mode
300 (eq calc-matrix-mode 'scalar)
400 (integerp calc-matrix-mode)
401 (eq calc-matrix-mode 'sqmatrix))
687 (if (or (= t1 4) (= t2 4) calc-prefer-frac)
1132 (t (calc-record-why "*Incompatible arguments for +" a b))))
1319 (t (calc-record-why "*Incompatible arguments for *" a b))))
1359 (or (memq calc-infinite-mode '(-1 1))
1587 calc-infinite-mode)))
1590 (let ((calc-infinite-mode 1))
1596 calc-infinite-mode)))
1598 (if calc-infinite-mode
1605 calc-infinite-mode)))
1606 (let* ((calc-infinite-mode 1)
1634 calc-infinite-mode)))
1636 (if calc-infinite-mode
1657 (t (calc-record-why "*Incompatible arguments for /" a b))))
1663 (memq calc-infinite-mode '(-1 1)))
1666 (if calc-infinite-mode
1669 (if (eq calc-infinite-mode 1)
1671 (if (eq calc-infinite-mode -1)
1687 (if calc-infinite-mode
1690 (memq calc-infinite-mode '(1 -1)))
1693 (memq calc-infinite-mode '(1 -1)))
1811 (if (and calc-matrix-mode
1855 (let ((calc-infinite-mode 1))
1885 (calc-record-why 'anglep b)
1886 (calc-record-why 'anglep a))
1902 (if calc-infinite-mode
1916 calc-infinite-mode
1953 (and calc-symbolic-mode
1970 calc-matrix-mode
1971 (not (eq calc-matrix-mode 'scalar))
2063 (calc-record-why 'objectp b)
2064 (calc-record-why 'objectp a))
2107 (and (Math-integerp b) calc-infinite-mode)))
2111 (and (Math-integerp b) calc-infinite-mode)))))
2114 (let ((calc-infinite-mode (if (math-zerop (nth 3 a)) -1 1)))
2335 (t (calc-record-why 'numvecp a)
2365 ;; The variable math-trunc-prec is local to math-trunc in calc-misc.el,
2414 (calcFunc-scf (math-trunc (let ((calc-prefer-frac t))
2435 ;; The variable math-floor-prec is local to math-floor in calc-misc.el,
2477 (calcFunc-scf (math-floor (let ((calc-prefer-frac t))
2498 (calcFunc-scf (math-ceiling (let ((calc-prefer-frac t))
2557 (calcFunc-scf (math-round (let ((calc-prefer-frac t))
2565 (setq a (let ((calc-angle-mode 'deg)) ; in case of HMS forms
2621 (calc-record-why 'realp x)
2630 (calc-record-why 'realp x)
2668 (calc-record-why 'realp x)
2676 (calc-record-why 'integerp n)
2690 (calcFunc-scf relative-to (- 1 calc-internal-prec)))
2695 calc-internal-prec))))))
2708 (let ((calc-prefer-frac nil))
2735 (t (calc-record-why 'numvecp a)
2748 (let ((calc-prefer-frac t))
2753 (let ((calc-prefer-frac t))
2818 ;; math-unit-prefixes is defined in calc-units.el,
3034 ;; but is used by math-commutative collect, which is called by
3042 (math-commutative-collect b nil)
3044 (math-commutative-collect a nil)
3059 (defun math-commutative-collect (b neg)
3062 (math-commutative-collect (nth 1 b) neg)
3063 (math-commutative-collect (nth 2 b) neg))
3066 (math-commutative-collect (nth 1 b) neg)
3067 (math-commutative-collect (nth 2 b) (not neg)))
3070 (provide 'calc-arith)
3073 ;;; calc-arith.el ends here