p = Plot[ (Exp[1-x^2]-1)Exp[Sin[x]],{x, -15, 15}]

peeters`exportForLatex["ps5Fig1", p]