Searched refs:simpnrt (Results 1 – 5 of 5) sorted by path
855 r (simpnrt (div* e a) 3))880 (setq discrim (simpnrt discrim 2))
61 (simpnrt (setq y2 (add (power a2 3)67 (setq y2 (simpnrt (mul y2 '((rat) 1 27)) 3))79 (setq u (simpnrt pdiv3 2))86 (setq u (simpnrt qdiv-2 3)))87 (t (setq discr (simpnrt discr 2))129 (setq r (simpnrt r 2))141 l0 (setq d1 (simpnrt (add (power z1 2) (mul -4 b0)) 2))
2180 (simpnrt r1 (caddr r2))))3423 (defun simpnrt (x *n) ; computes X^(1/*N) function3446 (push (simpnrt (list '(mexpt) (car x) (quotient (cadr x) y))
311 (simpnrt (disrep (ratqu (ratti -1 e t) d)) 3))312 (t (neg (simpnrt (disrep (ratqu e d)) 3)))))420 (defun ratsqrt (a) (let (varlist) (simpnrt (disrep a) 2)))
714 (simpnrt (div* b a) (cadr exp))798 (t (setq discrim (simpnrt discrim 2))