![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
感觉差不多了
Show[DiscretePlot[1 + x + 0.5 Sin[6 x^0.75], {x, 0.5, 5, 0.2},
ExtentSize -> Scaled[0.9], AspectRatio -> 1/1.5,
PlotRange -> {{-1, 5}, {-1, 6}}, Filling -> Axis,
FillingStyle -> RGBColor[0, 0, 1]],
Plot[1 + x + 0.5 Sin[6 x^0.75], {x, 0.5, 5},
PlotStyle -> {Thickness[0.005], RGBColor[1, 1, 0]}]]