Mathematica の式(a)

f3[x_, mu_, sigm_] := Exp[-(x - mu)^2/2/sigm^2]/sigm/Sqrt[2 Pi]
Plot[f3[x, 0, 1], {x, -5, 5}]