2014-09-04 52 views
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}]

+0

您似乎在第二個「Take」中缺少一個逗號。這就是說你根本不需要使用。 'Max [拿[distribution,{#}]]&/ @ Range [1,10]'可以簡單地寫成'Max/@ distribution' – agentp 2014-09-04 13:57:41

回答

0

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[]來計算分佈和概率。