plot Sin[Exp[1/Abs[x]]] Exp[-1/Abs[x]] for x from -1/2 to 1