Lines Matching +defs:calcFunc +defs:rad
39 (calc-unary-op "^2" 'calcFunc-sqr arg)
40 (calc-unary-op "sqrt" 'calcFunc-sqrt arg))))
46 (calc-unary-op "^2" 'calcFunc-sqr arg)
47 (calc-unary-op "isqt" 'calcFunc-isqrt arg))))
53 (calc-binary-op "hypt" 'calcFunc-hypot arg)))
69 (calc-binary-op "alog" 'calcFunc-alog arg)
70 (calc-binary-op "log" 'calcFunc-log arg))))
76 (calc-binary-op "alog" 'calcFunc-alog arg)
77 (calc-binary-op "ilog" 'calcFunc-ilog arg))))
89 (calc-unary-op "lg10" 'calcFunc-log10 arg)
90 (calc-unary-op "10^" 'calcFunc-exp10 arg))
92 (calc-unary-op "ln" 'calcFunc-ln arg)
93 (calc-unary-op "exp" 'calcFunc-exp arg)))))
99 (calc-unary-op "ln+1" 'calcFunc-lnp1 arg)
100 (calc-unary-op "ex-1" 'calcFunc-expm1 arg))))
126 (calc-unary-op "asnh" 'calcFunc-arcsinh arg)
127 (calc-unary-op "sinh" 'calcFunc-sinh arg))
129 (calc-unary-op "asin" 'calcFunc-arcsin arg)
130 (calc-unary-op "sin" 'calcFunc-sin arg)))))
152 (calc-unary-op "sech" 'calcFunc-sech arg)
153 (calc-unary-op "sec" 'calcFunc-sec arg))))
165 (calc-unary-op "acsh" 'calcFunc-arccosh arg)
166 (calc-unary-op "cosh" 'calcFunc-cosh arg))
168 (calc-unary-op "acos" 'calcFunc-arccos arg)
169 (calc-unary-op "cos" 'calcFunc-cos arg)))))
191 (calc-unary-op "csch" 'calcFunc-csch arg)
192 (calc-unary-op "csc" 'calcFunc-csc arg))))
203 (calc-enter-result 1 "asnc" (list 'calcFunc-arcsincos (calc-top-n 1)))
204 (calc-enter-result 1 "sncs" (list 'calcFunc-sincos (calc-top-n 1))))))
211 (calc-unary-op "atnh" 'calcFunc-arctanh arg)
212 (calc-unary-op "tanh" 'calcFunc-tanh arg))
214 (calc-unary-op "atan" 'calcFunc-arctan arg)
215 (calc-unary-op "tan" 'calcFunc-tan arg)))))
237 (calc-unary-op "coth" 'calcFunc-coth arg)
238 (calc-unary-op "cot" 'calcFunc-cot arg))))
248 (calc-enter-result 2 "atn2" (cons 'calcFunc-arctan2 (calc-top-list-n 2)))))
253 (calc-unary-op "conj" 'calcFunc-conj arg)))
263 (calc-unary-op ">deg" 'calcFunc-deg arg)))
268 (calc-unary-op ">rad" 'calcFunc-rad arg)))
284 (calc-change-mode 'calc-angle-mode 'rad)
300 (defun calcFunc-isqrt (a)
374 (list 'calcFunc-sqrt a)
382 (list 'calcFunc-sqrt a)
394 num-sqrt (list 'calcFunc-sqrt (nth 1 a)))
396 den-sqrt (list 'calcFunc-sqrt (nth 2 a))))
397 (list 'calcFunc-sqrt a))
451 (list 'calcFunc-sqrt a))))
452 (defalias 'calcFunc-sqrt 'math-sqrt)
555 (list 'calcFunc-hypot a b)))
560 (list 'calcFunc-hypot a b)))
563 (math-sqrt (math-add (calcFunc-abssqr a) (calcFunc-abssqr b)))))
572 (defalias 'calcFunc-hypot 'math-hypot)
574 (defun calcFunc-sqr (x)
660 (defun calcFunc-nroot (x n)
661 (calcFunc-pow x (if (integerp n)
680 (math-from-hms a 'rad))
689 (list 'calcFunc-deg a)))
691 (math-to-hms a 'rad))
696 (math-from-hms a 'rad))
714 (defun calcFunc-sin (x) ; [N N] [Public]
730 (math-make-sdev (calcFunc-sin (nth 1 x))
731 (math-mul (nth 2 x) (calcFunc-cos (nth 1 x))))))
733 (calcFunc-cos (math-sub x (math-quarter-circle nil))))
737 (list 'calcFunc-sin x))))
739 (defun calcFunc-cos (x) ; [N N] [Public]
755 (math-make-sdev (calcFunc-cos (nth 1 x))
756 (math-mul (nth 2 x) (calcFunc-sin (nth 1 x))))))
780 (list 'calcFunc-cos x))))
782 (defun calcFunc-sincos (x) ; [V N] [Public]
787 (list 'vec (calcFunc-sin x) (calcFunc-cos x))))
789 (defun calcFunc-tan (x) ; [N N] [Public]
807 (list 'calcFunc-tan x))
810 (math-make-sdev (calcFunc-tan (nth 1 x))
812 (math-sqr (calcFunc-cos (nth 1 x)))))))
830 (list 'calcFunc-tan x))))
832 (defun calcFunc-sec (x)
840 (eq calc-angle-mode 'rad)
856 (list 'calcFunc-sec x))
861 (math-make-sdev (calcFunc-sec (nth 1 x))
864 (calcFunc-sin (nth 1 x)))
865 (math-sqr (calcFunc-cos (nth 1 x)))))))
896 (list 'calcFunc-sec x))))
898 (defun calcFunc-csc (x)
918 (list 'calcFunc-csc x))
923 (math-make-sdev (calcFunc-csc (nth 1 x))
926 (calcFunc-cos (nth 1 x)))
927 (math-sqr (calcFunc-sin (nth 1 x)))))))
954 (list 'calcFunc-csc x))))
956 (defun calcFunc-cot (x) ; [N N] [Public]
974 (list 'calcFunc-cot x))
977 (math-make-sdev (calcFunc-cot (nth 1 x))
979 (math-sqr (calcFunc-sin (nth 1 x)))))))
993 (list 'calcFunc-cot x))))
1163 (defun calcFunc-arcsin (x) ; [N N] [Public]
1172 (math-make-sdev (calcFunc-arcsin (nth 1 x))
1179 (calcFunc-arcsin (nth 2 x))
1180 (calcFunc-arcsin (nth 3 x))))
1184 (list 'calcFunc-arcsin x))))
1186 (defun calcFunc-arccos (x) ; [N N] [Public]
1195 (math-make-sdev (calcFunc-arccos (nth 1 x))
1202 (calcFunc-arccos (nth 2 x))
1203 (calcFunc-arccos (nth 3 x))))
1207 (list 'calcFunc-arccos x))))
1209 (defun calcFunc-arctan (x) ; [N N] [Public]
1217 (math-make-sdev (calcFunc-arctan (nth 1 x))
1223 (calcFunc-arctan (nth 2 x))
1224 (calcFunc-arctan (nth 3 x))))
1232 (list 'calcFunc-arctan x))))
1278 (defun calcFunc-arctan2 (y x) ; [F R R] [Public]
1285 (list 'calcFunc-arctan2 y x))
1302 (calcFunc-arctan2 y x)
1305 (list 'calcFunc-arctan2 y x))))
1324 (defun calcFunc-arcsincos (x) ; [V N] [Public]
1327 (calcFunc-arctan2 (nth 2 x) (nth 1 x))
1334 (defun calcFunc-exp (x) ; [N N] [Public]
1341 (let ((ex (calcFunc-exp (nth 1 x))))
1344 (math-make-intv (nth 1 x) (calcFunc-exp (nth 2 x))
1345 (calcFunc-exp (nth 3 x))))
1353 (list 'calcFunc-exp x))))
1355 (defun calcFunc-expm1 (x) ; [N N] [Public]
1369 (let ((ex (calcFunc-expm1 (nth 1 x))))
1371 (math-make-sdev (calcFunc-expm1 (nth 1 x))
1372 (math-mul (nth 2 x) (calcFunc-exp (nth 1 x))))))
1375 (calcFunc-expm1 (nth 2 x))
1376 (calcFunc-expm1 (nth 3 x))))
1384 (list 'calcFunc-expm1 x))))
1386 (defun calcFunc-exp10 (x) ; [N N] [Public]
1436 (defun calcFunc-ln (x) ; [N N] [Public]
1445 (math-make-sdev (calcFunc-ln (nth 1 x))
1451 (math-make-intv (nth 1 x) (calcFunc-ln (nth 2 x))
1452 (calcFunc-ln (nth 3 x)))))
1464 (list 'calcFunc-ln x))))
1466 (defun calcFunc-log10 (x) ; [N N] [Public]
1500 (math-div (calcFunc-ln xf) (math-ln-10))))))
1502 (math-make-sdev (calcFunc-log10 (nth 1 x))
1508 (calcFunc-log10 (nth 2 x))
1509 (calcFunc-log10 (nth 3 x))))
1515 (list 'calcFunc-log10 x))))
1517 (defun calcFunc-log (x &optional b) ; [N N N] [Public]
1519 (math-normalize (list 'calcFunc-ln x)))
1521 (math-normalize (list 'calcFunc-log10 x)))
1524 (math-div (calcFunc-ln x) (calcFunc-ln b))
1528 (math-div (calcFunc-ln x) (calcFunc-ln b))
1532 (math-div (calcFunc-ln x) 0)
1562 (math-make-sdev (calcFunc-log (nth 1 x) b)
1570 (calcFunc-log (nth 2 x) b)
1571 (calcFunc-log (nth 3 x) b)))
1573 (math-div (calcFunc-ln x) (calcFunc-ln b)))
1576 (math-div (calcFunc-ln x) (calcFunc-ln b)))
1580 (list 'calcFunc-log x b))))
1582 (defun calcFunc-alog (x &optional b)
1584 (math-normalize (list 'calcFunc-exp x)))
1587 (defun calcFunc-ilog (x b)
1595 (math-floor (calcFunc-log x b))))
1626 (defun calcFunc-lnp1 (x) ; [N N] [Public]
1643 (math-make-sdev (calcFunc-lnp1 (nth 1 x))
1648 (calcFunc-lnp1 (nth 2 x))
1649 (calcFunc-lnp1 (nth 3 x))))
1655 (list 'calcFunc-lnp1 x))))
1730 (defun calcFunc-sinh (x) ; [N N] [Public]
1734 (list '/ (list '- (list 'calcFunc-exp x)
1735 (list 'calcFunc-exp (list 'neg x))) 2)))
1742 (math-make-sdev (calcFunc-sinh (nth 1 x))
1743 (math-mul (nth 2 x) (calcFunc-cosh (nth 1 x)))))
1746 (calcFunc-sinh (nth 2 x))
1747 (calcFunc-sinh (nth 3 x))))
1753 (list 'calcFunc-sinh x))))
1754 (put 'calcFunc-sinh 'math-expandable t)
1756 (defun calcFunc-cosh (x) ; [N N] [Public]
1760 (list '/ (list '+ (list 'calcFunc-exp x)
1761 (list 'calcFunc-exp (list 'neg x))) 2)))
1768 (math-make-sdev (calcFunc-cosh (nth 1 x))
1770 (calcFunc-sinh (nth 1 x)))))
1774 (calcFunc-cosh (nth 2 x))
1775 (calcFunc-cosh (nth 3 x))))
1781 (list 'calcFunc-cosh x))))
1782 (put 'calcFunc-cosh 'math-expandable t)
1784 (defun calcFunc-tanh (x) ; [N N] [Public]
1788 (let ((expx (list 'calcFunc-exp x))
1789 (expmx (list 'calcFunc-exp (list 'neg x))))
1795 (let* ((expx (calcFunc-exp (math-float x)))
1800 (math-make-sdev (calcFunc-tanh (nth 1 x))
1802 (math-sqr (calcFunc-cosh (nth 1 x))))))
1805 (calcFunc-tanh (nth 2 x))
1806 (calcFunc-tanh (nth 3 x))))
1814 (list 'calcFunc-tanh x))))
1815 (put 'calcFunc-tanh 'math-expandable t)
1817 (defun calcFunc-sech (x) ; [N N] [Public]
1821 (list '/ 2 (list '+ (list 'calcFunc-exp x)
1822 (list 'calcFunc-exp (list 'neg x))))))
1829 (math-make-sdev (calcFunc-sech (nth 1 x))
1831 (math-mul (calcFunc-sech (nth 1 x))
1832 (calcFunc-tanh (nth 1 x))))))
1836 (calcFunc-sech (nth 2 x))
1837 (calcFunc-sech (nth 3 x))))
1844 (list 'calcFunc-sech x))))
1845 (put 'calcFunc-sech 'math-expandable t)
1847 (defun calcFunc-csch (x) ; [N N] [Public]
1851 (list '/ 2 (list '- (list 'calcFunc-exp x)
1852 (list 'calcFunc-exp (list 'neg x))))))
1859 (math-make-sdev (calcFunc-csch (nth 1 x))
1861 (math-mul (calcFunc-csch (nth 1 x))
1862 (calcFunc-coth (nth 1 x))))))
1868 (calcFunc-csch (nth 2 x))
1869 (calcFunc-csch (nth 3 x)))))
1876 (list 'calcFunc-csch x))))
1877 (put 'calcFunc-csch 'math-expandable t)
1879 (defun calcFunc-coth (x) ; [N N] [Public]
1883 (let ((expx (list 'calcFunc-exp x))
1884 (expmx (list 'calcFunc-exp (list 'neg x))))
1890 (let* ((expx (calcFunc-exp (math-float x)))
1895 (math-make-sdev (calcFunc-coth (nth 1 x))
1897 (math-sqr (calcFunc-sinh (nth 1 x))))))
1903 (calcFunc-coth (nth 2 x))
1904 (calcFunc-coth (nth 3 x)))))
1912 (list 'calcFunc-coth x))))
1913 (put 'calcFunc-coth 'math-expandable t)
1915 (defun calcFunc-arcsinh (x) ; [N N] [Public]
1919 (list 'calcFunc-ln (list '+ x (list 'calcFunc-sqrt
1927 (math-make-sdev (calcFunc-arcsinh (nth 1 x))
1933 (calcFunc-arcsinh (nth 2 x))
1934 (calcFunc-arcsinh (nth 3 x))))
1940 (list 'calcFunc-arcsinh x))))
1941 (put 'calcFunc-arcsinh 'math-expandable t)
1943 (defun calcFunc-arccosh (x) ; [N N] [Public]
1951 (list 'calcFunc-ln (list '+ x (list 'calcFunc-sqrt
1972 (math-make-sdev (calcFunc-arccosh (nth 1 x))
1978 (calcFunc-arccosh (nth 2 x))
1979 (calcFunc-arccosh (nth 3 x))))
1985 (list 'calcFunc-arccosh x))))
1986 (put 'calcFunc-arccosh 'math-expandable t)
1988 (defun calcFunc-arctanh (x) ; [N N] [Public]
1996 (list 'calcFunc-ln (list '+ 1 x))
1997 (list 'calcFunc-ln (list '- 1 x))) 2))
2014 (math-make-sdev (calcFunc-arctanh (nth 1 x))
2019 (calcFunc-arctanh (nth 2 x))
2020 (calcFunc-arctanh (nth 3 x))))
2024 (list 'calcFunc-arctanh x))))
2025 (put 'calcFunc-arctanh 'math-expandable t)
2029 (defun calcFunc-rad (a) ; [R R] [Public]
2035 (math-from-hms a 'rad))
2037 (math-make-sdev (calcFunc-rad (nth 1 a))
2038 (calcFunc-rad (nth 2 a))))
2042 (t (list 'calcFunc-rad a))))
2043 (put 'calcFunc-rad 'math-expandable t)
2046 (defun calcFunc-deg (a) ; [R R] [Public]
2054 (math-make-sdev (calcFunc-deg (nth 1 a))
2055 (calcFunc-deg (nth 2 a))))
2059 (t (list 'calcFunc-deg a))))
2060 (put 'calcFunc-deg 'math-expandable t)