求助，图像填色问题

{shu, m, n, a, \[Sigma]} = {{495, 498, 493, 492}, 491, 494, Mean[shu],
Sqrt[Total[(shu - a)^2]/Length[shu]]}
Show[Plot[
PDF[f = NormalDistribution[a, \[Sigma]], x], {x, a - 4 \[Sigma],
a + 4 \[Sigma]}], ParametricPlot[{m, t}, {t, 0, 1}],
ParametricPlot[{n, t}, {t, 0, 1}],
Plot[PDF[f, x], {x, m, n}, Filling -> Axis]]
N[Probability[m <= x <= n, x \[Distributed] f]*100, 4] "%"

我想填充的是491到494，但下面还有个方块没填，有人有更好的填充方法吗？