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

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

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

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

%N归一化菲罗和的十进制展开式，菲罗（ABC，G），其中G=5,12,13直角三角形ABC的质心。

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

%e菲罗（ABC，G）=0.5847132559501422456761216427062174591616270。。。

%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参考A195304。

%K nonn，cons公司

%0、1

%A_Clark Kimberling_，2011年9月18日