%I#8 2022年11月8日11:37:35
%S 1,6,7,3,6,4,7,2,0,4,1,5,2,9,1,5,1,7,8,0,1,3,8,6,3,3,2,7,8,1,6,6,
%温度0,2,6,8,5,8,3,3,6,5,7,7,1,0,3,5,3,9,2,8,6,1,7,9,4,6,0,5,6,9,5,2,6,1,
%U 8,9,5,6,2,8,0,5,4,7,5,7,7,2,9,1,1,9,3,7,1,7,0,9,5A,8,1,2,9,5,1,3
%N从x轴到(1,1)到直线y=2x的最短距离的十进制展开。
%C从角度T的一侧穿过T内的点P的最短线段称为T内P的菲罗线。有关相关序列的讨论和指南,请参阅A197032、A197008和A195284。
%e菲罗线长度:1.6736473041529。。。
%x轴上的e端点:(1.44062,0);参见A197140
%e线上的端点y=2x:(0.765782,1.53156)
%tf[t]:=(t-k*t/(k+m*t-m*h));
%t g[t]:=D[f[t],t];系数[g[t]]
%tp[t]:=h^2 k+k^3-h^3 m-h k^2 m-3 h k t+3 h ^2 m t+2 k t ^2-3 h m t ^2+m t ^3 m=2;h=1;k=1;(*斜率m,点(h,k)*)
%t t=t1/。查找根[p[t1]==0,{t1,1,2},工作精度->100]
%t实际数字[t](*A197140*)
%t{N[t],0}(*x轴上的端点*)
%t{N[k*t/(k+m*t-m*h)],
%t N[m*k*t/(k+m*t-m*h)]}(第y行的*endpt=mx*)
%t d=N[Sqrt[f[t]],100]
%t实际数字[d](*A197141*)
%t显示[绘图[{k*(x-t)/(h-t),m*x},{x,0,2}],
%t等高线图[(x-h)^2+(y-k)^2==.001,{x,0,4},{y,0,3}],绘图范围->{0,1.7},纵横比->自动]
%Y参考A197032、A197140、A197008、A195284。
%K nonn,cons公司
%O 1,2号机组
%A_Clark Kimberling_,2011年10月11日
|