Another update from ingydotnet^djgoku

2015-11-18 06:14:39 +00:00 · 2015-11-18 06:14:39 +00:00 · 948b86eafa
commit 948b86eafa
parent 91df62d461
7604 changed files with 108452 additions and 22726 deletions
--- a/Task/Arithmetic-geometric-mean/VBScript/arithmetic-geometric-mean.vb
+++ b/Task/Arithmetic-geometric-mean/VBScript/arithmetic-geometric-mean.vb
@ -0,0 +1,10 @@
+Function agm(a,g)
+	Do Until a = tmp_a
+		tmp_a = a
+		a = (a + g)/2
+		g = Sqr(tmp_a * g)
+	Loop
+	agm = a
+End Function
+
+WScript.Echo agm(1,1/Sqr(2))