Lines Matching +defs:tried +defs:list
52 (setq expr (list func expr var)))
61 (calc-enter-result 2 "intg" (list 'calcFunc-integ
67 (calc-enter-result 1 "intg" (list 'calcFunc-integ
151 (calc-enter-result num prefix (append (list func expr var low high)
152 (and step (list step)))))))
161 (calc-enter-result 2 "solv" (list func
170 (calc-enter-result 1 "solv" (list func
178 (calc-enter-result 2 "prts" (list 'calcFunc-roots
187 (calc-enter-result 1 "prts" (list 'calcFunc-roots
197 (calc-enter-result 1 "tylr" (list 'calcFunc-taylor
233 (list (car expr)
255 (list '^
261 (list 'calcFunc-ln (nth 1 expr)))
270 (list (car expr) (math-derivative (nth 1 expr))))
276 (list (car expr) d (nth 2 expr)))))
300 (list (if math-deriv-total 'calcFunc-tderiv 'calcFunc-deriv)
367 (function (lambda (u) (math-div 1 (math-mul 2 (list 'calcFunc-sqrt u))))))
390 (list 'calcFunc-ln b))))
395 (let ((lnv (list 'calcFunc-ln b)))
396 (math-neg (math-div (list 'calcFunc-log x b)
400 (function (lambda (u) (math-normalize (list 'calcFunc-exp u)))))
403 (function (lambda (u) (math-normalize (list 'calcFunc-expm1 u)))))
407 (list 'calcFunc-cos u))))))
412 (list 'calcFunc-sin u)))))))
418 (list 'calcFunc-sec u)))))))
424 (list 'calcFunc-sec u))
426 (list 'calcFunc-tan u)))))))
433 (list 'calcFunc-csc u))
435 (list 'calcFunc-cot u))))))))
442 (list 'calcFunc-csc u))))))))
448 (list 'calcFunc-sqrt
455 (list 'calcFunc-sqrt
463 (function (lambda (u) (math-normalize (list 'calcFunc-cosh u)))))
466 (function (lambda (u) (math-normalize (list 'calcFunc-sinh u)))))
471 (list 'calcFunc-sech u))))))
476 (math-normalize (list 'calcFunc-sech u))
477 (math-normalize (list 'calcFunc-tanh u)))))))
482 (math-normalize (list 'calcFunc-csch u))
483 (math-normalize (list 'calcFunc-coth u)))))))
489 (list 'calcFunc-csch u)))))))
494 (list 'calcFunc-sqrt
500 (list 'calcFunc-sqrt
508 (math-mul n (list 'calcFunc-bern (math-add n -1) x)))))
512 (math-mul n (list 'calcFunc-euler (math-add n -1) x)))))
524 (list 'calcFunc-gamma
531 (list 'calcFunc-gamma
537 (list 'calcFunc-exp (math-neg x)))))
545 1 (list 'calcFunc-beta
555 (math-mul (list 'calcFunc-exp
564 (math-mul (list 'calcFunc-exp
572 (function (lambda (v z) (math-div (math-sub (list 'calcFunc-besJ
575 (list 'calcFunc-besJ
581 (function (lambda (v z) (math-div (math-sub (list 'calcFunc-besY
584 (list 'calcFunc-besY
616 (list 'calcFunc-integ
631 (list 'calcFunc-integ
639 (list 'calcFunc-if (nth 1 expr)
647 (list 'calcFunc-subscr (nth 1 expr)
653 (defvar math-integ-vars (list 'f math-integ-var math-integ-var-2))
654 (defvar math-integ-var-list (list math-integ-var))
655 (defvar math-integ-var-list-list (list math-integ-var-list))
673 (list 'and
675 (list 'save-excursion
678 (list 'and
684 ;;(list 'condition-case 'err
754 (list expr (if same-as-above (vector simp) 'busy))
788 (list 'var 'PARTS val))
821 (defvar math-linear-subst-tried t
822 "Non-nil means that a linear substitution has been tried.")
846 (let ((math-linear-subst-tried nil)
871 (math-integral (list (car (nth 1 expr))
878 (math-integral (list (car (nth 2 expr))
924 (list 'calcFunc-exp
933 (list 'calcFunc-ln
936 (list 'calcFunc-exp
939 (list 'calcFunc-ln
945 (list '/ 1 (math-pow (nth 1 expr) (- (nth 2 expr))))
1007 (input (list 'calcFunc-integtry expr math-integ-var))
1030 (list 'calcFunc-integfailed
1077 (list 'calcFunc-integfailed expr)))
1090 (let ((math-so-far math-integ-var-list-list)
1113 math-integ-expr (list 'calcFunc-tan (math-div math-integ-var 2)))))
1131 math-integ-expr (list 'calcFunc-tanh (math-div math-integ-var 2)))))
1150 math-integ-expr (list 'calcFunc-arcsin
1162 math-integ-expr (list 'calcFunc-arccosh
1168 math-integ-expr (list 'calcFunc-arcsinh
1254 (setq v (list 'var 'PARTS math-cur-record)
1322 (setq math-linear-subst-tried t)
1334 (setq math-so-far (cons (list (car sub-expr))
1365 (setq math-so-far (cons (list sub-expr) math-so-far))
1384 (setq math-expr-parts (cons (list expr) math-expr-parts))))
1391 (math-expr-rational-in-rec (list 'calcFunc-sqrt (nth 1 expr))))
1395 (setq math-expr-parts (cons (list expr) math-expr-parts))))))
1523 (let ((state (list calc-angle-mode
1577 (append (list 'calcFunc-integ expr var)
1578 (and low (list low))
1579 (and high (list high))))))))
1588 (list 'calcFunc-conj int))))
1593 (list 'calcFunc-deg int))))
1598 (list 'calcFunc-rad int))))
1603 (list 'calcFunc-re int))))
1608 (list 'calcFunc-im int))))
1613 (list 'calcFunc-sqrt (math-pow u 3)))))
1617 (list 'calcFunc-exp u))
1623 (math-mul (math-div (list 'calcFunc-sqrt '(var pi var-pi))
1626 (list 'calcFunc-exp
1633 (list 'calcFunc-erf
1640 (math-sub (math-mul u (list 'calcFunc-ln u)) u))
1642 (math-integral (math-add (list 'calcFunc-ln (nth 1 u))
1643 (list 'calcFunc-ln (nth 2 u)))))
1645 (math-integral (math-sub (list 'calcFunc-ln (nth 1 u))
1646 (list 'calcFunc-ln (nth 2 u)))))
1649 (list 'calcFunc-ln (nth 1 u)))))))
1653 (math-sub (math-mul u (list 'calcFunc-ln u))
1654 (math-div u (list 'calcFunc-ln 10)))))
1657 (math-integral (math-div (list 'calcFunc-ln u)
1658 (list 'calcFunc-ln v))))
1662 (math-neg (math-from-radians-2 (list 'calcFunc-cos u))))
1664 (math-integral (math-to-exponentials (list 'calcFunc-sin u))))))
1668 (math-from-radians-2 (list 'calcFunc-sin u)))
1670 (math-integral (math-to-exponentials (list 'calcFunc-cos u))))))
1675 (list 'calcFunc-ln (list 'calcFunc-sec u)))))
1680 (list 'calcFunc-ln
1682 (list 'calcFunc-sec u)
1683 (list 'calcFunc-tan u))))))
1688 (list 'calcFunc-ln
1690 (list 'calcFunc-csc u)
1691 (list 'calcFunc-cot u))))))
1696 (list 'calcFunc-ln (list 'calcFunc-sin u)))))
1700 (math-add (math-mul u (list 'calcFunc-arcsin u))
1702 (list 'calcFunc-sqrt (math-sub 1 (math-sqr u)))))))
1706 (math-sub (math-mul u (list 'calcFunc-arccos u))
1708 (list 'calcFunc-sqrt (math-sub 1 (math-sqr u)))))))
1712 (math-sub (math-mul u (list 'calcFunc-arctan u))
1714 (math-div (list 'calcFunc-ln (math-add 1 (math-sqr u)))
1719 (list 'calcFunc-cosh u)))
1723 (list 'calcFunc-sinh u)))
1727 (list 'calcFunc-ln (list 'calcFunc-cosh u))))
1731 (list 'calcFunc-arctan (list 'calcFunc-sinh u))))
1735 (list 'calcFunc-ln (list 'calcFunc-tanh (math-div u 2)))))
1739 (list 'calcFunc-ln (list 'calcFunc-sinh u))))
1743 (math-sub (math-mul u (list 'calcFunc-arcsinh u))
1744 (list 'calcFunc-sqrt (math-add (math-sqr u) 1)))))
1748 (math-sub (math-mul u (list 'calcFunc-arccosh u))
1749 (list 'calcFunc-sqrt (math-sub 1 (math-sqr u))))))
1753 (math-sub (math-mul u (list 'calcFunc-arctan u))
1754 (math-div (list 'calcFunc-ln
1790 (list 'calcFunc-ln v))))
1792 (math-div (math-add (list 'calcFunc-ln v)
1814 (math-sub (math-div (list 'calcFunc-ln v) (math-mul 2 c))
1831 (math-div (list 'calcFunc-ln v) b))
1851 (setq rq (list 'calcFunc-sqrt (math-neg q)))
1852 ;;(math-div-thru (list 'calcFunc-ln
1856 (math-div (math-mul -2 (list 'calcFunc-arctanh
1860 (setq rq (list 'calcFunc-sqrt q))
1862 (list 'calcFunc-arctan
1869 (math-add (math-mul u (list 'calcFunc-erf u))
1870 (math-div 1 (math-mul (list 'calcFunc-exp (math-sqr u))
1871 (list 'calcFunc-sqrt
1876 (math-sub (math-mul u (list 'calcFunc-erfc u))
1877 (math-div 1 (math-mul (list 'calcFunc-exp (math-sqr u))
1878 (list 'calcFunc-sqrt
1943 (append (list (or math-tabulate-function 'calcFunc-table)
1947 (list calc-low calc-high))
1948 (and step (list step))))))
2026 (list (car expr) t1 t2))
2070 (list (car expr) (calcFunc-prod (nth 1 expr) var low high)))
2074 (list 'calcFunc-log
2120 (setq temp (list '* (car const) temp)))
2124 (setq temp (list '* (car not-const) temp)))
2127 (defvar math-sum-int-pow-cache (list '(0 1)))
2133 (let* ((new (list 0 0))
2147 (nconc math-sum-int-pow-cache (list (nreverse new)))
2158 (list '^ '(var e var-e) x))
2161 (setq x (list '/ (list '* x pi) 180)))
2162 (list '/ (list '-
2163 (list '^ '(var e var-e) (list '* x i))
2164 (list '^ '(var e var-e)
2165 (list 'neg (list '* x i))))
2166 (list '* 2 i)))
2169 (setq x (list '/ (list '* x pi) 180)))
2170 (list '/ (list '+
2171 (list '^ '(var e var-e)
2172 (list '* x i))
2173 (list '^ '(var e var-e)
2174 (list 'neg (list '* x i))))
2177 (list '/ (list '-
2178 (list '^ '(var e var-e) x)
2179 (list '^ '(var e var-e) (list 'neg x)))
2182 (list '/ (list '+
2183 (list '^ '(var e var-e) x)
2184 (list '^ '(var e var-e) (list 'neg x)))
2194 (list 'calcFunc-exp (nth 2 expr)))
2238 (list (car expr) t1 t2))
2248 (math-normalize (list 'calcFunc-sqrt
2249 (list 'calcFunc-prod (nth 1 expr)
2255 (list 'calcFunc-exp (calcFunc-sum (nth 1 expr) var low high)))
2280 (list '/
2281 (list 'calcFunc-fact
2283 (list 'calcFunc-fact
2285 (list '/
2286 (list 'calcFunc-fact high)
2287 (list 'calcFunc-fact (math-sub low 1))))))
2315 (list '/
2316 (list 'calcFunc-dfact
2318 (list 'calcFunc-dfact
2320 (list '/
2321 (list 'calcFunc-dfact t3)
2322 (list 'calcFunc-dfact
2325 (list '*
2326 (list '^ -1
2327 (list '/ (list '- (list '- t2 t3)
2330 (list '/
2331 (list 'calcFunc-dfact
2333 (list 'calcFunc-dfact
2336 (list '/
2337 (list 'calcFunc-dfact t3)
2338 (list 'calcFunc-dfact
2375 (let ((vec (list 'vec (math-evaluate-expr math-solve-rhs)))
2380 newvec (list 'vec))
2471 (list (car (nth 1 math-solve-lhs))
2558 (list 'calcFunc-log math-solve-rhs (nth 1 math-solve-lhs)))
2565 (list 'calcFunc-ln (nth 1 math-solve-lhs)))))))
2575 (setq math-t2 (list 'calcFunc-sqrt math-t2)))
2580 (list 'calcFunc-sqrt math-t2))))))
2586 (list '^ (nth 1 math-solve-lhs)
2593 (list 'calcFunc-nroot math-solve-rhs
2607 (list 'calcFunc-exp
2628 (list 'calcFunc-nroot
2645 (list 'calcFunc-if
2646 (list 'calcFunc-gt (math-solve-get-sign 1) 0)
2690 (setq new-t1 (nconc new-t1 (list (car p))))
2699 (setq math-t3 (list (math-mul (car math-t3) math-t2)
2710 (list 'vec)
2751 (list (math-pow math-t2 (car math-t3))
2773 (list 'calcFunc-sqrt
2782 (list 'calcFunc-sqrt
2808 (setq m (math-mul 2 (list 'calcFunc-sqrt (math-div aa -3))))
2815 (list 'calcFunc-cos
2817 (math-sub (list 'calcFunc-arccos
2851 (r (list 'calcFunc-sqrt rsqr))
2853 (de (list 'calcFunc-sqrt
2861 (list 'calcFunc-sqrt
2966 (list math-int-factors (nreverse math-int-coefs) math-int-scale))
2981 (list 'calcFunc-subscr
2994 (defun math-poly-any-root (p x polish) ; p is a reverse poly coeff list
3062 math-int-factors (cons (list (math-neg rnd))
3077 (found (assoc (list rnd0 rnd1 (math-posp xim))
3092 math-double-roots (cons (list
3093 (list
3112 (tried-newt nil)
3132 (setq x (math-pow (math-neg b) (list 'frac 1 m)))
3149 (setq tried-newt t
3163 tried-newt nil)
3231 (setq exprs (mapcar 'list (if (Math-vectorp exprs)
3233 (list exprs)))
3236 (list math-solve-vars)))
3248 ;;; manages to remove all the variables from var-list.
3250 ;;; To support calcFunc-roots, entries in eqn-list and solns are
3259 (defun math-solve-system-rec (eqn-list var-list solns)
3260 (if var-list
3261 (let ((v var-list)
3269 (e eqn-list)
3283 ;; Try to solve for math-solve-system-vv the list of equations e2.
3293 (list res2))
3305 (copy-sequence eqn-list)))
3306 (delq (car v) (copy-sequence var-list))
3339 (mapcar (function (lambda (x) (cons 'vec x))) eqn-list)))))
3344 (mapcar 'car eqn-list)))))))
3382 (list '* (nth 1 val) (math-solve-get-sign (nth 2 val)))
3385 (setq val (math-normalize (list '^
3393 (math-mul (list 'calcFunc-as var-GenCount) val)
3397 (var2 (list 'var (intern var) (intern (concat "var-" var)))))
3399 (setq math-solve-ranges (cons (list var2 1 -1)
3411 (math-mul val (list 'calcFunc-an var-GenCount))
3416 (var2 (list 'var (intern var) (intern (concat "var-" var)))))
3475 (list (car expr) var res)
3477 (list (car expr) res var)
3482 (list 'calcFunc-neq var res))))))
3485 (list 'calcFunc-eq var res)))))
3491 (list func expr var))
3533 (function (lambda (x) (list 'calcFunc-conj x))))
3539 (function (lambda (x) (list 'calcFunc-rad x))))
3543 (function (lambda (x) (list 'calcFunc-deg x))))
3547 (function (lambda (x) (list 'calcFunc-exp x))))
3551 (function (lambda (x) (list 'calcFunc-exp10 x))))
3555 (function (lambda (x) (list 'calcFunc-expm1 x))))
3559 (function (lambda (x) (math-add (math-normalize (list 'calcFunc-ln x))
3567 (function (lambda (x) (math-add (math-normalize (list 'calcFunc-lnp1 x))
3577 (list 'calcFunc-arcsin x))
3585 (list 'calcFunc-arccos x)))
3590 (function (lambda (x) (math-add (math-normalize (list 'calcFunc-arctan x))
3595 (function (lambda (x) (math-normalize (list 'calcFunc-sin x)))))
3598 (function (lambda (x) (math-normalize (list 'calcFunc-cos x)))))
3601 (function (lambda (x) (math-normalize (list 'calcFunc-tan x)))))
3606 (list 'calcFunc-arcsinh x))
3617 (list 'calcFunc-arccosh x)))
3624 (list 'calcFunc-arctanh x))
3631 (function (lambda (x) (math-normalize (list 'calcFunc-sinh x)))))
3635 (function (lambda (x) (math-normalize (list 'calcFunc-cosh x)))))
3638 (function (lambda (x) (math-normalize (list 'calcFunc-tanh x)))))
3669 (list 'calcFunc-taylor expr var num))))