%I#6 2012年3月30日18:57:45
%S 6,2,9,7,8,7,2,2,0,0,0,1,5,5,8,4,3,1,7,2,0,2,0,7,6,4,2,
%温度9,0,1,2,4,9,2,0,7,0,2,7,5,8,5,4,9,1,4,3,9,5,9,7,7,3,
%U 1,1,3,4,1,0,7,7,9,5,2,1,2,0,6,7,3,6,6,7,3,0,7,0,5,6,2,8,1,4,3
%N归一化Philo和的十进制展开,Philo(ABC,G),其中G=3,4,5直角三角形ABC的质心。
%C有关定义和一般性讨论,请参见A195304。
%e菲罗(ABC,G)=0.629787202200915115584317820207624290124920。。。
%t a=3;b=4;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)A195304*)
%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)A195305*)
%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)A195306*)
%t c=平方[a^2+b^2];(f1+f2+f3)/(a+b+c)
%t实际数字[%,10,100](*Philo(ABC,G)A195411*)
%Y参考A195304。
%K nonn,cons公司
%0、1
%A_Clark Kimberling_,2011年9月18日
|