tasks a-s

Task/Nth-root/Octave/nth-root-1.octave

@@ -0,0 +1 @@
+  r = A.^(1./n)

Task/Nth-root/Octave/nth-root-2.octave

@@ -0,0 +1,12 @@
+function r = m_nthroot(n, A)
+  x0 = A / n;
+  m  = n - 1;
+  while(1)
+    x1 = (m*x0 + A./ x0 .^ m) / n;
+    if ( abs(x1-x0) < abs(x0 * 1e-9) )
+      r = x1;
+      return
+    endif
+    x0 = x1;
+  endwhile
+endfunction

Task/Nth-root/Octave/nth-root-3.octave

@@ -0,0 +1,8 @@
+function r = m_nthroot(n, A)
+  r = A / n;
+  m = n - 1;
+  do
+    d = (A ./ r .^ m - r) / n;
+    r+= d;
+  until (abs(d) < abs(r * 1e-9))
+endfunction

Task/Nth-root/Octave/nth-root-4.octave

@@ -0,0 +1,6 @@
+m_nthroot(10, 7131.5 .^ 10)
+nthroot(7131.5 .^ 10, 10)
+m_nthroot(5, 34)
+nthroot(34, 5)
+m_nthroot(0.5, 7)
+nthroot(7, .5)