Wolfram mathematica 棘手的区域图问题（Mathematica）

我使用下面的方法来可视化平均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}] p=1/2； e=1/4； pp[n，x][CDF[二元分布[n，p]，x]； p3=区域图[pp[n，nx]>p-e&&pp[n，nx]出于美观的原因，我希望绘图是连续的，即使这个范围对于非整数n没有意义。上面的解决方案给出了一个“锯齿”的外观，但我希望它看起来像阶梯，因此，对于任何非整数n0，区域将与不大于n0的最大整数n相同，知道如何实现吗？

假设您希望

n

为整数，请尝试

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

p3=区域图[
p-eFloor[n]，
{n，1，20}，{x，0，1}
]

“非整数x0区域将与最大整数x相同”？你是说n？