Hello everyone, I only started using Mathematica yesterday. I want to plot 4 functions on the same graph. My problem that the expressions given are too small to compute. Each time I enter the code, it says:

General::munfl: Exp[-1799.88] is too small to represent as a normalized machine number; precision may be lost.

My (not so great) code is:

Plot[{(1/(2 I*Sqrt[2*Pi]))*(Exp[-((w - 1)^2)*(1^2)/2] - Exp[-((w + 1)^2)*(1^2)/2]), (5/(2 I*Sqrt[2*Pi]))*(Exp[-((w - 1)^2)*(5^2)/2] - Exp[-((w + 1)^2)*(5^2)/2]}, {w, -5, 5}]

I saw on help we can define: By using an arbitrary-precision number, a small nonzero result is found:

Exp[N[800, $MachinePrecision]]

How do I change it for expressions?

Thank you for your help.