%I#5 2012年3月30日18:57:57
%S 9,7,6,3,1,2,2,7,3,6,1,5,1,3,0,1,2,3,0,7,4,4,7,0,14,1,3,15,0,9,1,5,
%T 6,7,9,6,7,1,9,5,3,4,3,8,0,9,3,0,7,2,6,9,0,4,9,1,7,6,4,2,7,7,
%U 0,7,7,1,5,4,3,2,7,9,7,2,8,5,0,0,3,9,2,7,6,7,2,6,5,1,8,3,9
%N满足2*x^2+2*x*cos(x)=3的x>0的十进制展开式。
%C有关相关序列的指南,请参见A199170。Mathematica程序包含一个图形。
%e阴性:-1.3429051223293561577956292583825825170。。。
%e阳性:0.976312273615130123076470141335091567967。。。
%t a=2;b=2;c=3;
%t f[x_]:=a*x^2+b*x*Cos[x];g[x_]:=c
%t绘图[{f[x],g[x]},{x,-3,3},}轴原点->{0,0}}]
%t r=x/。查找根[f[x]==g[x],{x,-1.35,-1.34},工作精度->110]
%t实际数字[r](*A199271*)
%t r=x/。查找根[f[x]==g[x],{x,.97,.98},工作精度->110]
%t实际数字[r](*A199272*)
%Y参考A199170。
%K nonn,cons公司
%0、1
%A_Clark Kimberling_,2011年11月4日
|