Arithmetic-geometric mean: Difference between revisions

Content added Content deleted
m (→‎{{header|Phix}}: added syntax colouring the hard way)
Line 1,655: Line 1,655:
</lang>
</lang>


=={{header|Mathematica}}==
=={{header|Mathematica}}/{{header|Wolfram Language}}==
To any arbitrary precision, just increase PrecisionDigits
To any arbitrary precision, just increase PrecisionDigits
<lang Mathematica>PrecisionDigits = 85;
<lang Mathematica>PrecisionDigits = 85;