WolframAlpha computational knowledge AI
Plot[-Sin[x]*Exp[-0.01*x^2], {x, -10, 10}]