June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Arithmetic-geometric-mean/8th/arithmetic-geometric-mean.8th
+++ b/Task/Arithmetic-geometric-mean/8th/arithmetic-geometric-mean.8th
@ -0,0 +1,14 @@
+: epsilon  1.0e-12 ;
+
+with: n
+
+: iter  \ n1 n2 -- n1 n2
+    2dup * sqrt >r + 2 / r> ;
+
+: agn  \ n1 n2 -- n
+    repeat  iter  2dup epsilon ~= not while!  drop ;
+
+"agn(1, 1/sqrt(2)) = " .  1  1 2 sqrt /  agn  "%.10f" s:strfmt . cr
+
+;with
+bye