Plot[Sin[x]*Exp[-x/5], {x, 0, 6*Pi}]