Plot[{Piecewise[{{1-x^2/2,Abs[x]<=1},{(2-Abs[x])^2/2,1<Abs[x]<=2},{0,Abs[x]>2}}],Exp[-x^2]},{x,-2.5,2.5}]

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.