23/08/30 22:04:56.79 oIifFUwT.net
>>385
レス遅延、スマソ。
本業関連の論文を読んでいたら
self-organaized criticality theoryというのに囚われて
Rでsand pile modelを作ってた。
URLﾘﾝｸ(mas.kke.co.jp)
んで、Nelder-Meadの結果
最小値（正確には極小値）
> optim(runif(2,0,pi),\(x) f(x[1],x[2]))$value
[1] 0.066176
最大値（極大値）
> optim(runif(2,0,pi),\(x) f(x[1],x[2]),control=list(fnscale=-1))$value
[1] 2.194186
このRのコードはここ↓
URLﾘﾝｸ(egg.2ch.sc)