Plot[e^(-(r-3)^2)*(0.5* cos(pi*r/5) + 0.5), {r, -5, 5}, {y, 0, 1}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.