Plot[(1 + 3 x^2 + 1/2000 x^8) E^(-x), {x, 0, 15}]