tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Nth-root/Maxima/nth-root.maxima
+++ b/Task/Nth-root/Maxima/nth-root.maxima
@ -0,0 +1,13 @@
+nth_root(a, n) := block(
+   [x, y, d, p: fpprec],
+   fpprec: p + 10,
+   x: bfloat(a),
+   eps: 10.0b0^-p,
+   y: do (
+      d: bfloat((a / x^(n - 1) - x) / n),
+      if abs(d) < eps * x then return(x),
+      x: x + d
+   ),
+   fpprec: p,
+   bfloat(y)
+)$