code for 2(e)

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