Searched +refs:list +refs:meqp (Results 1 – 11 of 11) sorted by relevance
/dports/math/maxima/maxima-5.43.2/share/simplex/ |
H A D | simplex_algorithm.lisp | 108 (defun lp-mgqp (a b) (or (meqp a b) (lp-mlsp b a))) 125 (if (not (meqp ($length b) ($length A))) 127 (if (not (meqp ($length c) ($length ($first A)))) 179 (setq basis (append basis (list (add n i))))) 185 (setq sc-fac (append sc-fac (list 1)))) 224 (setq opt-tmp (append opt-tmp (list 0)))) 230 (setq opt (append opt (list 0)))) 306 (if (meqp $pivot_count_sx $pivot_max_sx) 313 (if (meqp piv 0) 321 (if (not (meqp tm 0)) [all …]
|
/dports/math/maxima/maxima-5.43.2/share/linearalgebra/ |
H A D | mring.lisp | 169 :great #'(lambda (a b) (declare (ignore a)) (eq t (meqp b 0))) 180 :fzerop #'(lambda (s) (eq t (meqp s 0))) 192 :great #'(lambda (a b) (declare (ignore a)) (eq t (meqp b 0))) 203 :fzerop #'(lambda (s) (eq t (meqp (sratsimp s) 0))) 317 (list (abs (first a)) (second a))) 325 (list s (ceiling (+ 1 335 (list s (ceiling (+ 1 344 (if (= (first a) 0) (list 0.0 0) 364 :add-id #'(lambda () (list 0 0)) 378 :great #'(lambda (a b) (declare (ignore a)) (eq t (meqp b 0))) [all …]
|
/dports/math/maxima/maxima-5.43.2/src/ |
H A D | compar.lisp | 157 ((eq 'meqp rel) (cons '($equal) body)) 476 ((eq '$equal pred) (meqp arg1 arg2)) 1062 (defun meqp (a b) function 1140 (setq z (meqp (car p) (car q))) 1196 (let ((b (meqp x y))) 2119 (cond ((eq 'meqp (caar f)) 2139 ((eq 'meqp (caar f)) 2155 ((eq 'meqp (caar f)) 2170 ((eq 'meqp (caar f)) 2185 ((eq 'meqp (caar f)) [all …]
|
H A D | trpred.lisp | 29 `($any . (simplify (list '(,(caar form)) ,@(tr-args (cdr form)))))) 86 (t (list 'not form)))) 104 (list wrap-an-is exp)) 151 ((eq '$number mode) `(meqp ,(cdr arg1) ,(cdr arg2))) 153 (wrap-an-is `(meqp ,(dconvx arg1) ,(dconvx arg2)) form))))) 163 (list 'trp-not (trp-mequal form))) 166 (list 'trp-not (trp-mlessp form))) 169 (list 'trp-not (trp-mgreaterp form))) 177 `($any . (simplify (list '(mlist) ,@(nreverse nl)))))
|
H A D | maxmin.lisp | 59 (eq t (meqp x (neg y)))) 93 (setq acc (if (null num-max) num-max (list num-max))) 213 ((eq t (meqp a b)) "=") 254 (t (simplify (cons (list (mop e)) (mapcar #'$rationalize (margs e)))))))
|
H A D | db.lisp | 47 (defvar *lab-high-lab* (list +lab-high-bit+)) 75 `(list ,n)) 157 (if (symbolp x) x (list x))) 423 (setq y (datum (list 'kind x y))) 428 (setq y (datum (list 'par s y))) 478 (list (semant pat)))) 507 (setq *nobjects* (list x)) 511 (fact 'meqp x (car *nobjects*))) 525 (rplacd lis (list x)) x) 528 (fact 'meqp (cadr lis) x)) [all …]
|
H A D | conjugate.lisp | 124 (and (eq t (meqp (cdr z) 0)) 303 (simplify (cons (list (mop e)) (mapcar #'(lambda (s) (take '($conjugate) s)) (margs e)))))
|
H A D | rpart.lisp | 44 (cond ((eq t (meqp b 0)) ;signum(a) -> signum(a) + 0 %i 66 (eqtest (list '(%realpart) z) expr))))) 122 (simplify (list '(mabs) z))) 132 (eqtest (list '(mabs) z) expr))))) 161 (eqtest (list '(%carg) z) expr))))) 383 (cons (simplify (list '(%realpart) l)) (simplify (list '(%imagpart) l)))) 443 (take (list (cadr ass)) (cdr ri))) 522 (cons (list '(%realpart simp) l) 652 (t (list 2pf))))) 696 (list '(%carg simp) l))) [all …]
|
H A D | nset.lisp | 523 (list e)) 699 (acc (mapcar #'list (car b)))) 734 (list `(($set)))) 924 ((some #'(lambda (s) (eq t (meqp s lk))) acc)) ;; lk = some member of acc, do nothing 964 (take (list '%kron_delta) 1 k)) 968 (mul -1 (take (list '%binomial) n 2))) 970 (take (list '%kron_delta) n 0)) 975 (t (list (list fn 'simp) n k))))) 1039 (take (list '%binomial) n 2)) 1044 (t (list (list fn 'simp) n k))))) [all …]
|
H A D | limit.lisp | 281 (do ((list integer-info (cdr list))) 282 ((null list) t) 283 (i-$remove `(,(cadar list) ,(caddar list)))) 295 (cond ((eq t (meqp ra rb)) 996 (t (list (caar exp))))) 1179 (getexp (car list))) 2307 (rheur (list p1) 2502 (list 'fact term)) 2506 (t (list 'gen term)))) 2574 (list [all …]
|
/dports/math/maxima/maxima-5.43.2/share/to_poly_solve/ |
H A D | to_poly.lisp | 20 `(simplify (cons (list ,op) ,args))) 104 (list '(mlist) pp proviso non-alg))) 114 (list p nil nil nil)) 121 (list p nil nil nil)) 139 (list (mul nv (power b q)) subs inequal np-subs))) 153 (list nv subs inequal np-subs)))) 185 (list acc subs inequal np-subs)) 200 (list acc subs inequal np-subs)) 297 ((apply '$freeof (append vars (list p))) 0) 330 (if (null pivot-var) (list eqs pivots) [all …]
|