plot[{4.5/x^2-1/x-4.5/x^3,0.08},{x,0,15},{y,-0.15,0.1}]