Передача пакетов 

Пакет состоит из строки из символов, который передаётся через канал связи с помехами. Каждый символ имеет вероятность 0.0001 передачи с ошибкой. Найдём наибольшее значение параметра , для которого вероятность ошибочной передачи (ошибка в передачи хотя бы одного символа) является меньшей, чем 0.001.

In[1]:=

X transmissionProcess = BinomialProcess[10^-4];

Вероятность ошибки в передаваемом сообщении.

In[2]:=

X prob = Probability[x > 0, x \[Distributed] transmissionProcess[n]]

Out[2]=

In[3]:=

X ListLogPlot[Transpose@Table[{prob, 10^(-3)}, {n, 0, 15}], Joined -> True, Filling -> Axis]

Out[3]=

Найдём наибольшее значение длины пакета , для которого вероятность передачи неправильного сообщения является меньшей, чем .

In[4]:=

X Maximize[{n, prob <= 10^-3 && n \[Element] Integers && 5 <= n <= 15}, n]

Out[4]=