Question

用mathematica来运行的一道数学题 高分悬赏 急求答案！！！

(a) Make a simulation of rolling two dice (with six faces), and note their sum. How does the probability density function look like?
(b) Do the same for three dice.
求代码。。。实在是研究不动了 求大神解答，如果能一起解答下面一道就万分感谢了！

下面这道题第一问我会，求第二问怎样解，用了Do和For但就是有错误。。。

Answer 1

a[n_] := Module[{f}, f[1] = 1; f[2] = 3; f[i_] := f[i] = f[i - 1] + f[i - 2]; f[n]]
mode[x_] := Module[{i}, i = 1; While[Mod[a[2*i], Prime[x]] != 2, i++;]; i]

追问

我用的是Table，而且最后是让画出散点图的。。。怎么画出来呢。。

追答

ListPlot[Table[mode[i], {i, 2, 30}]]
i一定从2开始，因为第一个是2，没有模2是2的。最后一个质数不要太大，不然a太大，会溢出。