问一个小问题
mathematica吧
全部回复
仅看楼主
level 3
jhsyzyl 楼主
result = {};
For[i = 1, i <= 99, i++, \[Mu] = 0.01*i;
For[j = 1, j <= 99, j++, \[Beta] = 0.01*j;
AppendTo[result, L[\[Mu], \[Beta]]]
]
]
pos = Position[result, Max[result]][[1, 1]]
result[[pos]]
result
代码如上所示,就是一层层套进去算L,现在结果已经出来了,问一下我怎么输出最大值时的μ跟β呢?或者AppendTo[result, L[\[Mu], \[Beta]]]这句怎么改一下把L与对应的μβ一起作为数据存到result里面,谢谢
2017年04月13日 05点04分 1
level 5
Outer[Sin[
#1 + #
2] &, .01 Range[99], .01 Range[99]] //
Position[
#, Max[#
]] &
Table[Sin[.01 i + .01 j], {i, 1, 99}, {j, 1, 99}] //
Position[
#, Max[#
]] &
2017年04月13日 10点04分 2
level 2

2019年04月23日 05点04分 3
1