%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）

%t f[t_]：=（t-k*t/（k+m*t-m*h））^2+（m*k*t/（k+m*t-m*h））^2；

%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非n，缺点

%O 1,2号机组

%A_Clark Kimberling_，2011年10月11日