%I#10 2021年7月18日10:02:11
%S 7,1,2,7,8,7,9,1,7,3,8,5,2,0,1,2,3,3,8-0,1,6,0,9,4,6,9,7,6,8,2,7,1,
%温度4,1,7,5,3,6,0,7,6,5,8,6,6,8,5,4,6,9,8,4,4,8,1,2,8,55,4,1,6,3,
%U 4,0,6,1,1,8,1,9,2,3,1,94,8,0,4,3,8,6,7,5,2,7,4,6,0,0,2,3,6,8,7,5
%N在直角三角形ABC中,从CA边到中心到CB边的线段的最短长度(C)的十进制展开,边长(a,b,C)=(r-1,r,sqrt(3)),其中r=(1+sqert(5))/2(黄金比率)。
%C有关定义和一般性讨论,请参见A195284。
%e(C)=0.71278791738520123380160946972682714175360765866。。。
%t a=b-1;b=(1+平方[5])/2;c=平方米[3];
%t f=2 a*b/(a+b+c);
%t x1=简化[f*Sqrt[a^2+(b+c)^2]/(b+c)]
%t x2=简化[f*Sqrt[b^2+(c+a)^2]/(c+a)]
%t x3=f*平方[2]
%t牛顿[x1,100]
%t实际数字[%](*(A)A195407*)
%t牛顿[x2,100]
%t真实数字[%](*(B)A195408*)
%t牛顿[x3100]
%t实际数字[%](*(C)A195409*)
%t牛顿[(x1+x2+x3)/(a+b+c),100]
%t实际数字[%](*Philo(ABC,I)A195410*)
%Y参考A195284。
%K nonn,cons公司
%0、1
%A_Clark Kimberling_,2011年9月17日
%E a(99)由_Georg Fischer修正,2021年7月18日
|