Home
last modified time | relevance | path

Searched +refs:list +refs:meqp (Results 1 – 11 of 11) sorted by relevance

/dports/math/maxima/maxima-5.43.2/share/simplex/
H A Dsimplex_algorithm.lisp108 (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 Dmring.lisp169 :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 Dcompar.lisp157 ((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 Dtrpred.lisp29 `($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 Dmaxmin.lisp59 (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 Ddb.lisp47 (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 Dconjugate.lisp124 (and (eq t (meqp (cdr z) 0))
303 (simplify (cons (list (mop e)) (mapcar #'(lambda (s) (take '($conjugate) s)) (margs e)))))
H A Drpart.lisp44 (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 Dnset.lisp523 (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 Dlimit.lisp281 (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 Dto_poly.lisp20 `(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 …]