%I#8 2021年4月10日08:06:33
%S 4,7,4,1,2,7,6,9,0,4,2,0,7,5,4,15,9,3,4,74,8,5,6,9,5,5,1,5,
%T 3,8,4,3,4,8,7,2,9,2,8,5,5,9,6,5,6,9,8,3,4,8,5,2,3,4,5,7,3,5,4,
%U 6,4,1,8,0,4,0,1,6,8,9,7,3,5,6,1,0,0,2,8,4,3,3,8,1,4,9,6
%N满足5*x^2=sec(x)和0<x<Pi的最小x的十进制展开。
%C有关相关序列的指南,请参见A201397。Mathematica程序包含一个图形。
%e最小值:0.474127690420775415934748938569551538434。。。
%e最大:1.4792710652904107931042853415537602633。。。
%t a=5;c=0;
%t f[x_]:=a*x^2+c;g[x_]:=秒[x]
%t绘图[{f[x],g[x]},{x,0,Pi/2},}轴原点->{0,0}}]
%t r=x/。查找根[f[x]==g[x],{x,.4,.5},工作精度->110]
%t实际数字[r](*A201412*)
%t r=x/。FindRoot[f[x]==g[x],{x,1.4,1.5},WorkingPrecision->110]
%t实际数字[r](*A201413*)
%Y参考A201397。
%K nonn,cons公司
%0、1
%A_Clark Kimberling_,2011年12月1日
|