September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Arithmetic-geometric-mean/Scheme/arithmetic-geometric-mean.ss
+++ b/Task/Arithmetic-geometric-mean/Scheme/arithmetic-geometric-mean.ss
@ -0,0 +1,10 @@
+(define agm
+  (case-lambda
+    ((a0 g0) ; call again with default value for tolerance
+     (agm a0 g0 1e-8))
+    ((a0 g0 tolerance) ; called with three arguments
+     (do ((a a0 (* (+ a g) 1/2))
+          (g g0 (sqrt (* a g))))
+       ((< (abs (- a g)) tolerance) a)))))
+
+(display (agm 1 (/ 1 (sqrt 2)))) (newline)