小中学校範囲の算数・数学の問題のスレ　Part 61

>>337
Wolframに移植して判定

Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= r=E^(I 2Pi/7);

In[2]:= p=Table[(1-r^i)/(1-r),{i,Range[7+1]}];

In[3]:= fp[m_] :=(
q1=If[Floor[m/17]==0,7,Floor[m/17]];
r1=Mod[m,17];
(1-r1/17)p[[q1]]+(r1/17)p[[q1+1]]
)

In[4]:= ptsc=Table[fp[m],{m,Range[119]}];

In[5]:= pts={Re[#],Im[#]}& /@ ptsc;

In[6]:= v=Subsets[Range[119],{3}];

In[7]:= ft[x_] :=(
EuclideanDistance[pts[[x[[1]]]],pts[[x[[2]]]]] == EuclideanDistance[pts[[x[[2]]]],pts[[x[[3]]]]]
&& EuclideanDistance[pts[[x[[1]]]],pts[[x[[2]]]]] == EuclideanDistance[pts[[x[[1]]]],pts[[x[[3]]]]]
)

In[8]:= ft[{2,42,82}]

Out[8]= False

正三角形ではない。