Lines Matching +defs:calcFunc +defs:floor
36 (defvar math-scalar-functions '(calcFunc-det
37 calcFunc-cnorm calcFunc-rnorm
38 calcFunc-vlen calcFunc-vcount
39 calcFunc-vsum calcFunc-vprod
40 calcFunc-vmin calcFunc-vmax))
42 (defvar math-nonscalar-functions '(vec calcFunc-idn calcFunc-diag
43 calcFunc-cvec calcFunc-index
44 calcFunc-trn
45 | calcFunc-append
46 calcFunc-cons calcFunc-rcons
47 calcFunc-tail calcFunc-rhead))
51 (defvar math-real-functions '(calcFunc-arg
52 calcFunc-re calcFunc-im
53 calcFunc-floor calcFunc-ceil
54 calcFunc-trunc calcFunc-round
55 calcFunc-rounde calcFunc-roundu
56 calcFunc-ffloor calcFunc-fceil
57 calcFunc-ftrunc calcFunc-fround
58 calcFunc-frounde calcFunc-froundu))
62 (defvar math-nonnegative-functions '(calcFunc-cnorm calcFunc-rnorm
63 calcFunc-vlen calcFunc-vcount))
65 (defvar math-real-scalar-functions '(% calcFunc-idiv calcFunc-abs
66 calcFunc-choose calcFunc-perm
67 calcFunc-eq calcFunc-neq
68 calcFunc-lt calcFunc-gt
69 calcFunc-leq calcFunc-geq
70 calcFunc-lnot
71 calcFunc-max calcFunc-min))
73 (defvar math-real-if-arg-functions '(calcFunc-sin calcFunc-cos
74 calcFunc-tan calcFunc-sec
75 calcFunc-csc calcFunc-cot
76 calcFunc-arctan
77 calcFunc-sinh calcFunc-cosh
78 calcFunc-tanh calcFunc-sech
79 calcFunc-csch calcFunc-coth
80 calcFunc-exp
81 calcFunc-gamma calcFunc-fact))
83 (defvar math-integer-functions '(calcFunc-idiv
84 calcFunc-isqrt calcFunc-ilog
85 calcFunc-vlen calcFunc-vcount))
89 (defvar math-rounding-functions '(calcFunc-floor
90 calcFunc-ceil
91 calcFunc-round calcFunc-trunc
92 calcFunc-rounde calcFunc-roundu))
94 (defvar math-float-rounding-functions '(calcFunc-ffloor
95 calcFunc-fceil
96 calcFunc-fround calcFunc-ftrunc
97 calcFunc-frounde calcFunc-froundu))
99 (defvar math-integer-if-args-functions '(+ - * % neg calcFunc-abs
100 calcFunc-min calcFunc-max
101 calcFunc-choose calcFunc-perm))
109 (calc-binary-op "min" 'calcFunc-min arg '(var inf var-inf))))
114 (calc-binary-op "max" 'calcFunc-max arg '(neg (var inf var-inf)))))
119 (calc-unary-op "abs" 'calcFunc-abs arg)))
125 (calc-binary-op "\\" 'calcFunc-idiv arg 1)))
128 (defun calc-floor (arg)
133 (calc-unary-op "ceil" 'calcFunc-fceil arg)
134 (calc-unary-op "ceil" 'calcFunc-ceil arg))
136 (calc-unary-op "flor" 'calcFunc-ffloor arg)
137 (calc-unary-op "flor" 'calcFunc-floor arg)))))
142 (calc-floor arg))
149 (calc-unary-op "trnc" 'calcFunc-ftrunc arg)
150 (calc-unary-op "trnc" 'calcFunc-trunc arg))
152 (calc-unary-op "rond" 'calcFunc-fround arg)
153 (calc-unary-op "rond" 'calcFunc-round arg)))))
163 (calc-unary-op "mant" 'calcFunc-mant arg)))
168 (calc-unary-op "xpon" 'calcFunc-xpon arg)))
173 (calc-binary-op "scal" 'calcFunc-scf arg)))
178 (calc-unary-op "absq" 'calcFunc-abssqr arg)))
183 (calc-unary-op "sign" 'calcFunc-sign 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))))
213 ((eq (car a) 'calcFunc-abs)
564 ((and (memq (car a) '(calcFunc-abs calcFunc-abssqr))
570 ((and (eq (car a) 'calcFunc-exp) (= (length a) 2))
579 ((or (and (memq (car a) '(calcFunc-ln calcFunc-log10))
581 (and (eq (car a) 'calcFunc-log)
587 ((and (eq (car a) 'calcFunc-sqrt) (= (length a) 2))
750 ((eq (car a) 'calcFunc-sqrt)
769 ((eq (car a) 'calcFunc-frac)
771 ((and (eq (car a) 'calcFunc-float) (= (length a) 2))
776 ((and (memq (car a) '(calcFunc-abs calcFunc-abssqr))
843 (defun calcFunc-dreal (expr)
849 (defun calcFunc-dimag (expr)
855 (defun calcFunc-dpos (expr)
861 (defun calcFunc-dneg (expr)
867 (defun calcFunc-dnonneg (expr)
873 (defun calcFunc-dnonzero (expr)
879 (defun calcFunc-dint (expr)
885 (defun calcFunc-dnumint (expr)
891 (defun calcFunc-dnatnum (expr)
892 (let ((res (calcFunc-dint expr)))
894 (calcFunc-dnonneg expr)
897 (defun calcFunc-deven (expr)
905 (defun calcFunc-dodd (expr)
913 (defun calcFunc-drat (expr)
919 (defun calcFunc-drange (expr)
945 (defun calcFunc-dscalar (a)
953 (defsubst calcFunc-neg (a)
1010 (defun calcFunc-add (&rest rest)
1018 (defun calcFunc-sub (&rest rest)
1196 (and (eq (car-safe a) 'calcFunc-idn)
1198 (or (and (eq (car-safe b) 'calcFunc-idn)
1200 (list 'calcFunc-idn (math-add (nth 1 a) (nth 1 b))))
1205 (and (eq (car-safe b) 'calcFunc-idn)
1214 (defun calcFunc-mul (&rest rest)
1425 (and (eq (car-safe a) 'calcFunc-idn)
1427 (or (and (eq (car-safe b) 'calcFunc-idn)
1429 (list 'calcFunc-idn (math-mul (nth 1 a) (nth 1 b))))
1431 (list 'calcFunc-idn (math-mul (nth 1 a) b)))
1434 (and (eq (car-safe b) 'calcFunc-idn)
1437 (list 'calcFunc-idn (math-mul a (nth 1 b))))
1441 (or (and (eq (car-safe b) 'calcFunc-idn)
1443 (list 'calcFunc-idn (math-mul
1448 (list 'calcFunc-idn (math-mul
1454 (or (and (eq (car-safe a) 'calcFunc-idn)
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))
1506 (defun calcFunc-div (a &rest rest)
1556 (calcFunc-inv b)
1557 (math-mul a (calcFunc-inv b)))))
1700 '((calcFunc-sin . calcFunc-csc)
1701 (calcFunc-cos . calcFunc-sec)
1702 (calcFunc-tan . calcFunc-cot)
1703 (calcFunc-sec . calcFunc-cos)
1704 (calcFunc-csc . calcFunc-sin)
1705 (calcFunc-cot . calcFunc-tan)
1706 (calcFunc-sinh . calcFunc-csch)
1707 (calcFunc-cosh . calcFunc-sech)
1708 (calcFunc-tanh . calcFunc-coth)
1709 (calcFunc-sech . calcFunc-cosh)
1710 (calcFunc-csch . calcFunc-sinh)
1711 (calcFunc-coth . calcFunc-tanh)))
1787 (and (eq (car-safe a) 'calcFunc-idn)
1789 (or (and (eq (car-safe b) 'calcFunc-idn)
1791 (list 'calcFunc-idn (math-div (nth 1 a) (nth 1 b))))
1793 (list 'calcFunc-idn (math-div (nth 1 a) b)))
1796 (and (eq (car-safe b) 'calcFunc-idn)
1799 (list 'calcFunc-idn (math-div a (nth 1 b))))
1860 (defun calcFunc-ldiv (a b)
1865 (defun calcFunc-mod (a b)
1890 (defun calcFunc-pow (a b)
1952 (calcFunc-scf '(float 1 0) b))
2000 ((and (eq (car-safe a) 'calcFunc-sqrt)
2017 ((and (eq (car-safe a) 'calcFunc-abs)
2041 ((math-equal-int (setq scale (calcFunc-abssqr a)) 1)
2058 ((and (eq (car-safe a) 'calcFunc-idn)
2061 (list 'calcFunc-idn (math-pow (nth 1 a) b)))
2085 (math-mul (nth 2 b) (calcFunc-ln
2099 (pow (calcFunc-exp (math-mul (nth 1 b) ln))))
2244 (defun calcFunc-min (&optional a &rest b)
2274 (defun calcFunc-max (&optional a &rest b)
2305 (math-sqrt (calcFunc-abssqr a))
2326 (list 'calcFunc-abs (math-neg a)))
2336 (list 'calcFunc-abs a))))
2338 (defalias 'calcFunc-abs 'math-abs)
2346 (list 'calcFunc-float (nth 2 a))))
2351 (list 'calcFunc-float (list '/ (nth 2 (nth 1 a)) (nth 2 a)))))
2353 ((eq (car a) 'calcFunc-float) a)
2354 ((let ((func (assq (car a) '((calcFunc-floor . calcFunc-ffloor)
2355 (calcFunc-ceil . calcFunc-fceil)
2356 (calcFunc-trunc . calcFunc-ftrunc)
2357 (calcFunc-round . calcFunc-fround)
2358 (calcFunc-rounde . calcFunc-frounde)
2359 (calcFunc-roundu . calcFunc-froundu)))))
2363 (defalias 'calcFunc-float 'math-float)
2414 (calcFunc-scf (math-trunc (let ((calc-prefer-frac t))
2415 (calcFunc-scf a prec)))
2419 (let ((func (assq (car-safe a) '((calcFunc-ffloor . calcFunc-floor)
2420 (calcFunc-fceil . calcFunc-ceil)
2421 (calcFunc-ftrunc . calcFunc-trunc)
2422 (calcFunc-fround . calcFunc-round)
2423 (calcFunc-frounde . calcFunc-rounde)
2424 (calcFunc-froundu . calcFunc-roundu)))))
2428 (defun calcFunc-ftrunc (a &optional prec)
2435 ;; The variable math-floor-prec is local to math-floor in calc-misc.el,
2436 ;; but used by math-floor-fancy which is called by math-floor.
2437 (defvar math-floor-prec)
2439 (defun math-floor-fancy (a)
2447 ((eq (car a) 'date) (list 'date (math-floor (nth 1 a))))
2455 (math-floor (nth 2 a))
2458 (math-add (math-floor (nth 3 a)) -1)
2459 (math-floor (nth 3 a)))))
2461 (math-map-vec (function (lambda (x) (math-floor x math-floor-prec))) a))
2469 (defun math-floor-special (a prec)
2477 (calcFunc-scf (math-floor (let ((calc-prefer-frac t))
2478 (calcFunc-scf a prec)))
2481 (defun calcFunc-ffloor (a &optional prec)
2486 (math-float (math-floor a prec))))
2498 (calcFunc-scf (math-ceiling (let ((calc-prefer-frac t))
2499 (calcFunc-scf a prec)))
2524 (math-add (math-floor (nth 2 a)) 1)
2536 (defalias 'calcFunc-ceil 'math-ceiling)
2538 (defun calcFunc-fceil (a &optional prec)
2557 (calcFunc-scf (math-round (let ((calc-prefer-frac t))
2558 (calcFunc-scf a prec)))
2571 (setq a (math-floor a))
2575 (math-floor a)))))
2579 (math-floor (math-add a '(frac 1 2))))
2589 (defalias 'calcFunc-round 'math-round)
2591 (defsubst calcFunc-rounde (a &optional prec)
2595 (defsubst calcFunc-roundu (a &optional prec)
2599 (defun calcFunc-fround (a &optional prec)
2606 (defsubst calcFunc-frounde (a &optional prec)
2608 (calcFunc-fround a prec)))
2610 (defsubst calcFunc-froundu (a &optional prec)
2612 (calcFunc-fround a prec)))
2615 (defun calcFunc-mant (x)
2622 (list 'calcFunc-mant x)))
2624 (defun calcFunc-xpon (x)
2631 (list 'calcFunc-xpon x)))
2633 (defun calcFunc-scf (x n)
2650 (calcFunc-scf (nth 1 x) n)
2651 (calcFunc-scf (nth 2 x) n))))
2655 (calcFunc-scf (nth 1 x) n)
2661 (calcFunc-scf (nth 2 x) n)
2662 (calcFunc-scf (nth 3 x) n))))
2664 (math-map-vec (function (lambda (x) (calcFunc-scf x n))) x))
2669 (list 'calcFunc-scf x n)))
2672 (calcFunc-scf x (math-trunc n))
2677 (list 'calcFunc-scf x n)))))
2680 (defun calcFunc-incr (x &optional step relative-to)
2690 (calcFunc-scf relative-to (- 1 calc-internal-prec)))
2703 (defsubst calcFunc-decr (x &optional step relative-to)
2704 (calcFunc-incr x (math-neg (or step 1)) relative-to))
2706 (defun calcFunc-percent (x)
2710 (list 'calcFunc-percent x)))
2712 (defun calcFunc-relch (x y)
2715 (list 'calcFunc-relch x y)))
2718 (defun calcFunc-abssqr (a)
2729 (math-reduce-vec 'math-add (math-map-vec 'calcFunc-abssqr a)))
2734 (math-mul (calcFunc-abssqr (math-infinite-dir a inf)) inf))))
2736 (list 'calcFunc-abssqr a))))
2743 (defun calcFunc-idiv (a b) ; [I I I] [Public]
2749 (math-floor (math-div a b)))
2754 (math-floor (math-div a b)))
2758 (math-floor (math-div a b)))
2848 ((eq (car a) 'calcFunc-sqrt)
2851 ((and (eq (car a) 'calcFunc-exp)
2865 ((eq (car b) 'calcFunc-sqrt)
2868 ((and (eq (car b) 'calcFunc-exp)
2892 (list 'calcFunc-sqrt a))
2894 (math-div 1 (list 'calcFunc-sqrt a)))
2897 (list 'calcFunc-exp sumpow))
2929 (list 'calcFunc-sqrt (math-mul a b)))
2931 (math-div 1 (list 'calcFunc-sqrt (math-mul a b))))
2940 ((and (eq (car-safe a) 'calcFunc-sin)
2941 (eq (car-safe b) 'calcFunc-csc)
2944 ((and (eq (car-safe a) 'calcFunc-sin)
2945 (eq (car-safe b) 'calcFunc-sec)
2947 (cons 'calcFunc-tan (cdr a)))
2948 ((and (eq (car-safe a) 'calcFunc-sin)
2949 (eq (car-safe b) 'calcFunc-cot)
2951 (cons 'calcFunc-cos (cdr a)))
2952 ((and (eq (car-safe a) 'calcFunc-cos)
2953 (eq (car-safe b) 'calcFunc-sec)
2956 ((and (eq (car-safe a) 'calcFunc-cos)
2957 (eq (car-safe b) 'calcFunc-csc)
2959 (cons 'calcFunc-cot (cdr a)))
2960 ((and (eq (car-safe a) 'calcFunc-cos)
2961 (eq (car-safe b) 'calcFunc-tan)
2963 (cons 'calcFunc-sin (cdr a)))
2964 ((and (eq (car-safe a) 'calcFunc-tan)
2965 (eq (car-safe b) 'calcFunc-cot)
2968 ((and (eq (car-safe a) 'calcFunc-tan)
2969 (eq (car-safe b) 'calcFunc-csc)
2971 (cons 'calcFunc-sec (cdr a)))
2972 ((and (eq (car-safe a) 'calcFunc-sec)
2973 (eq (car-safe b) 'calcFunc-cot)
2975 (cons 'calcFunc-csc (cdr a)))
2976 ((and (eq (car-safe a) 'calcFunc-sinh)
2977 (eq (car-safe b) 'calcFunc-csch)
2980 ((and (eq (car-safe a) 'calcFunc-sinh)
2981 (eq (car-safe b) 'calcFunc-sech)
2983 (cons 'calcFunc-tanh (cdr a)))
2984 ((and (eq (car-safe a) 'calcFunc-sinh)
2985 (eq (car-safe b) 'calcFunc-coth)
2987 (cons 'calcFunc-cosh (cdr a)))
2988 ((and (eq (car-safe a) 'calcFunc-cosh)
2989 (eq (car-safe b) 'calcFunc-sech)
2992 ((and (eq (car-safe a) 'calcFunc-cosh)
2993 (eq (car-safe b) 'calcFunc-csch)
2995 (cons 'calcFunc-coth (cdr a)))
2996 ((and (eq (car-safe a) 'calcFunc-cosh)
2997 (eq (car-safe b) 'calcFunc-tanh)
2999 (cons 'calcFunc-sinh (cdr a)))
3000 ((and (eq (car-safe a) 'calcFunc-tanh)
3001 (eq (car-safe b) 'calcFunc-coth)
3004 ((and (eq (car-safe a) 'calcFunc-tanh)
3005 (eq (car-safe b) 'calcFunc-csch)
3007 (cons 'calcFunc-sech (cdr a)))
3008 ((and (eq (car-safe a) 'calcFunc-sech)
3009 (eq (car-safe b) 'calcFunc-coth)
3011 (cons 'calcFunc-csch (cdr a)))