〓Mathematica〓
■ このスレッドは過去ログ倉庫に格納されています
0537１３２人目の素数さん
NGNG漠然としすぎ。
こういうことか？
<< Statistics`DescriptiveStatistics`
data = {x, y} /. (#[[2]] &) /@
Flatten[Table[
FindMinimum[Sin[x + y], {x, i}, {y, j}], {i, 0, 3}, {j, 0, 3}],
1];
Mean /@ Transpose @ data
■ このスレッドは過去ログ倉庫に格納されています