Сложный вопрос Регионплощадка (Mathematica)

Question

Я использую следующее для визуализации диапазона значений при усреднении n бросков монет как функции от n.

p = 1/2;
e = 1/4;
pp[n_, x_] = CDF[BinomialDistribution[n, p], x];
p3 = RegionPlot[pp[n, n x] > p - e && pp[n, n x] < p + e, {n, 1, 20}, {x, 0, 1}]

По эстетическим соображениям я хочу, чтобы этот график был смежным, хотя этот диапазон не имеет смысла для нецелого n. Вышеупомянутое решение дает «зубчатое» появление, но вместо этого я хочу, чтобы оно выглядело как стремянка идея как это сделать?

Answer 1

Если вы хотите, чтобы n были целыми числами, попробуйте

p3 = RegionPlot[
        p - e < pp[nn, nn x] < p + e /. nn -> Floor[n],
        {n, 1, 20}, {x, 0, 1}
     ]