Tricky RegionPlot question（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} 
    ]