Adding shaded areas to a plot?

Questions
1

f[x_] := 1/Sqrt[2 [Pi]] Exp[-(x^2/9)]
Plot[f, {x, -10, 10}]

From here on how can I create the same image

Ekran Görüntüsü _OP_18_CP_.png
Ekran Görüntüsü _OP_18_CP_.png288×183 13.3 KB

2

f[x_] := 1/Sqrt[2 [Pi]] Exp[-(x^2/9)]
AREA = Integrate[f, {x, -Infinity, -2}] + Integrate[f, {x, 1, Infinity}]
AREA // N
(1.04277)

3

Sorry I asked the question wrong. I have to draw the same picture. So not the volume of the shaded area.

4

I have calculated area not volume.

5

Ok, I understand thanks, but how can I create that image.

6

Maybe so:

Show[{Plot[f[x], {x, -7, -2}, Filling -> Bottom, 
 FillingStyle -> {Black}, AxesOrigin -> {0, 0}, 
 AxesLabel -> {x, F[x]}], 
 Plot[f[x], {x, 1, 7}, Filling -> Bottom, FillingStyle -> {Black}], 
 Plot[f[x], {x, -7, 7}]}, PlotRange -> All]
7

Thank you very much my friend :slight_smile: