24/04/28 19:47:50.24 pfxD2O3Q.net
Rで作図
URLﾘﾝｸ(i.imgur.com)
Wolframで計算
n=7
r=Cos[2Pi/n] + I*Sin[2Pi/n]
p=Table[(1-r^i)/(1-r),{i,1,n+1}]
a={1/2,0}
a0={0,-1/2*Tan[Pi/3]}
aa0={a,a0}
p2={Re[p[[2]]],Im[p[[2]]]}
p3={Re[p[[3]]],Im[p[[3]]]}
p2p3={p2,p3}
b=ResourceFunction["LineIntersection"][aa0,p2p3]
EuclideanDistance[a,b]
% // N
In[36]:= % // N
Out[36]= 1.86614
R言語でNelder-Mead法での値とほぼ同じ。