plot[{4/x^2-1/x-4/x^3,-0.074074074},{x,0,20},{y,-0.15,0.02}]