# Complete filling below a plot

We want to fill a part of below of a plot which is brought here as

Show[Plot[
10^-29/((E^(10^-6/x) - 1) x^5), {x, 0.0000000001, 0.000001}],
Plot[10^-29/((E^(10^-6/x) - 1) x^5), {x, 4*10^-7, 6*10^-7},
Filling -> Axis, PlotRange -> All]]


Unfortunately the highlighted region (filled area) is not extended completely up to the x axis (y=0). How can we solve the problem?

• Include AxesOrigin->{0,0} in the second plot. – Carl Woll Nov 5 '18 at 17:52
• Try also Filling -> 0. – Henrik Schumacher Nov 5 '18 at 18:27

As per @CarlWoll's comment, the quickest way to achieve this is to include AxesOrigin -> {0,0} in the second plot:
Show[