mathematica求π的近似值

1. 如果只是想得到精度高的 π 值：
原理：mathematice里面是有 π 值的，直接输入

N[pi,n]

就可以得到 n 个有效数字的pi值 。

2. 如果是想验证数学分析的知识：
原理：利用求极限的办法，比如：

Sum[(-1)^n (2 n - 1)^(-1), {n, 1, Infinity}]

可以得到 -π/4 。

3. 如果还想要列表查看逼近的速度：
Table[Print["前", k, "项的和是",
N[-4*Sum[(-1)^n (2 n - 1)^(-1), {n, 1, k}]], 10], {k, 1, 1001, 10}]
看看吧

分太少