20/07/06 07:04:42 IqOckpzP.net
>>885
Wolfram先生によるとθ＝ -2arctan(8/(9+√145)のときが最大とのこと。
URLﾘﾝｸ(ja.wolframalpha.com)
> -2*atan(8/(9+sqrt(145)))
[1] -0.7266423
> (th=optimise(fn,c(-pi,pi),maximum = TRUE)$max)
[1] -0.726642
まあ、あってる
20/07/06 07:04:42 IqOckpzP.net
>>885
Wolfram先生によるとθ＝ -2arctan(8/(9+√145)のときが最大とのこと。
URLﾘﾝｸ(ja.wolframalpha.com)
> -2*atan(8/(9+sqrt(145)))
[1] -0.7266423
> (th=optimise(fn,c(-pi,pi),maximum = TRUE)$max)
[1] -0.726642
まあ、あってる