code for diagram

> plot(x^6-5*x^4,x=-2.3..2.3,ytickmarks=[5,0,-5,-10,-15],
xtickmarks=[-2,-1,0,1,2],axesfont=[TIMES,BOLD,12]);