September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 deletions
--- a/Task/Arithmetic-geometric-mean/SQL/arithmetic-geometric-mean.sql
+++ b/Task/Arithmetic-geometric-mean/SQL/arithmetic-geometric-mean.sql
@ -0,0 +1,13 @@
+with
+  rec (rn, a, g, diff) as (
+    select  1, 1, 1/sqrt(2), 1 - 1/sqrt(2)
+      from  dual
+    union all
+    select  rn + 1, (a + g)/2, sqrt(a * g), (a + g)/2 - sqrt(a * g)
+      from  rec
+      where diff > 1e-38
+  )
+select *
+from   rec
+where  diff <= 1e-38
+;