WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

パケットの送信

個の記号の文字列からなるパケットを，ノイズの多いチャンネルを通して送信する．各記号が送信の際にエラーを起す確率は0.0001である．正しくない送信（記号の少なくとも1つがエラーになる）の確率が0.001より小さくなる場合の最大の を求める．

Wolfram Language code: transmissionProcess = BinomialProcess[10 ^ -4];
送信中にエラーが起る確率：
Wolfram Language code: prob = Probability[x > 0, xtransmissionProcess[n]]
Wolfram Language code: ListLogPlot[Transpose@Table[{prob, 10 ^ (-3)}, {n, 0, 15}], Joined -> True, Filling -> Axis]
正しくない送信の確率がとなる最大の を求める：
Wolfram Language code: Maximize[{n, prob <= 10 ^ -3 && n∈Integers && 5 <= n <= 15}, n]