Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Arithmetic-geometric-mean/Stata/arithmetic-geometric-mean.stata
+++ b/Task/Arithmetic-geometric-mean/Stata/arithmetic-geometric-mean.stata
@ -0,0 +1,14 @@
+mata
+
+real scalar agm(real scalar a, real scalar b) {
+	real scalar c
+	do {
+		c=0.5*(a+b)
+		b=sqrt(a*b)
+		a=c
+	} while (a-b>1e-15*a)
+	return(0.5*(a+b))
+}
+
+agm(1,1/sqrt(2))
+end