%I#5 2012年3月30日18:57:54
%S 5,8,1,7,2,0,0,7,9,7,3,1,6,5,9,2,2,2,8,6,,5,2,3,7,1,4,8,2,
%T 7,4,9,0,7,5,9,9,1,9,8,4,9,2,8,9,2,5,9,8,6,9,4,4,3,4,7,2,5,8,1,1,3,
%U 0,3,7,5,4,1,9,5,2,4,1,8,7,9,2,9,9,8,8,4,13,4,0,5,8,0,4,1,1
%N最大x的十进制展开式,具有3*x^2+4x=4*cos(x)。
%C有关相关序列的指南,请参见A197737。Mathematica程序包含一个图形。
%e最小x:-1.447057151041655078779471681449880627。。。
%e最大x:0.58172007973165972284286592327148827490。。。
%t a=3;b=4;c=4;
%t f[x_]:=a*x^2+b*x;g[x_]:=c*Cos[x]
%t图[{f[x],g[x]},{x,-2,1}]
%t r1=x/。查找根[f[x]==g[x],{x,-1.5,-1.4},工作精度->110]
%t实际数字[r1](*A198138*)
%t r2=x/。查找根[f[x]==g[x],{x,.58,.59},工作精度->110]
%t实际数字[r2](*A198139*)
%Y参考A197737。
%K nonn,cons公司
%0、1
%A_Clark Kimberling_,2011年10月23日
|