Plot[Sin[Exp[3+x]]*Sin[Exp[3-x]], {x,-3,3}]