Arithmetic-geometric mean/Calculate Pi: Difference between revisions

m
(+R)
Line 1,206:
}
 
1e6 * log(10) / log(2)
# Compute pi to more than 300000 decimal digits:
# [1] 3321928
p <- 2^20
 
roundMpfr(agm(18, p) - Const("pi", p), 64)
# Compute pi to moreone than 300000million decimal digits:
p <- 2^203322000
roundMpfr(agm(1820, p) - Const("pi", p), 64)
# 1 'mpfr' number of precision 64 bits
# [1] -54.34912482587363425768e90382361286485830568e-3156481000016</lang>
 
=={{header|Racket}}==
1,336

edits