Mathematica，增加 2n+1，而不是 3

Question

这就是我所拥有的。

RandomChoice[{.5, .5} -> {Heads, Tails}, 3]

然后我写

RandomChoice[{.5, .5} -> {Heads, Tails}, 5]

如何以 2n+1 的增量增加这个函数？

Answer 1

我将您的请求解释为表明您想要函数 2n + 1，增量为 2。因此值将是：3、5、7、9、11...如果这是正确的解释，则以下内容应该有效：

Table[RandomChoice[{heads, tails}, 2 n + 1], {n, 1, 10}]

因此，对于 {1,2,3,4,5,6,7,8,9,10} 的域， f(n) = 2 n + 1

方式获得相同的结果：

Table[RandomChoice[{heads, tails}, n], {n, 3, 21, 2}]

您可以通过以下 增量是2。但是它不是同一个函数。目标与之前相同，但域现在与目标集相同：{3, 5, 7...21}

Answer 2

您正在寻找这样的东西吗？

For[i = 1, i < 5, i++, Print[RandomChoice[{.5, .5} -> {Heads, Tails}, 2i+1]]]

这将给出一个示例输出：

{Heads, Tails, Tails}
{Tails, Tails, Heads, Heads, Tails}
{Tails, Tails, Heads, Tails, Heads, Heads, Tails}
{Heads, Heads, Tails, Tails, Heads, Tails, Heads, Tails, Tails}

这也做了同样的事情：

Do[Print[RandomChoice[{.5, .5} -> {Heads, Tails}, 2i+1]], {i, 4}]

我不知道是否有更优雅/更有效的方法来做到这一点，因为我是 Mathematica 的新手 - 但我确信有人会评论如果有。