Lines Matching +defs:calcFunc +defs:mul
35 (defun calcFunc-pcont (expr &optional var)
43 (math-mul (calcFunc-pcont (nth 1 expr) var)
44 (calcFunc-pcont (nth 2 expr) var)))
46 (math-div (calcFunc-pcont (nth 1 expr) var)
47 (calcFunc-pcont (nth 2 expr) var)))
49 (math-pow (calcFunc-pcont (nth 1 expr) var) (nth 2 expr)))
51 (calcFunc-pcont (nth 1 expr) var))
62 (let ((cont (calcFunc-pcont (nth 1 expr) var)))
65 (let ((c2 (calcFunc-pcont (nth 2 expr) var)))
73 (defun calcFunc-pprim (expr &optional var)
74 (let ((cont (calcFunc-pcont expr var)))
86 (defun calcFunc-pdeg (expr &optional var)
112 (defun calcFunc-plead (expr var)
114 (math-mul (calcFunc-plead (nth 1 expr) var)
115 (calcFunc-plead (nth 2 expr) var)))
117 (math-div (calcFunc-plead (nth 1 expr) var)
118 (calcFunc-plead (nth 2 expr) var)))
120 (math-pow (calcFunc-plead (nth 1 expr) var) (nth 2 expr)))
142 (defun calcFunc-pgcd (pn pd)
155 ;; calcFunc-pdiv, which is called by calc-poly-div.
158 (defun calcFunc-pdiv (pn pd &optional base)
166 (defun calcFunc-prem (pn pd &optional base)
171 (defun calcFunc-pdivrem (pn pd &optional base)
177 (defun calcFunc-pdivide (pn pd &optional base)
185 (defun math-mul-thru (lhs rhs)
188 (math-mul-thru (nth 1 lhs) rhs)
189 (math-mul-thru (nth 2 lhs) rhs))
192 (math-mul-thru lhs (nth 1 rhs))
193 (math-mul-thru lhs (nth 2 rhs)))
194 (math-mul lhs rhs))))
249 (math-do-poly-div (calcFunc-expand u) (calcFunc-expand v))))
331 (setcar up (math-sub (car up) (math-mul-thru qk (car vp)))))
354 (setcar up (math-sub (math-mul-thru (car vrev) (car up))
355 (math-mul-thru (car urev) (car vp)))))
359 (setcar up (math-mul-thru (car vrev) (car up)))
372 (calcFunc-gcd u (calcFunc-pcont v))))
376 (calcFunc-gcd v (calcFunc-pcont u))))
381 (calcFunc-expand
386 (calcFunc-gcd (calcFunc-pcont u) (calcFunc-pcont u)))))))
392 (math-mul-list lst a)
395 (defun math-mul-list (lst a)
401 (mapcar (function (lambda (x) (math-mul x a))) lst)))))
421 (setq denom (calcFunc-lcm denom (nth 2 (car lst))))))
443 v (math-poly-div-list r (math-mul g (math-pow h delta)))
446 (math-mul (math-pow g delta) (math-pow h (- 1 delta)))
451 (math-mul-list (math-poly-div-list v (math-poly-gcd-list v)) d)))
453 (setq v (math-mul-list v -1)))
544 ;; The variable math-factored-vars is local to calcFunc-factors and
545 ;; calcFunc-factor, but is used by math-factor-expr and
547 ;; calcFunc-factor and calcFunc-factors.
550 ;; The variable math-fact-expr is local to calcFunc-factors,
551 ;; calcFunc-factor and math-factor-expr, but is used by math-factor-expr-try
553 ;; calcFunc-factor, calcFunc-factors and math-factor-expr.
556 ;; The variable math-to-list is local to calcFunc-factors and
557 ;; calcFunc-factor, but is used by math-accum-factors, which is
558 ;; called (indirectly) by calcFunc-factors and calcFunc-factor.
561 (defun calcFunc-factors (math-fact-expr &optional var)
574 (defun calcFunc-factor (math-fact-expr &optional var)
587 (if (eq (car x) 'calcFunc-Fac-Prot)
593 (list 'calcFunc-Fac-Prot x)
668 (math-mul (math-pow fac pow) facs)))
687 (not (eq 1 (setq t1 (math-mul (math-poly-gcd-list p)
700 (math-mul math-fet-x (math-factor-protect
713 (list 'calcFunc-thecoefs math-fet-x (cons 'vec p))
715 (or (and (eq (car-safe res) 'calcFunc-thefactors)
754 (math-mul den (math-pow math-fet-x 2))
755 (math-mul (math-mul coef1 den)
757 (math-mul coef0 den)))
760 (math-add (math-mul den math-fet-x)
761 (math-mul coef0 den))))
766 (math-mul csign
768 (math-mul-list (nth 1 t1) scale)
776 (t1s (math-mul-list t1 csign))
798 (math-accum-factors (math-mul cabs csign) 1 t2))))
817 (setq dp (cons (math-mul (car p) n) dp)
839 (defun calcFunc-nrat (expr)
841 (setq expr (calcFunc-pfrac expr)))
844 (cons (car expr) (mapcar 'calcFunc-nrat (cdr expr)))
847 (num (math-simplify (math-sort-terms (calcFunc-expand (car res)))))
848 (den (math-simplify (math-sort-terms (calcFunc-expand (cdr res)))))
872 (math-mul (car r1) (cdr r2))
878 (math-mul (car r2) (cdr r1)))
883 (math-mul (car r1) (cdr r2))
887 (math-mul (car r2) (car d1)))
888 (math-mul (car d1) (cdr r2)))
890 (math-mul (car r1) (cdr r2))
891 (math-mul (car r2) (cdr r1)))
892 (math-mul (cdr r1) (cdr r2)))))))))))
896 (g (math-mul (math-poly-gcd (car r1) (cdr r2))
899 (cons (math-mul (car r1) (car r2))
900 (math-mul (cdr r1) (cdr r2)))
901 (cons (math-poly-div-exact (math-mul (car r1) (car r2)) g)
902 (math-poly-div-exact (math-mul (cdr r1) (cdr r2)) g)))))
908 (let ((g (math-mul (math-poly-gcd (car r1) (car r2))
911 (cons (math-mul (car r1) (cdr r2))
912 (math-mul (cdr r1) (car r2)))
913 (cons (math-poly-div-exact (math-mul (car r1) (cdr r2)) g)
914 (math-poly-div-exact (math-mul (cdr r1) (car r2))
958 (defun calcFunc-apart (expr &optional var)
961 (math-add (calcFunc-apart (nth 1 expr) var)
962 (calcFunc-apart (nth 2 expr) var)))
964 (math-sub (calcFunc-apart (nth 1 expr) var)
965 (calcFunc-apart (nth 2 expr) var)))
989 (let* ((fden (calcFunc-factors den var))
1011 dnum (math-add dnum (math-mul dvar
1020 (setq mult (math-mul mult
1023 (setq dnum (math-mul dnum mult)))
1024 (setq eqns (math-add eqns (math-mul dnum
1106 (defun calcFunc-expand (expr &optional many)
1129 (setq terms (cons (apply 'calcFunc-add cterms)
1136 (list '* (calcFunc-choose n i)
1192 (defun calcFunc-expandpow (x n)