%I#19 2024年5月3日15:49:44

%S 2,8,8,6,1,1,7,1,0,5,8,9,8,0,1,2,9,1,5,3,6,7,2,6,5,2,0,9,5,1,1，

%温度4,1,4,5,1,7,1,7,7,6,1,74,7,4,7,1,3,9,4,8,5,3,3,8,0,7,5,4,2,9,4,1,9,9，

%U 1,5,0,7,4,1,3,0,8,4,2,4,6,2,4,9,4,9,2,7,6,4,9,9,0,1,8,3,2

%N从x轴到（3,2）到直线y=x的最短距离的十进制展开式。

%C从角度T的一侧穿过T内的点P的最短线段称为T内P的菲罗线。有关相关序列的讨论和指南，请参阅A197032、A197008和A195284。

%C任何菲罗线都可以用圆和双曲线的交点来构造。在这种情况下，菲罗线穿过圆（x-3/2）^2+（y-1）^2=13/4和双曲线x*y-y^2=2相交的两点。圆的直径为OP段，其中O（0,0）是原点，P是点（3,2）。双曲线的渐近线是x轴和y=x线。点P是圆和双曲线相交的两点之一_Raul Priscariu，2024年4月6日

%e菲罗线长度：2.8861171058980012915367。。。

%e x轴上的端点：（3.4883，0）；参见A197138

%e线上的端点y=x：（2.80376，2.80376）

%tf[t]：=（t-k*t/（k+m*t-m*h））；

%t g[t]：=D[f[t]，t]；系数[g[t]]

%tp[t]：=h^2k+k^3-h^3m-hk^2m-3hkt+3h^2mt+2kt^2-3hmt^2+mt^3

%t m=1；h=3；k=2；（*斜率m；点（h，k）*）

%t t=t1/。查找根[p[t1]==0，{t1，1，2}，工作精度->100]

%t实际数字[t]（*A197138*）

%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=x*）

%t d=N[Sqrt[f[t]]，100]

%t实际数字[d]（*此序列*）

%t显示[绘图[{k*（x-t）/（h-t），m*x}，{x，0，4}]，

%等高线图[（x-h）^2+（y-k）^2==0.003，{x，0，4}，{y，0，3}]，

%t绘图范围->{0，3}，纵横比->自动]

%Y参考A197032、A197138、A197008、A195284。

%K nonn，cons公司

%O 1,1号机组

%A_Clark Kimberling_，2011年10月10日

%E R.J.Mathar_于2022年11月8日删除了最后一位数字（代表被截断，未四舍五入）