Lines Matching +defs:list +defs:part
9 ;; This file is part of GNU Emacs.
160 (defun calc-mant-part (arg)
165 (defun calc-xpon-part (arg)
188 (calc-enter-result 1 "incr" (list 'calcFunc-incr (calc-top-n 1) arg))))
193 (calc-enter-result 1 "decr" (list 'calcFunc-decr (calc-top-n 1) arg))))
227 ;;; Math-decls-cache is an a-list where each entry is a list of the form:
230 ;;; TYPES is a list of type symbols (any, int, frac, ...)
261 (setq vec (list 'vec vec)))
282 (setq type (list type range))
284 (setq v (list 'vec v)))
923 (list 'vec expr)
954 (math-normalize (list 'neg a)))
958 (list 'polar
966 (list 'mod (math-sub (nth 2 a) (nth 1 a)) (nth 2 a))))
968 (list 'sdev (math-neg (nth 1 a)) (nth 2 a)))
975 (list 'neg a))
982 (list (car a) (math-neg (nth 1 a)) (nth 2 a)))
985 (list (car a) (nth 1 a) (math-neg (nth 2 a))))
990 (list (car a) (math-neg (nth 1 a)) (nth 2 a)))
995 (list (car a) (nth 1 a) (math-neg (nth 2 a))))
1000 (t (list 'neg a))))
1007 (list 'float (Math-integer-neg (nth 1 a)) (nth 2 a)))
1014 (setq a (list '+ a (car rest))))
1022 (setq a (list '- a (car rest))))
1031 (let ((res (list 'cplx
1083 (list 'date
1094 (list 'date (math-add (nth 1 a) b)))
1127 (list 'hms h m s)))
1131 (list 'hms h m s))))))
1137 (list '+ a b))
1169 (list 'intv 3 (nth 2 b) a)
1174 (list 'intv 3 a (nth 3 b))
1193 (list '- a (math-neg b)))
1195 (list '- b (math-neg a)))
1200 (list 'calcFunc-idn (math-add (nth 1 a) (nth 1 b))))
1211 (list '+ a b)))
1218 (setq a (list '* a (car rest))))
1228 (list 'polar
1233 (list 'cplx
1247 (math-mul-mats a (list 'vec b))
1254 (nth 1 (math-mul-mats (list 'vec a) b))
1288 (setq lo (list 'intv (if (memq (nth 1 b) '(2 3)) 3 0) lo lo)))
1290 (setq hi (list 'intv (if (memq (nth 1 b) '(1 3)) 3 0) hi hi)))
1362 (list 'intv 3 (or aa 0) (or bb 0))
1364 (math-neg (list 'intv 3 (or aa 0) (or bb 0)))
1372 (list '* a b))
1394 (list '^ (nth 1 a) (math-neg (nth 2 a))))))
1400 (list '^ (nth 1 b) (math-neg (nth 2 b))))))
1429 (list 'calcFunc-idn (math-mul (nth 1 a) (nth 1 b))))
1431 (list 'calcFunc-idn (math-mul (nth 1 a) b)))
1437 (list 'calcFunc-idn (math-mul a (nth 1 b))))
1443 (list 'calcFunc-idn (math-mul
1448 (list 'calcFunc-idn (math-mul
1456 (list 'calcFunc-idn (math-mul (nth 1 a)
1460 (list 'calcFunc-idn (math-mul a (nth 1 (nth 1 b)))
1498 (list '* (list 'cplx 0 (calcFunc-sign (nth 2 a))) b))
1500 (list '* (list 'polar 1 (nth 2 a)) b)))))
1503 (list '* a b)))
1508 (setq a (list '/ a (car rest))
1518 (list 'polar
1524 (list 'cplx (math-div (nth 1 a) b)
1530 (list 'cplx
1610 (setq lo (list 'intv (if (memq (nth 1 b) '(2 3)) 3 0)
1613 (setq hi (list 'intv (if (memq (nth 1 b) '(1 3)) 3 0)
1688 (list 'intv 3
1719 (list '* tr math-div-trig))
1725 (list '* ntr math-div-non-trig))
1747 (list '/ a b))
1755 (list '^ (nth 1 b) (math-neg (nth 2 b))))))
1791 (list 'calcFunc-idn (math-div (nth 1 a) (nth 1 b))))
1793 (list 'calcFunc-idn (math-div (nth 1 a) b)))
1799 (list 'calcFunc-idn (math-div a (nth 1 b))))
1857 (list '/ a b)))
1866 (math-normalize (list '% a b)))
1878 (list '% a b)))))
1887 (list '% a b))))
1891 (math-normalize (list '^ a b)))
1904 (math-reject-arg (list '^ a b) "*Indeterminate form")))
1922 (list '^ a b))))
1954 (list '^ a b))
1963 (list '^ a b))
1979 (list '^ a b)))
2057 (t (list '^ a b)))))
2061 (list 'calcFunc-idn (math-pow (nth 1 a) b)))
2065 (list '^ a b)))))
2132 (setq lo (list 'intv (if (memq (nth 1 b) '(2 3)) 3 0) lo lo)))
2134 (setq hi (list 'intv (if (memq (nth 1 b) '(1 3)) 3 0) hi hi)))
2234 (math-min a (list 'intv 3 b b)))
2236 (math-min (list 'intv 3 a a) b)
2251 (math-min-list a b)))
2253 (defun math-min-list (a b)
2258 (math-min-list (math-min a (car b)) (cdr b))
2281 (math-max-list a b)))
2283 (defun math-max-list (a b)
2288 (math-max-list (math-max a (car b)) (cdr b))
2312 (list 'sdev (math-abs (nth 1 a)) (nth 2 a)))
2326 (list 'calcFunc-abs (math-neg a)))
2336 (list 'calcFunc-abs a))))
2345 (list (car a) (math-float (nth 1 a))
2346 (list 'calcFunc-float (nth 2 a))))
2350 (list '* (math-float (nth 1 (nth 1 a)))
2351 (list 'calcFunc-float (list '/ (nth 2 (nth 1 a)) (nth 2 a)))))
2373 ((eq (car a) 'hms) (list 'hms (nth 1 a) 0 0))
2374 ((eq (car a) 'date) (list 'date (math-trunc (nth 1 a))))
2447 ((eq (car a) 'date) (list 'date (math-floor (nth 1 a))))
2514 ((eq (car a) 'date) (list 'date (math-ceiling (nth 1 a))))
2577 ((eq (car a) 'date) (list 'date (math-round (nth 1 a))))
2620 (list 'float (nth 1 x) (- 1 (math-numdigs (nth 1 x)))))
2622 (list 'calcFunc-mant x)))
2631 (list 'calcFunc-xpon x)))
2649 (list (car x)
2654 (list (car x)
2659 (list (car x)
2669 (list 'calcFunc-scf x n)))
2677 (list 'calcFunc-scf x n)))))
2699 (math-add x (list 'hms 0 0 step))))
2710 (list 'calcFunc-percent x)))
2715 (list 'calcFunc-relch x y)))
2736 (list 'calcFunc-abssqr a))))
2778 (list 'frac 1 (nth 2 a))
2792 (list 'frac 1 (nth 2 b))
2811 (math-normalize (list '+ a b))
2892 (list 'calcFunc-sqrt a))
2894 (math-div 1 (list 'calcFunc-sqrt a)))
2897 (list 'calcFunc-exp sumpow))
2901 (inexact-result (list '^ a sumpow)))))))))
2929 (list 'calcFunc-sqrt (math-mul a b)))
2931 (math-div 1 (list 'calcFunc-sqrt (math-mul a b))))
2936 (inexact-result (list '^ a apow)))))))))))
3020 (list '/ (math-div 1 a) b)
3021 (list '/ b a))
3023 (list '/ a b)
3024 (list '* a b))))