Arithmetic-geometric mean: Difference between revisions
Content added Content deleted
| Line 969: | Line 969: | ||
=={{header|LiveCode}}== |
=={{header|LiveCode}}== |
||
Livecode has a built-in geometric mean method |
Livecode has a built-in geometric mean method. |
||
<lang LiveCode>geometricMean( |
<lang LiveCode>geometricMean(1,1/sqrt(2)) -- returns 0.840896</lang> |
||
However in the spirit of the exercise |
|||
<lang LiveCode>function agm aa,g |
|||
put abs(aa-g) into absdiff |
|||
put (aa+g)/2 into aan |
|||
put sqrt(aa*g) into gn |
|||
repeat while abs(aan - gn) < absdiff |
|||
put abs(aa-g) into absdiff |
|||
put (aa+g)/2 into aan |
|||
put sqrt(aa*g) into gn |
|||
put aan into aa |
|||
put gn into g |
|||
end repeat |
|||
return aa |
|||
end agm</lang> |
|||
Example |
|||
<lang LiveCode>put agm(1, 1/sqrt(2)) |
|||
-- ouput |
|||
-- 0.847213</lang> |
|||
=={{header|Logo}}== |
=={{header|Logo}}== |
||