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/BASIC/arithmetic-geometric-mean.basic
+++ b/Task/Arithmetic-geometric-mean/BASIC/arithmetic-geometric-mean.basic
@ -0,0 +1,10 @@
+10 A = 1
+20 G = 1/SQR(2)
+30 GOSUB 100
+40 PRINT A
+50 END
+100 TA = A
+110 A = (A+G)/2
+120 G = SQR(TA*G)
+130 IF A<TA THEN 100
+140 RETURN