Plot[ArithmeticGeometricMean[1, b], {b, -5, 5}]