>>952
想定解

> 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