Arithmetic-geometric mean/Calculate Pi: Difference between revisions

Content added Content deleted
Line 1,191: Line 1,191:
{{libheader|Rmpfr}}
{{libheader|Rmpfr}}


<lang rsplus>agm <- function(n, prec) {
<lang rsplus>library(Rmpfr)

agm <- function(n, prec) {
s <- mpfr(0, prec)
s <- mpfr(0, prec)
a <- mpfr(1, prec)
a <- mpfr(1, prec)
Retrieved from "https://rosettacode.org/wiki/Arithmetic-geometric_mean/Calculate_Pi"