Searched refs:meqp (Results 1 – 13 of 13) sorted by relevance
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))))306 (if (meqp $pivot_count_sx $pivot_max_sx)313 (if (meqp piv 0)321 (if (not (meqp tm 0))337 (if (not (meqp 0 (aref Tab i j))) ; if Tab[i,j]#0 then column j is not
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)))378 :great #'(lambda (a b) (declare (ignore a)) (eq t (meqp b 0)))412 :fzerop #'(lambda (s) (eq t (meqp s 0)))
157 ((eq 'meqp rel) (cons '($equal) body))476 ((eq '$equal pred) (meqp arg1 arg2))1062 (defun meqp (a b) function1140 (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 …]
59 (eq t (meqp x (neg y))))213 ((eq t (meqp a b)) "=")
151 ((eq '$number mode) `(meqp ,(cdr arg1) ,(cdr arg2)))153 (wrap-an-is `(meqp ,(dconvx arg1) ,(dconvx arg2)) form)))))
124 (and (eq t (meqp (cdr z) 0))
511 (fact 'meqp x (car *nobjects*)))528 (fact 'meqp (cadr lis) x))
44 (cond ((eq t (meqp b 0)) ;signum(a) -> signum(a) + 0 %i
924 ((some #'(lambda (s) (eq t (meqp s lk))) acc)) ;; lk = some member of acc, do nothing
295 (cond ((eq t (meqp ra rb))
63 (let ((answer (meqp (sratsimp a) (sratsimp b))))
43 (cond ((not (eq 'meqp (caaar l))))
580 (cond ((eq t (meqp e ec)) t)