RosettaCodeData/Task/Arithmetic-geometric-mean/Mathematica/arithmetic-geometric-mean.math

PrecisionDigits = 85;
AGMean[a_, b_] := FixedPoint[{ Tr@#/2, Sqrt[Times@@#] }&, N[{a,b}, PrecisionDigits]]〚1〛
A-M baby 2013-04-10 21:29:02 -07:00			`PrecisionDigits = 85;`
Sync 2013-10-27 22:24:23 +00:00			`AGMean[a_, b_] := FixedPoint[{ Tr@#/2, Sqrt[Times@@#] }&, N[{a,b}, PrecisionDigits]]〚1〛`