0976132人目の素数さん
2024/04/05(金) 07:08:51.51ID:seG+J0za想定解
> optimise(g1,c(-pi,pi),maximum = FALSE)$obj
[1] -1.092987
> optimise(g1,c(-pi,pi),maximum = TRUE)$obj
[1] 3.741801
> optimise(g2,c(-pi,pi),maximum = FALSE)$obj
[1] -3.275738
> optimise(g2,c(-pi,pi),maximum = TRUE)$obj
[1] 3.275738