Arithmetic-geometric mean: Difference between revisions
Content added Content deleted
(→{{header|Racket}}: Added bigfloat version.) |
m (→{{header|REXX}}: removed duplicate "the the". -- ~~~~) |
||
Line 831: | Line 831: | ||
=={{header|REXX}}== |
=={{header|REXX}}== |
||
The REXX language doesn't have a SQRT function, so one was included here (RYO). |
The REXX language doesn't have a '''SQRT''' function, so one was included here (RYO). |
||
<br>Also, this version of AGM has three short circuits within it for an equality case and |
<br>Also, this version of AGM has three ''short circuits'' within it for an equality case and for two zero cases. |
||
<br>REXX supports arbitrary precision, so the digits can be increased if desired. |
<br>REXX supports arbitrary precision, so the digits can be increased if desired. |
||
<lang rexx>/*REXX program calculates AGM (arithmetric-geometric mean) of 2 numbers.*/ |
<lang rexx>/*REXX program calculates AGM (arithmetric-geometric mean) of 2 numbers.*/ |