24/05/04 19:18:50.52 RS+aZjjf.net
>>829
Rでの数値解
> f=\(th){
+ A=0i
+ B=2+0i
+ C=1+1i*sqrt(3)
+ P=cos(th)+1i*sin(th)
+ abs(B-P)*abs(C-P)
+ }
> curve(f,0,pi/3)
> optimize(f,c(0,pi/3))
$minimum
[1] 0.5235988
$objective
[1] 1.535898
> f(0)
[1] 1.732051
> f(pi/3)
[1] 1.732051
Wolfram言語での厳密解
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= f[x_] := EuclideanDistance[{2,0},{Cos[x],Sin