code for diagram above

> plot(x^3-x,x=-1.5..1.5,xtickmarks=[.57,-.57],ytickmarks=[.38,-.38],labelfont=[TIMES,BOLD,16],thickness=3,axesfont=[TIMES,BOLD,12]);