4 lines
117 B
R
4 lines
117 B
R
a <- c(1, 1, 1)
|
|
b <- c(1/sqrt(2), 1/sqrt(3), 1/2)
|
|
agm <- arithmeticGeometricMean(a, b)
|
|
print(format(agm, digits=16))
|