%I#8 2021年4月10日02:04:49
%S 2,5,5,4,6,5,2,8,6,1,0,3,8,5,3,5,9,6,6,9,8,2,6,9,1,3,2,0,2,
%T 7,2,6,5,4,7,8,8,3,5,5,9,5,3,7,0,8,5,2,8,9,3,0,0,2,5,6,7,6,7,2,9,7,6,
%U 4,8,2,6,7,0,9,3,0,6,6,8,5,0,4,1,1,8,3,6,72,5,8,9,1,4
%N xo的十进制展开式,其中P=(xo,yo)是距离O=(0,0)最近的点,其中直线y=mx正交地与曲线y=cos(x+Pi/3)相交。
%C有关图形,请参阅Mathematica程序。
%Cxo=0.2554652861038596695882696613320272654788。。。
%C yo=0.264932084602776862434116494762571068650190。。。
%立方米=1.0370570837365150046614795837584277605222343。。。
%C|OP|=0.3680373919265496189530095416155881110455。。。
%t c=Pi/3;
%t xo=x/。查找根[x==Sin[x+c]Cos[x+c],{x,.8,1.2},工作精度->100]
%t实际数字[xo](*A197004*)
%t m=1/正弦[xo+c]
%t实际数字[m](*A197005*)
%t yo=m*xo
%t d=平方[xo^2+yo^2]
%t显示[Plot〔{Cos〔x+c〕,yo-(1/m)(x-xo)},{x,-Pi/4,Pi/2}〕,
%t轮廓图[{y==m*x},{x,0,Pi},},PlotRange->All,
%t纵横比->自动,轴原点->自动]
%Y参考A197002、A196996、A197000。
%K nonn,cons公司
%0、1
%A_Clark Kimberling_,2011年10月10日
|