Plot[(E^x *(x-9/2))/(x), {x, -5, 5}