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