Searched refs:disrep (Results 1 – 25 of 26) sorted by relevance
12
/dports/math/maxima/maxima-5.43.2/src/ |
H A D | sinint.lisp | 142 (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 D | sublis.lisp | 77 (let* ((disrep ($ratdisrep form)) 78 (sub (msublis-subst disrep t))) 79 (cond ((eq disrep sub) form)
|
H A D | laplac.lisp | 794 (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 D | risch.lisp | 43 `(,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 D | ratout.lisp | 596 (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 D | lesfac.lisp | 270 (putprop g e 'disrep) 302 (and (setq x (get x 'disrep))
|
H A D | mhayat.lisp | 129 (defmacro getdisrep (var) `(get (car ,var) 'disrep))
|
H A D | hayat.lisp | 1152 (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 D | rat3e.lisp | 848 (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 D | rat3d.lisp | 336 (mapc #'(lambda (y z) (putprop y z (quote disrep)))
|
/dports/math/maxima/maxima-5.43.2/share/affine/ |
H A D | sub-proj.lisp | 23 (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 D | ndotsimp.lisp | 59 (($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 D | dim-3.lisp | 397 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 D | new-rat.lisp | 230 (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 D | modsimp.lisp | 36 (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 D | polybas.lisp | 16 ((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 D | README | 17 ordinary maxima rat format. (new-disrep form) and (fake-header form)
|
H A D | polyc.lisp | 42 ((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 D | polyd.lisp | 184 (setq worst (get (car relat) 'disrep) 425 (setq tem (get tree 'disrep)))
|
H A D | sheafa.lisp | 278 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 D | polya.lisp | 736 (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 D | polysmp.lisp | 199 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 D | polyb.lisp | 171 when ($must_replacep (get (car poly) 'disrep)) 481 (setq worst (get (car relat) 'disrep) 940 when (not (fast-scalarp (get vv 'disrep)))
|
H A D | sheafc.lisp | 1283 collecting (list '(mequal) (get v 'disrep) (new-disrep (st-rat w)))))))
|
/dports/math/maxima/maxima-5.43.2/doc/info/ |
H A D | Affine.texi | 248 @c @defun new-disrep (poly) 254 @c (displa(new-disrep (setq me (st-rat #$x^2*u+y+1$))))
|
12