All pastes #25906 Raw Edit

Miscellany

public text v1 · immutable
#25906 ·published 2005-10-18 23:26 UTC
rendered paste body
(defun raiz(p x &optional (i 0))
  (cond
    ((zerop (avaliar p x)) x)
    ((equal i 500) 'FDX)
    (T (raiz p (- x (/ (avaliar p x) (avaliar (derivaPolinomio p) x))) (1+ i)))
  )
)