Tricky RegionPlot问题（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没有意义。上面的解决方案给出了“锯齿”外观，但我希望它看起来像一个阶梯，因此，对于任何非整数n0，该区域将与不大于n0的最大整数n相同，任何想法如何实现这个目标？

Answer 1

假设您希望n为整数，请尝试

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