21/02/11 07:41:59.15 ewUi1drK.net
>>943
プログラムに作図させて計算させて終わり。
URLﾘﾝｸ(i.imgur.com)
f <- function(x){
floor(x^3)/floor(x)^3
}
curve(f(x), -10,10)
optimise(f,c(-10,10))
optimise(f,c(-10,10),maximum=T)
21/02/11 07:41:59.15 ewUi1drK.net
>>943
プログラムに作図させて計算させて終わり。
URLﾘﾝｸ(i.imgur.com)
f <- function(x){
floor(x^3)/floor(x)^3
}
curve(f(x), -10,10)
optimise(f,c(-10,10))
optimise(f,c(-10,10),maximum=T)