Рабочий процесс 5 шагов, выполняемых по порядку в одной сессии. Каждый шаг был выполнен на движке, и вывод ниже — то, что он дал.
atLeastOnce[p_, n_] := 1 - (1 - p)^nНет вывода — этот шаг готовит что-то для следующего.
N[atLeastOnce[1/100, 50]]0.3949939328624633expectedHits = 50 (1/100)1/2atLeastTwice = N[1 - (1 - 1/100)^50 - 50 (1/100) (1 - 1/100)^49]0.08943531309603069Plot[atLeastOnce[1/100, n], {n, 0, 300}]-Graphics-Все рецепты · Справочник функций · Использовать из MCP-клиента