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