Searched refs:pdisrep (Results 1 – 2 of 2) sorted by relevance
911 (defun pdisrep (p) function944 (t (do ((l () (cons (pdisrep* (pdisrep (cadr p)) (pdisrep! (car p) var)) l))972 (t (nconc (pdisrep*expand (pdisrep (cadr p)) (pdisrep! (car p) var))1003 ((or (equal 1 (cdr x)) (floatp (cdr x))) (pdisrep (car x)))1004 (t (setq sign (cond ($ratexpand (setq n (pdisrep (car x))) 1)1006 (setq n (pdisrep (pminus (car x)))) -1)1007 (t (setq n (pdisrep (car x))) 1)))1008 (setq d (pdisrep (cdr x)))
449 (power (tagirr (simplify (pdisrep p))) e))