code for 1(e)

> p3:=plot(x^2-x^4/6 ,x=-3..3,thickness=2):
plots[display]({p3},view=[-3..3,-4..4],scaling=constrained,
title=`Problem 1(e)`,titlefont=[TIMES,BOLD,16]);