Arithmetic-geometric mean: Difference between revisions
Content added Content deleted
(Dialects of BASIC moved to the BASIC section.) |
(→{{header|ANSI BASIC}}: Added a solution.) |
||
Line 397: | Line 397: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
==={{header|ANSI BASIC}}=== |
|||
{{works with|Decimal BASIC}} |
|||
<syntaxhighlight lang="basic">100 PROGRAM ArithmeticGeometricMean |
|||
110 FUNCTION AGM (A, G) |
|||
120 DO |
|||
130 LET TA = (A + G) / 2 |
|||
140 LET G = SQR(A * G) |
|||
150 LET Tmp = A |
|||
160 LET A = TA |
|||
170 LET TA = Tmp |
|||
180 LOOP UNTIL A = TA |
|||
190 LET AGM = A |
|||
200 END FUNCTION |
|||
210 REM ******************** |
|||
220 PRINT AGM(1, 1 / SQR(2)) |
|||
230 END |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
.84721308479398 |
|||
</pre> |
|||
==={{header|BASIC256}}=== |
==={{header|BASIC256}}=== |
||
<syntaxhighlight lang="basic256">print AGM(1, 1 / sqr(2)) |
<syntaxhighlight lang="basic256">print AGM(1, 1 / sqr(2)) |