8.π的计算实验.docVIP

π的近似计算实验 实验目的 实验指导 a[0]=1 a [n_]:=Sqrt[2-Sqrt[4-a[n-1]^2]]; (*多边形边长*) b[n_]:=6*2^n*a[n]; (*多边形周长*) s[n_] :=3*2^n*a[n] ; (*多边形面积*) Table[{6 2^n, N[s[n]], a[n]}, {n, 1, 4}] // TableForm 计算结果为： a = 1; For[i = 1, i = 11, i++, a = Sqrt[2 - Sqrt[4 - a^2]]] 3 2^11 a // N Vieta[n_]:= Module[{u}, u=N[Product[Cos[Pi/2^ (i+1)],{i,1,n+1}],20]; Return [2/u]] Table[{n,Vieta[n],Pi-Vieta[n]}, {n,0,20,2}]//N Table[{n, N[4Sum[(-1)^j/(2j+1),{j,0,n}] ,10], N[Pi-4Sum[(-1)^j/(2j+1),{j,0,n}]]}, {n,100,1000, 200}]//TableForm arctan[x_, n_] := Sum[(-1)^j/(2j + 1) x^(2j + 1), {j, 0, n}] Table