24/05/06 11:12:24.88 xxhQy/YG.net
>>889
厳密値を出すためにRのコードをWolframに移植。
f[t_] :=(
r=1/Sqrt[3];
Q={r*Cos[t],r*Sin[t]};
A1={r*Cos[-(5/6)Pi],r*Sin[-(5/6)Pi]};
B1={r*Cos[-Pi/6],r*Sin[-Pi/6]};
C1={0,r};
EuclideanDistance[Q,A1]+EuclideanDistance[Q,B1]+EuclideanDistance[Q,C1]
)
In[7]:= f[t_] :=(
r=1/Sqrt[3];
Q={r*Cos[t],r*Sin[t]};
A1={r*Cos[-(5/6)Pi],r*Sin[-(5/6)Pi]};
B1={r*Cos[-Pi/6],r*Sin[-Pi/6]};
C1={0,r};
EuclideanDistance[Q,A1]+EuclideanDistance[Q,B1]+EuclideanDistance[Q,C1]
)
In[8]:= Minimize[{f[t],-(5/6)Pi<=t && t<= -Pi/6},{t}]
-5 Pi
Out[8]= {2, {t -> -----}}
6
In[9]:= Maximize[{f[t],-(5/6)Pi<=t && t<= -Pi/6},{t}]
4 1
Out[9]= {-------, {t -> -(-) Pi}}
Sqrt[3] 2
最小値２
最大値 4/sqrt(3)=2.309401
Rでの数値解とほぼ一致。
Wolfram Scriptの演習になった。