code for diagram above

> plot(x^2+1/x,x=-5..5,xtickmarks=[-1,0,1],ytickmarks= [1.89,0], view=[-5..5,-5..5],axesfont=[TIMES,BOLD,12],thickness=3,color=blue);