f[x_] := 1/Sqrt[2 [Pi]] Exp[-(x^2/9)] Plot[f[x], {x, -10, 10}]
From here on how can I create the same image
f[x_] := 1/Sqrt[2 \[Pi]] Exp[-(x^2/9)] AREA = Integrate[f[x], {x, -Infinity, -2}] + Integrate[f[x], {x, 1, Infinity}] AREA // N (*1.04277*)
Sorry I asked the question wrong. I have to draw the same picture. So not the volume of the shaded area.
I have calculated area not volume.
Ok, I understand thanks, but how can I create that image.
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]
Thank you very much my friend :)
