2 lines
114 B
Text
2 lines
114 B
Text
PrecisionDigits = 85;
|
|
AGMean[a_, b_] := FixedPoint[{ Tr@#/2, Sqrt[Times@@#] }&, N[{a,b}, PrecisionDigits]]〚1〛
|