Question

你好我在mathematica编写一个关于找到程序失败概率的作业，制作一个情节和一个表格，但是我很难得到表格的最后一个值

Clear[bin1]
bin1[n_, p_, k_] := 
 Module[{prob = (1 - p)^n, i}, 
  Do[prob = (((n - i + 1)/i) (p/(1 - p))) prob, {i, k}]; prob]



distribution = 
  Table[bin1[50, #, k], {k, 0, 50}] & /@ Range[0, .9, .1];

那就是概率计算器 prob = Max[Take[distribution, {#}]] & /@ Range[1, 10]那就是拿表的第一个值（它是失败的百分比）

position = # & /@ Range[0, .9, .1](thats just for the third value)

max = Last[
  Last[Position[distribution, Take[prob {#}] & /@ Range[1, 10]]]]

那是第三个值，我在哪里遇到麻烦它最大值，但是{＃}部分不起作用我不明白为什么

决赛桌应为：TableForm[{position, prob, max}]

Answer 1

请参阅documentation for Module：

Module[{x,y,…},expr]


指定在expr中出现符号x，y，...应该被视为本地。

当您说bin1[n_, p_, k_] := Module[{prob = …}]时，prob仅在Module内定义，并且在外面没有值。

你可以通过玩它来看看它是如何工作的：

In[1]:= Module[{foo}, foo]                                                      

Out[1]= foo$185

Module重命名其范围内的变量，使其无法在外部访问。

您可能需要另一个功能来计算prob，或设置bin1[]来计算分布和概率。</ p>

麻烦使用wolfram-mathematica中的位置

1 个答案: