level 2
紧张的球º
楼主
DiscretePlot[{\!\(
\*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(n\)]
\*FractionBox[\(1\),
SqrtBox[\(k\)]]\) -
1/(2*Sqrt[n]) - (Sqrt[n + Sqrt[6]/6] + Sqrt[n - Sqrt[6]/6] - 2) -
0.5396454911904
13187110500
86329609028837267112147339256633`24.}, \
{n, 1, 200}, AxesLabel -> {"n", "误差"}]
如图，这里纵轴精度是10的-8次方，怎么把范围扩大一些，到10的-2左右的？
2017年04月29日 02点04分
1
\*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(n\)]
\*FractionBox[\(1\),
SqrtBox[\(k\)]]\) -
1/(2*Sqrt[n]) - (Sqrt[n + Sqrt[6]/6] + Sqrt[n - Sqrt[6]/6] - 2) -
0.5396454911904
13187110500
86329609028837267112147339256633`24.}, \
{n, 1, 200}, AxesLabel -> {"n", "误差"}]
如图，这里纵轴精度是10的-8次方，怎么把范围扩大一些，到10的-2左右的？
