Lines Matching +defs:calcFunc +defs:esimplify
83 'calcFunc-factors 'calcFunc-factor)
90 (append (list 'calcFunc-expand
95 (defun calcFunc-powerexpand (expr)
127 (calcFunc-powerexpand (calc-top-n 1)))))
133 (calc-enter-result 2 "clct" (cons 'calcFunc-collect
138 (calc-enter-result 1 "clct" (list 'calcFunc-collect
145 (calc-unary-op "aprt" 'calcFunc-apart arg)))
150 (calc-unary-op "nrat" 'calcFunc-nrat arg)))
155 (calc-binary-op "pgcd" 'calcFunc-pgcd arg)))
162 (calc-binary-op "pdiv" 'calcFunc-pdiv arg)
175 (calc-binary-op "prem" 'calcFunc-prem arg)))
181 (calc-binary-op "pdvr" 'calcFunc-pdivide arg)
182 (calc-binary-op "pdvr" 'calcFunc-pdivrem arg))))
218 (memq (car name) '(vec calcFunc-assign calcFunc-condition))
306 (defalias 'calcFunc-esimplify 'math-simplify-extended)
346 (defalias 'calcFunc-simplify 'math-simplify)
355 (memq (car a) '(calcFunc-quote calcFunc-condition
356 calcFunc-evalto)))
544 (and (memq (car math-simplify-expr) '(calcFunc-eq calcFunc-neq))
565 (and (not (memq (car math-simplify-expr) '(/ calcFunc-eq calcFunc-neq)))
573 (eq (car-safe (car dp)) 'calcFunc-sqrt)
577 (list 'calcFunc-sqrt (nth 1 (car dp)))))
643 (setq t1 (calcFunc-gcd (nth 1 lin) (nth 2 math-simplify-expr)))
660 (math-defsimplify (calcFunc-eq calcFunc-neq calcFunc-lt
661 calcFunc-gt calcFunc-leq calcFunc-geq)
676 (or (cond ((eq (car math-simplify-expr) 'calcFunc-eq)
679 ((eq (car math-simplify-expr) 'calcFunc-neq)
682 ((eq (car math-simplify-expr) 'calcFunc-lt)
685 ((eq (car math-simplify-expr) 'calcFunc-gt)
688 ((eq (car math-simplify-expr) 'calcFunc-leq)
691 ((eq (car math-simplify-expr) 'calcFunc-geq)
725 (math-defsimplify calcFunc-sin
726 (or (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsin)
729 (math-neg (list 'calcFunc-sin (math-neg (nth 1 math-simplify-expr)))))
738 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccos)
739 (list 'calcFunc-sqrt (math-sub 1 (math-sqr
741 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctan)
743 (list 'calcFunc-sqrt
750 (list '* (list 'calcFunc-sin (list '* (1- n) a))
751 (list 'calcFunc-cos a))
752 (list '* (list 'calcFunc-cos (list '* (1- n) a))
753 (list 'calcFunc-sin a))))))))
755 (math-defsimplify calcFunc-cos
756 (or (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccos)
759 (list 'calcFunc-cos (math-neg (nth 1 math-simplify-expr))))
768 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsin)
769 (list 'calcFunc-sqrt
771 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctan)
773 (list 'calcFunc-sqrt
780 (list '* (list 'calcFunc-cos (list '* (1- n) a))
781 (list 'calcFunc-cos a))
782 (list '* (list 'calcFunc-sin (list '* (1- n) a))
783 (list 'calcFunc-sin a))))))))
785 (math-defsimplify calcFunc-sec
787 (list 'calcFunc-sec (math-neg (nth 1 math-simplify-expr))))
796 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsin)
799 (list 'calcFunc-sqrt
801 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccos)
805 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctan)
806 (list 'calcFunc-sqrt
810 (math-defsimplify calcFunc-csc
812 (math-neg (list 'calcFunc-csc (math-neg (nth 1 math-simplify-expr)))))
821 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsin)
823 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccos)
826 (list 'calcFunc-sqrt (math-sub 1 (math-sqr
828 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctan)
829 (math-div (list 'calcFunc-sqrt
842 '(calcFunc-arcsinh calcFunc-arccosh calcFunc-arctanh)
843 '(calcFunc-arcsin calcFunc-arccos calcFunc-arctan)))
844 (and (eq (car-safe (nth 1 m)) 'calcFunc-ln)
862 (10 . (/ (calcFunc-sqrt
863 (- 2 (calcFunc-sqrt 3))) 2))
864 (12 . (/ (- (calcFunc-sqrt 5) 1) 4))
865 (15 . (/ (calcFunc-sqrt
866 (- 2 (calcFunc-sqrt 2))) 2))
869 (calcFunc-sqrt
870 (- 5 (calcFunc-sqrt 5)))))
871 (30 . (/ (calcFunc-sqrt 2) 2))
872 (36 . (/ (+ (calcFunc-sqrt 5) 1) 4))
873 (40 . (/ (calcFunc-sqrt 3) 2))
874 (45 . (/ (calcFunc-sqrt
875 (+ 2 (calcFunc-sqrt 2))) 2))
877 (calcFunc-sqrt
878 (+ 5 (calcFunc-sqrt 5)))))
879 (50 . (/ (calcFunc-sqrt
880 (+ 2 (calcFunc-sqrt 3))) 2))
882 (cond ((eq n 0) (math-normalize (list 'calcFunc-sin plus)))
883 ((eq n 60) (math-normalize (list 'calcFunc-cos plus)))
886 (math-defsimplify calcFunc-tan
887 (or (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctan)
890 (math-neg (list 'calcFunc-tan (math-neg (nth 1 math-simplify-expr)))))
899 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsin)
901 (list 'calcFunc-sqrt
903 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccos)
904 (math-div (list 'calcFunc-sqrt
910 (math-div (math-sub 1 (list 'calcFunc-cos (nth 1 m)))
911 (list 'calcFunc-sin (nth 1 m)))
912 (math-div (list 'calcFunc-sin (nth 1 math-simplify-expr))
913 (list 'calcFunc-cos (nth 1 math-simplify-expr))))))))
915 (math-defsimplify calcFunc-cot
917 (math-neg (list 'calcFunc-cot (math-neg (nth 1 math-simplify-expr)))))
926 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsin)
927 (math-div (list 'calcFunc-sqrt
930 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccos)
932 (list 'calcFunc-sqrt
934 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctan)
948 (10 . (- 2 (calcFunc-sqrt 3)))
949 (12 . (calcFunc-sqrt
950 (- 1 (* (/ 2 5) (calcFunc-sqrt 5)))))
951 (15 . (- (calcFunc-sqrt 2) 1))
952 (20 . (/ (calcFunc-sqrt 3) 3))
953 (24 . (calcFunc-sqrt
954 (- 5 (* 2 (calcFunc-sqrt 5)))))
956 (36 . (calcFunc-sqrt
957 (+ 1 (* (/ 2 5) (calcFunc-sqrt 5)))))
958 (40 . (calcFunc-sqrt 3))
959 (45 . (+ (calcFunc-sqrt 2) 1))
960 (48 . (calcFunc-sqrt
961 (+ 5 (* 2 (calcFunc-sqrt 5)))))
962 (50 . (+ 2 (calcFunc-sqrt 3)))
964 (cond ((eq n 0) (math-normalize (list 'calcFunc-tan plus)))
966 (list 'calcFunc-tan plus))))
969 (math-defsimplify calcFunc-sinh
970 (or (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsinh)
973 (math-neg (list 'calcFunc-sinh (math-neg (nth 1 math-simplify-expr)))))
974 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccosh)
976 (list 'calcFunc-sqrt
978 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctanh)
981 (list 'calcFunc-sqrt
988 (list '* (list 'calcFunc-sinh (list '* (1- n) a))
989 (list 'calcFunc-cosh a))
990 (list '* (list 'calcFunc-cosh (list '* (1- n) a))
991 (list 'calcFunc-sinh a)))))))))
993 (math-defsimplify calcFunc-cosh
994 (or (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccosh)
997 (list 'calcFunc-cosh (math-neg (nth 1 math-simplify-expr))))
998 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsinh)
1000 (list 'calcFunc-sqrt
1002 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctanh)
1005 (list 'calcFunc-sqrt
1012 (list '* (list 'calcFunc-cosh (list '* (1- n) a))
1013 (list 'calcFunc-cosh a))
1014 (list '* (list 'calcFunc-sinh (list '* (1- n) a))
1015 (list 'calcFunc-sinh a)))))))))
1017 (math-defsimplify calcFunc-tanh
1018 (or (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctanh)
1021 (math-neg (list 'calcFunc-tanh (math-neg (nth 1 math-simplify-expr)))))
1022 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsinh)
1025 (list 'calcFunc-sqrt
1027 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccosh)
1029 (math-div (list 'calcFunc-sqrt
1035 (math-div (math-sub (list 'calcFunc-cosh (nth 1 m)) 1)
1036 (list 'calcFunc-sinh (nth 1 m)))
1037 (math-div (list 'calcFunc-sinh (nth 1 math-simplify-expr))
1038 (list 'calcFunc-cosh (nth 1 math-simplify-expr))))))))
1040 (math-defsimplify calcFunc-sech
1042 (list 'calcFunc-sech (math-neg (nth 1 math-simplify-expr))))
1043 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsinh)
1047 (list 'calcFunc-sqrt
1049 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccosh)
1052 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctanh)
1054 (list 'calcFunc-sqrt
1057 (math-defsimplify calcFunc-csch
1059 (math-neg (list 'calcFunc-csch (math-neg (nth 1 math-simplify-expr)))))
1060 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsinh)
1063 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccosh)
1067 (list 'calcFunc-sqrt
1069 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctanh)
1071 (math-div (list 'calcFunc-sqrt
1075 (math-defsimplify calcFunc-coth
1077 (math-neg (list 'calcFunc-coth (math-neg (nth 1 math-simplify-expr)))))
1078 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arcsinh)
1080 (math-div (list 'calcFunc-sqrt
1083 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arccosh)
1086 (list 'calcFunc-sqrt
1088 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-arctanh)
1092 (math-defsimplify calcFunc-arcsin
1094 (math-neg (list 'calcFunc-arcsin (math-neg (nth 1 math-simplify-expr)))))
1100 (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-sin)
1103 (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-cos)
1107 (math-defsimplify calcFunc-arccos
1117 (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-cos)
1120 (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-sin)
1124 (math-defsimplify calcFunc-arctan
1126 (math-neg (list 'calcFunc-arctan (math-neg (nth 1 math-simplify-expr)))))
1130 (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-tan)
1133 (math-defsimplify calcFunc-arcsinh
1135 (math-neg (list 'calcFunc-arcsinh (math-neg (nth 1 math-simplify-expr)))))
1136 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-sinh)
1141 (math-defsimplify calcFunc-arccosh
1142 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-cosh)
1147 (math-defsimplify calcFunc-arctanh
1149 (math-neg (list 'calcFunc-arctanh (math-neg (nth 1 math-simplify-expr)))))
1150 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-tanh)
1155 (math-defsimplify calcFunc-sqrt
1160 (math-div (list 'calcFunc-sqrt
1168 (math-mul (math-normalize (list 'calcFunc-sqrt fac))
1170 (list 'calcFunc-sqrt
1179 'calcFunc-sin)
1180 (list 'calcFunc-cos
1183 'calcFunc-cos)
1184 (list 'calcFunc-sin
1192 'calcFunc-cosh)
1193 (list 'calcFunc-sinh
1203 (or (and (eq (car-safe (nth 1 a)) 'calcFunc-sinh)
1204 (list 'calcFunc-cosh (nth 1 (nth 1 a))))
1205 (and (eq (car-safe (nth 1 a)) 'calcFunc-csch)
1206 (list 'calcFunc-coth (nth 1 (nth 1 a))))
1207 (and (eq (car-safe (nth 1 a)) 'calcFunc-tan)
1208 (list '/ 1 (list 'calcFunc-cos
1210 (and (eq (car-safe (nth 1 a)) 'calcFunc-cot)
1211 (list '/ 1 (list 'calcFunc-sin
1217 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-sqrt)
1221 (list 'calcFunc-sqrt (nth 1 (nth 1 math-simplify-expr)))
1222 (list 'calcFunc-sqrt (nth 2 (nth 1 math-simplify-expr)))))
1225 (let ((f (calcFunc-factors (calcFunc-expand
1245 (list 'calcFunc-sqrt
1261 (math-defsimplify calcFunc-exp
1265 (or (and (eq (car-safe x) 'calcFunc-ln)
1268 (or (and (eq (car-safe x) 'calcFunc-arcsinh)
1270 (list 'calcFunc-sqrt
1272 (and (eq (car-safe x) 'calcFunc-arccosh)
1274 (list 'calcFunc-sqrt
1276 (and (eq (car-safe x) 'calcFunc-arctanh)
1277 (math-div (list 'calcFunc-sqrt (math-add 1 (nth 1 x)))
1278 (list 'calcFunc-sqrt (math-sub 1 (nth 1 x)))))
1281 (list '^ (list 'calcFunc-exp (nth 1 m)) (car m))))))
1284 (let* ((ip (calcFunc-im x))
1292 (math-defsimplify calcFunc-ln
1293 (or (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-exp)
1304 (math-add (list 'calcFunc-ln (math-neg (nth 1 math-simplify-expr)))
1308 (let* ((ip (calcFunc-im (nth 1 math-simplify-expr)))
1311 (math-add (list 'calcFunc-ln ip)
1314 (math-sub (list 'calcFunc-ln (math-neg ip))
1327 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-sqrt)
1338 (eq (car-safe (nth 2 math-simplify-expr)) 'calcFunc-log10)
1342 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-exp)
1344 (list 'calcFunc-exp (math-mul (nth 1 (nth 1 math-simplify-expr))
1357 (or (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-cos)
1362 (list 'calcFunc-sin
1364 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-cosh)
1369 (list 'calcFunc-sinh
1375 (list 'calcFunc-sqrt (nth 1 math-simplify-expr))
1386 (math-defsimplify calcFunc-log10
1394 (math-defsimplify calcFunc-erf
1396 (math-neg (list 'calcFunc-erf (math-neg (nth 1 math-simplify-expr)))))
1397 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-conj)
1398 (list 'calcFunc-conj
1399 (list 'calcFunc-erf (nth 1 (nth 1 math-simplify-expr)))))))
1401 (math-defsimplify calcFunc-erfc
1403 (math-sub 2 (list 'calcFunc-erfc (math-neg (nth 1 math-simplify-expr)))))
1404 (and (eq (car-safe (nth 1 math-simplify-expr)) 'calcFunc-conj)
1405 (list 'calcFunc-conj
1406 (list 'calcFunc-erfc (nth 1 (nth 1 math-simplify-expr)))))))
1487 (defun calcFunc-lin (expr &optional var)
1496 (defun calcFunc-linnt (expr &optional var)
1505 (defun calcFunc-islin (expr &optional var)
1508 (calcFunc-lin expr var)
1511 (defun calcFunc-islinnt (expr &optional var)
1514 (calcFunc-linnt expr var)
1561 (defalias 'calcFunc-subst 'math-expr-subst)
1566 ((memq (car expr) '(calcFunc-deriv
1567 calcFunc-tderiv))
1600 (defun calcFunc-collect (expr base)
1655 (calcFunc-lcm math-poly-frac-powers
1713 ((and (eq (car expr) 'calcFunc-exp)
1716 ((and (eq (car expr) 'calcFunc-sqrt)
1784 (and (eq (car mpb-expr) 'calcFunc-exp)