code for 1(e)

> p5:=plot(1/120*(2*x^6-9*x^4-108*x^2) ,x=-3.4..3.4,thickness=2):
plots[display]({p5},title=`Problem 1(e)`,titlefont=[TIMES,BOLD,16]);