0
喜IM編碼數學一門功課要找到一個方案失敗的可能性,做圖和表的結果但林遇到了麻煩表的最後一個值位置故障使用鎢,數學
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]
這就是採取表中的第一個值(failiure的其porcentage)
position = # & /@ Range[0, .9, .1](thats just for the third value)
max = Last[
Last[Position[distribution, Take[prob {#}] & /@ Range[1, 10]]]]
這就是第三值和其中i有麻煩其supossed是THA最大imum值,但概率{#}部分不工作我不知道爲什麼
決賽桌應該是:TableForm[{position, prob, max}]
您似乎在第二個「Take」中缺少一個逗號。這就是說你根本不需要使用。 'Max [拿[distribution,{#}]]&/ @ Range [1,10]'可以簡單地寫成'Max/@ distribution' – agentp 2014-09-04 13:57:41