f[x_]:=f[x]=乘积[(1+x^k),{k,1,1000}];
p[x_,z_]:=总和[n/(x+x^(1-n)),{n,z}]^2+总和[(n*x^;
绘图[f[x],{x,-1,1}](*绘图显示2个影响点。*)
t=x/。查找根[p[x,1000],{x,-0.8},工作精度->100](*A257394号*)
v=x/。查找根[p[x,200],{x,-0.3},工作精度->100](*A257396号*)
数字=107;QP=Q手锤;QPP[x_]:=使用[{dx=10^-数字},(QP[-1,x+dx]-QP[-1,x-dx])/(4*dx)];x0=x/。N最小化[{QPP[x],-1/2<x<0},x,工作精度->4位数][2];y=QP[-1,x0]/2;实数字[y,10,digits][[1](*Jean-François Alcover公司2015年11月19日*)
|