Arithmetic-geometric mean/Calculate Pi: Difference between revisions
Arithmetic-geometric mean/Calculate Pi (view source)
Revision as of 13:50, 25 June 2022
, 1 year ago→{{header|R}}
m (→{{header|R}}) |
m (→{{header|R}}) |
||
Line 1,211:
# Compute pi to one million decimal digits:
p <- 3322000
x <- agm(20, p)
roundMpfr(agm(20, p) - Const("pi", p), 64)▼
# Check
# 1 'mpfr' number of precision 64 bits
# [1] 4.90382361286485830568e-1000016
# Save to disk
f <- file("pi.txt", "w")
writeLines(formatMpfr(x, 1e6), f)
close(f)</lang>
=={{header|Racket}}==
| |||