Home
last modified time | relevance | path

Searched refs:disrep (Results 1 – 25 of 26) sorted by relevance

12

/dports/math/maxima/maxima-5.43.2/src/
H A Dsinint.lisp142 (ff (disrep f))
143 (qq (disrep q)))
215 (disrep allcc)
217 (list '(mquotient) (disrep p1e) (disrep p2e))
220 (disrep (ratti allcc
239 (disrep a2e) (disrep (list var 1 1)))
244 (disrep a2e) (disrep (list var 1 1)))
249 (disrep allcc)
257 (logmabs (disrep p2e)))
282 (disrep (ratti allcc
[all …]
H A Dsublis.lisp77 (let* ((disrep ($ratdisrep form))
78 (sub (msublis-subst disrep t)))
79 (cond ((eq disrep sub) form)
H A Dlaplac.lisp794 (setq a (disrep (polcoef q 1))
795 b (disrep (polcoef q 0)))
798 (disrep p)
824 `(disrep (ratqu (polcoef (car p) ,pol) (cdr p))))
838 (setq e (disrep (polcoef q 0))
839 d (disrep (polcoef q 1))
844 (disrep p)
849 (setq c (disrep (polcoef q 2)))
853 (return (list '(%ilt) (div* (disrep p)(disrep q)) ils ilt))
854 cubic (setq a (disrep (polcoef q 3))
[all …]
H A Drisch.lisp43 `(,exp1 ((%integrate) ,(disrep exp2) ,intvar)))
140 (return (cond ((atom (cdr z)) (disrep (car z)))
143 (disrep (car z))
329 (disrep logcoef)
330 (logmabs (disrep p2e))))))
334 `((%integrate) ,(simplify (disrep p)) ,intvar)
941 ,(disrep coef)
942 ((%erf) ,(disrep erfarg))))))))
953 (setq c (disrep (ratqu (r* (polcoef (car exparg) 0))
956 (setq a (disrep a))
[all …]
H A Dratout.lisp596 (mapc #'(lambda (y z) (putprop y z 'disrep)) (cadddr (car x)) (caddar x))
602 (horn+ (cdr p) (get (car p) 'disrep))))
635 (add2* (disrep (car exp))
640 (disrep coef)
642 (disrep poly)
H A Dlesfac.lisp270 (putprop g e 'disrep)
302 (and (setq x (get x 'disrep))
H A Dmhayat.lisp129 (defmacro getdisrep (var) `(get (car ,var) 'disrep))
H A Dhayat.lisp1152 (putprop g kernel 'disrep)
1200 (let ((kernel (get g 'disrep)) g* lim datum ans
1221 (setq g (caar g) kernel (get g 'disrep))))
1228 (putprop g kernel 'disrep)
2047 (putprop z y 'disrep)
2137 (putprop (int-gvar datum) 1 'disrep)))
2146 (putprop (car gvarl) 1 'disrep))))))
2268 (mapc #'(lambda (g v) (putprop g v 'disrep)) old-genvar old-varlist)
2274 (mapc #'(lambda (g v) (putprop g v 'disrep)) genvar varlist)
3061 (mapc #'(lambda (exp genv) (putprop genv exp 'disrep))
H A Drat3e.lisp848 (putprop g e 'disrep)
914 (pdisrep+ (pdisrep2 (cdr p) (get (car p) 'disrep)))))
993 (mapc #'(lambda (y z) (putprop y z (quote disrep)))
H A Drat3d.lisp336 (mapc #'(lambda (y z) (putprop y z (quote disrep)))
/dports/math/maxima/maxima-5.43.2/share/affine/
H A Dsub-proj.lisp23 (setf (get ,mvar 'disrep) 'zzzzzzz)
32 (setf (get newvar 'disrep) 'zzzzzzz)
41 (setf (get newvar 'disrep) 'zzzzzzz)
183 collecting (get w 'disrep) into tem
194 (setf (get main 'disrep) 'main-var)
416 (loop for v in old when (not (get v 'disrep))
418 when (not (get v 'disrep ))
426 do (cond ((get v 'disrep)
464 when (not (get v 'disrep))
469 ((get w 'disrep)(setq w (cons (list w 1 1)1)))
H A Dndotsimp.lisp59 (($must_replacep (get (p-var rest) 'disrep))
74 (($must_replacep (setq mon (get (p-var num) 'disrep)))
165 do (setq vv (get v 'disrep))
H A Ddim-3.lisp397 and do (assert (get (car v) 'disrep))))
412 (and (affine-polynomialp poly) (or (atom poly) ($scalarp (get (car poly) 'disrep)))))
466 (t (cond (($scalarp (get (car expr) 'disrep))(show expr)
470 (funcall fn (get (car expr) 'disrep))))
514 (values (cons '(mlist) (loop for v in vari collecting (get v 'disrep)))
517 (defun $fast_linsolve_inconsistent_equations ( &optional (disrep t))
519 (cond (disrep (cons '(mlist) (mapcar 'new-disrep eqns)))
H A Dnew-rat.lisp230 (safe-putprop the-gensym va 'disrep)
243 (cond ((not (nc-equal (get the-gensym 'disrep) va))
265 (varlist (loop for v in genvar collecting (get v 'disrep))))
625 (putprop g e 'disrep)
647 (setq algvar (if (symbolp (car x)) (get (car x) 'disrep)))
H A Dmodsimp.lisp36 (let ((va (get (p-var a) 'disrep)) vb ncprod)
39 (($scalarp (setq vb (get (p-var b) 'disrep)))
308 ((module-monom-must-replacep (setq monom (get (car poly) 'disrep)))
326 (setq prev-mon (get symbo 'disrep))
333 (format t "~%Module simp replacing ~A" (get symbo 'disrep))
579 (t (list (get (car relat) 'disrep)
H A Dpolybas.lisp16 ((and (atom (car x)) (symbolp (car x)) (get (car x) 'disrep)))
302 (cond ((atom expr)(cond ((symbolp expr)(get expr 'disrep))
333 (putprop tem variable 'disrep)
H A DREADME17 ordinary maxima rat format. (new-disrep form) and (fake-header form)
H A Dpolyc.lisp42 ((or (numberp poly)($scalarp (setq monom (get (car poly) 'disrep))))
110 do (format t "~%~A ~A disrep ~A value ~A" w v (get w 'disrep) (symbol-value w))
111 when (not (equal (get w 'disrep) v))do (format t" **** bad disrep ***")
618 when (or (not (equal v (get w 'disrep)))
H A Dpolyd.lisp184 (setq worst (get (car relat) 'disrep)
425 (setq tem (get tree 'disrep)))
H A Dsheafa.lisp278 when (and (atom (setq tem (get v 'disrep)))
1246 (cond ((get (car list-vars) 'disrep)
1851 (cond ((or (numberp expr)(get (car expr) 'disrep))
1853 ((and (or (numberp (car expr))( get (caar expr) 'disrep))
1854 (or (numberp (cdr expr)) (get (cadr expr) 'disrep)))
1930 (setf (get w 'disrep) v)
2174 else when (get v 'disrep) collecting (cons (list v 1 1) 1)
H A Dpolya.lisp736 (setq tem (get (car the-num) 'disrep))
1383 (format t "~%~A disreps ~A value ~A" v (get v 'disrep) (symbol-value v))))
1833 (cond ((get (car variables) 'disrep))
1835 (setq variables (cons '(mlist) (loop for v in variables collecting (get v 'disrep))))
2190 ((affine-polynomialp f) (+ ($nc_degree (get (car f) 'disrep)) ($nc_degree (fifth f))))
2537 else when (> ($nc_degree (get va 'disrep)) 0)
H A Dpolysmp.lisp199 when (get v 'disrep)
206 do (format t "~A disreps to ~A and is constant." v (get v 'disrep))))
1023 (intern (string-trim "$" (get v 'disrep)))))))
H A Dpolyb.lisp171 when ($must_replacep (get (car poly) 'disrep))
481 (setq worst (get (car relat) 'disrep)
940 when (not (fast-scalarp (get vv 'disrep)))
H A Dsheafc.lisp1283 collecting (list '(mequal) (get v 'disrep) (new-disrep (st-rat w)))))))
/dports/math/maxima/maxima-5.43.2/doc/info/
H A DAffine.texi248 @c @defun new-disrep (poly)
254 @c (displa(new-disrep (setq me (st-rat #$x^2*u+y+1$))))

12