%I#5 2012年3月30日18:57:45

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

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

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

%N边长（A，b，c）=（5,12,13）的直角三角形ABC中从AB边到质心到AC边的线段最短长度（A）的十进制展开。

%C有关定义和一般性讨论，请参见A195304。

%e（A）=3.26850539807120637710023336853865893304057。。。

%t a=5；b=12；h=2 a/3；k=b/3；

%tf[t]：=（t-a）^2+（t-a，^2）（（a*k-b*t）/（a*h-a*t））^2

%t s=N溶液[D[f[t]，t]==0，t，150]

%t f1=（f[t]）^（1/2）/。第[s，4]部分

%t实际数字[%，10，100]（*（A）A195412*）

%t f[t]：=（t-a）^2+（（t-a）^2）（k/（h-t））^2

%t s=N溶液[D[f[t]，t]==0，t，150]

%t f2=（f[t]）^（1/2）/。第[s，4]部分

%t实际数字[%，10，100]（*（B）A195413*）

%tf[t]：=（b*t/a）^2+（（b*t/a）^2）（（a*h-a*t）/（b*t-a*k））^2

%t s=N溶液[D[f[t]，t]==0，t，150]

%t f3=（f[t]）^（1/2）/。第[s，1]部分

%t实际数字[%，10，100]（*（C）A195414*）

%t c=平方[a^2+b^2]；（f1+f2+f3）/（a+b+c）

%t实际数字[%，10，100]（*Philo（ABC，G）A195424*）

%Y参考A195413、A195414、A195424。

%K nonn，cons公司

%O 1,1号机组

%A_Clark Kimberling_，2011年9月18日