Arithmetic-geometric mean/Calculate Pi: Difference between revisions
Arithmetic-geometric mean/Calculate Pi (view source)
Revision as of 13:56, 25 June 2022
, 1 year ago→{{header|R}}
m (→{{header|R}}) |
m (→{{header|R}}) |
||
Line 1,191:
{{libheader|Rmpfr}}
<lang rsplus>
agm <- function(n, prec) {
s <- mpfr(0, prec)
a <- mpfr(1, prec)
|