Lines Matching defs:div
46 (math-div (calcFunc-pcont (nth 1 expr) var)
77 (math-poly-div-exact expr cont var))))
79 (defun math-div-poly-const (expr c)
82 (math-div-poly-const (nth 1 expr) c)
83 (math-div-poly-const (nth 2 expr) c)))
84 (t (math-div expr c))))
117 (math-div (calcFunc-plead (nth 1 expr) var)
153 ;; calc-poly-div-remainder is a local variable for
154 ;; calc-poly-div (in calc-alg.el), but is used by
155 ;; calcFunc-pdiv, which is called by calc-poly-div.
156 (defvar calc-poly-div-remainder)
161 (res (math-poly-div pn pd base)))
162 (setq calc-poly-div-remainder (cdr res))
169 (cdr (math-poly-div pn pd base))))
174 (res (math-poly-div pn pd base)))
180 (res (math-poly-div pn pd base)))
181 (math-add (car res) (math-div (cdr res) pd))))
196 (defun math-div-thru (num den)
199 (math-div-thru (nth 1 num) den)
200 (math-div-thru (nth 2 num) den))
201 (math-div num den)))
245 (defvar math-poly-div-base nil)
246 (defun math-poly-div (u v &optional math-poly-div-base)
247 (if math-poly-div-base
248 (math-do-poly-div u v)
249 (math-do-poly-div (calcFunc-expand u) (calcFunc-expand v))))
251 (defun math-poly-div-exact (u v &optional base)
252 (let ((res (math-poly-div u v base)))
257 (defun math-do-poly-div (u v)
260 (cons (math-div u v) 0)
266 (math-add-or-sub (math-poly-div-exact (nth 1 u) v)
267 (math-poly-div-exact (nth 2 u) v)
269 (math-div u v)))
274 (cons (math-simplify (math-div u v)) 0))
276 (let ((base (or math-poly-div-base
277 (math-poly-div-base u v)))
283 res (math-poly-div-coefs up vp))
287 (defun math-poly-div-rec (u v)
289 (math-div u v))
294 (math-add-or-sub (math-poly-div-rec (nth 1 u) v)
295 (math-poly-div-rec (nth 2 u) v)
297 (math-div u v))))
300 (math-simplify (math-div u v)))
301 (math-poly-div-base
302 (math-div u v))
304 (let ((base (math-poly-div-base u v))
308 (math-div u v)
310 res (math-poly-div-coefs up vp))
312 (math-div (math-build-polynomial-expr (cdr res) base)
316 (defun math-poly-div-coefs (u v)
324 (let ((qk (math-poly-div-rec (math-simplify (car urev))
338 (cons (list (math-poly-div-rec (car u) (car v)))
343 (defun math-poly-pseudo-div (u v)
388 (defun math-poly-div-list (lst a)
393 (mapcar (function (lambda (x) (math-poly-div-exact x a))) lst))))
434 (setq u (math-poly-div-list u d)
435 v (math-poly-div-list v d)))
440 (setq r (math-poly-pseudo-div u v))
443 v (math-poly-div-list r (math-mul g (math-pow h delta)))
447 (math-poly-div-exact (math-pow g delta)
451 (math-mul-list (math-poly-div-list v (math-poly-gcd-list v)) d)))
477 (defun math-poly-div-base (a b)
692 (math-poly-div-list p t1) 'cont)))
751 (setq scale (math-div scale den))
759 (setq scale (math-div scale den))
778 (v (car (math-poly-div-coefs p t1s)))
779 (w (car (math-poly-div-coefs t2 t1s))))
787 v (car (math-poly-div-coefs v t1))
788 w (car (math-poly-div-coefs t2 t1))))
851 (let ((num2 (math-poly-div num g))
852 (den2 (math-poly-div den g)))
855 (math-simplify (math-div num den)))))
881 (let ((d1 (and (not (eq g 1)) (math-poly-div (cdr r1) g)))
882 (d2 (and (not (eq g 1)) (math-poly-div
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)))))
913 (cons (math-poly-div-exact (math-mul (car r1) (cdr r2)) g)
914 (math-poly-div-exact (math-mul (cdr r1) (car r2))
973 (qr (math-poly-div num den))
981 (math-div r den)))))))
1030 (setq eqns (math-div (cons 'vec (math-padded-polynomial r var tdeg))
1049 res (math-add res (math-div num (car dlist)))